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

Question

我有 Excel VBA 代码由 CommandButton1_Click 执行。以下是我在 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

按照自己的话

Do Until Range("D1").Value = 0
    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
Loop

Answer 2

我认为您需要将 CommandButton1_Click 方法的整个主体包装在 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

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

How to repeat CommandButton1 execution until the condition is met?

vba

excel

excel-2016