Question

excel vba 单击一次按钮，执行一次循环， 再单击一次，执行第二个循环。请指教! 是循环 的代码

excel vba 代码有n个循环 单击一次按钮，执行一次循环， 再单击一次，执行第二个循环。请指教!
是循环 的代码
Sub Macro70()

Dim i

i = 2
For i = 2 To 20
y = i + 1
If Sheet2.Cells(1, 27) = Sheet2.Range("cq" & i) Then
Sheet2.Cells(1, 27) = Sheet2.Range("cq" & y)
Else
Sheet2.Cells(1, 27) = Sheet2.Range("cq" & i)
End If

Next

Call gg

End Sub

Answer 1

没看懂，你说的是并列的几个循环，还是嵌套在一起的循环，
如果是并列循环，那真接写成单独的过程就好，
如果是嵌套循环，将最内层循环，写单独过程，
再写外循环的过程，调用内循环就可以了。

追问

就是 从2to20 第一次执行 =2的过程 下一次执行=3的过程 下一次执行=4的工程 ......每按一次就是递增到下一个 （类似于 在程序中加一个暂停。。不知道我这样说懂了吗

追答

既然是每次执行一次，那就用不到循环了，可以将i 的值存在单元格内，第次运行读一次
比如下例就是存在表二A1单元内，当然了可以修改：

Sub Macro70()
Dim i As Byte
If Sheets("sheet2").Range("a1").Value 20 Then
MsgBox "循环超过20！", , "提示："
Sheets("sheet2").Range("a1").Value = 2
End
Else
i = Sheets("sheet2").Range("a1").Value
End If
Sheets("sheet2").Range("a1").Value = Sheets("sheet2").Range("a1").Value + 1
'For i = 2 To 20
y = i + 1
If Sheet2.Cells(1, 27) = Sheet2.Range("cq" & i) Then
Sheet2.Cells(1, 27) = Sheet2.Range("cq" & y)
Else
Sheet2.Cells(1, 27) = Sheet2.Range("cq" & i)
End If
'Next
Call gg
End Sub

Answer 2

vba 代码调试讲解