vba - 如何重复执行 CommandButton1 直到满足条件？

Question

我有一个由 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 再次变为零。请帮忙。

Answer 1

我认为您需要将 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