求VBA代码

Question

A1到A3是随机生成0~9的随机数，在其它单元格插入一个控键用来一键刷新用的。用代码判断A1是否是0，如果是0就判断下一个A2是否也是0如果是0就继续往下判断A3,如果不是0就返回A1重新开始判断，（意思是点击控键不断刷新，先判断A1是否是0如果是0再判断A2，如果A2不是0就返回A1重新开始判断，如果A2也是0就判断A3，A3也是0就停止了判断和继续刷新，如果A3不是0也要返回A1重新开始判断)

Answer 1

Dim i As Integer

Sheet1.Activate

For i = 1 To 3

    Sheet1.Cells(i, 1) = "=int(RAND() * 9)"

Next

i = 1

For i = 1 To 3

    If Sheet1.Cells(i, 1) = 0 And i = 3 Then

       MsgBox " " & i & " - " & Sheet1.Cells(i, 1)

    Else

       MsgBox " " & i & " - " & Sheet1.Cells(i, 1), vbOKCancel, "OK"

    End If

Next

i = 1

注意是表Sheet1，改表名也没用，要到工程里面看对象名称

加个按键，调用VBA，建个工程，把上面的代码放在SUB里面应该会吧

追问

它提示这样，老师，这方面我是小白哈😂

追答

应该正常，可能有特殊字符吧，你点调试，看看哪一行出错

追问

在vbOKCancel这里

追答

那就注释掉这一行，这只是个提示而已

追问

注释掉就可以运行，方便在代码旁边解释下每行代码的意思吗？，如果不方便就算了