如何用EXCEL作九宫格
发布网友
发布时间：2022-04-21 08:03
共4个回答
热心网友
时间：2022-05-28 12:14
EXCEL作九宫格的具体操作步骤如下：
1、打开EXCEL点击插入，选中矩形，按住shift，画出矩形。
2、按住ctrl+shfit，复制8个矩形，组成一个九宫格的效果。
3、按住shfit，选中9个矩形，点击右键，选择组合，形成9个矩形。
4、选中组合的图片，点击格式下的形状填充，选择图片填充。
5、选中图片，点击插入。
6、点击插入，EXCEL图片九宫格即可完成。
热心网友
时间：2022-05-28 13:32
切换到页面布局模式下，行高和列宽单位都是厘米，可以统一设置。
Excel版本参考：2010
1、选中视图导航栏，选中页面布局导航；
2、选中A1：C3单元格区域；
3、右击设置行高和列宽为2cm
4、切换到普通视图，查看效果。
热心网友
时间：2022-05-28 15:07
不是随便填4个数都能出结果的，下面代码1个数也不填已枚举出所有可能的组合，共有8种，呈中心对称。
Sub jgg()
Dim arr(1 To 9) As Integer
Dim ar
For i = 1 To 9
arr(i) = i
Next i
Application.ScreenUpdating = False
For i1 = 1 To 9
Cells(2, 2) = arr(i1)
For i2 = 1 To 9
If i2 = i1 Then GoTo a2:
Cells(2, 3) = arr(i2)
For i3 = 1 To 9
If i3 = i2 Or i3 = i1 Then GoTo a3:
Cells(2, 4) = arr(i3)
For i4 = 1 To 9
If i4 = i3 Or i4 = i2 Or i4 = i1 Then GoTo a4:
Cells(3, 2) = arr(i4)
For i5 = 1 To 9
If i5 = i4 Or i5 = i3 Or i5 = i2 Or i5 = i1 Then GoTo a5:
Cells(3, 3) = arr(i5)
For i6 = 1 To 9
If i6 = i5 Or i6 = i4 Or i6 = i3 Or i6 = i2 Or i6 = i1 Then GoTo a6:
Cells(3, 4) = arr(i6)
For i7 = 1 To 9
If i7 = i6 Or i7 = i5 Or i7 = i4 Or i7 = i3 Or i7 = i2 Or i7 = i1 Then GoTo a7:
Cells(4, 2) = arr(i7)
For i8 = 1 To 9
If i8 = i7 Or i8 = i6 Or i8 = i5 Or i8 = i4 Or i8 = i3 Or i8 = i2 Or i8 = i1 Then GoTo a8:
Cells(4, 3) = arr(i8)
For i9 = 1 To 9
If i9 = i8 Or i9 = i7 Or i9 = i6 Or i9 = i5 Or i9 = i4 Or i9 = i3 Or i9 = i2 Or i9 = i1 Then GoTo a9:
Cells(4, 4) = arr(i9)
If Cells(2, 2) + Cells(2, 3) + Cells(2, 4) = 15 And Cells(3, 2) + Cells(3, 3) + Cells(3, 4) = 15 And Cells(4, 2) + Cells(4, 3) + Cells(4, 4) = 15 And Cells(2, 2) + Cells(3, 2) + Cells(4, 2) = 15 And Cells(2, 3) + Cells(3, 3) + Cells(4, 3) = 15 And Cells(2, 4) + Cells(3, 4) + Cells(4, 4) = 15 And Cells(2, 2) + Cells(3, 3) + Cells(4, 4) = 15 And Cells(4, 2) + Cells(3, 3) + Cells(2, 4) = 15 Then
ar = Range("b2:d4")
Range("g65536").End(xlUp).Offset(1, 0).Resize(3, 3) = ar
Else
End If
a9:
Next i9
a8:
Next i8
a7:
Next i7
a6:
Next i6
a5:
Next i5
a4:
Next i4
a3:
Next i3
a2:
Next i2
Next i1
Application.ScreenUpdating = True
End Sub
热心网友
时间：2022-05-28 18:05
6 7 2
1 5 9
8 3 4追问= =||| 好吧 是我没说清楚 我的意思是 一个3×3的九宫格 我只要填写4个数字 表格自动算好剩下5个未填写的数字 要用VBA 我做出来会出小数
追答晕，我就说怎么会这么简单就可以拿分呢。。
但是你都补充了，貌似还是没写清除吧？你填写哪4个数字？位置在哪里？
九宫格可不是任何组合、任何位置都成的呀。。
