求Excel高手帮看下代码错在哪 运行显示无效的next控件变量引用倒数第二行显示缺少结束语应该怎么改 谢谢
发布网友
发布时间：2022-04-23 02:47
共2个回答
热心网友
时间：2023-10-12 06:53
这里有两个。。。？？
热心网友
时间：2023-10-12 06:54
MATH 这个没搞懂。。。
Sub 八码测试()
Dim x(8)
For i = 1 To 8
For J = 1 To 10
x(i) = InputBox("请输入第" & i & "个号码", "八码测试")
Next
zh = 0
Range("i2:i82").Clear
For 行 = 2 To 85
z = 0
For y = 1 To 8
If [A1] = "=Abs(Cells(行, y + 3) - x(J)) " = 0 Then
z = z + 1
End If
Next 'J, y
If z = 5 Then
Range("i" & 行).Select
Range("i" & 行) = "中"
zh = zh + 1
End If
Next 行
MsgBox "此组合共中" & zh & "次!" & ".....测试"
Next
End Sub
