我有一个由 CommandButton1_Click 执行的 Excel VBA 代码。以下是我在 VBA 代码末尾插入的条件。
If Range("D1").Value < 362 Then
Range("C1").Value = Range("C1").Value + 7
Range("D1").Value = Range("D1").Value + 7
Else
Range("C1").Value = Range("F2").Value
Range("D1").Value = 0
End If
我想重复 CommandButton1_Click 操作,直到 Range("D1").Value 再次变为零。请帮忙。
最佳答案
我认为您需要将 CommandButton1_Click
的整个 body 包裹起来Do While ... Loop
中的方法.
所以变换:
Sub CommandButton1_Click()
'body
End Sub
至
Sub CommandButton1_Click()
Do While Range("D1").Value <> 0
'body
Loop
End Sub
或者你可以更优雅:
Sub SomeSub()
'your CommandButton1_Click current body
End Sub
Sub CommandButton1_Click()
Do While Range("D1").Value <> 0
SomeSub
Loop
End Sub
关于vba - 如何重复执行 CommandButton1 直到满足条件?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/50015806/