Question

它有点类似于循环，但我希望在每次增量后都有输入。

简而言之，我有一个文本框链接到Excel中的单元格。我编写了一个脚本，将文本框中的值与工作表进行比较，并在单元格中打勾。

然而，之后我想移动一个单元格以及检查下一个值。

到目前为止，我一直在尝试，而..循环，但它只是在我有机会输入下一个值进行比较之前保持循环。

那么有没有办法可以对其进行编码以使循环暂停，然后在输入值并进行比较后继续编码？

Answer 1

类似这样的事情

Option Explicit

Public lngRowNumber As Long

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TESTING lngRowNumber
    lngRowNumber = lngRowNumber + 1
End Sub

Private Sub UserForm_Initialize()
    lngRowNumber = 1
End Sub

Private Sub TESTING(ByVal lngRowNumber As Long)
    MsgBox "Updated Row : " & lngRowNumber
End Sub

VBA如何递增一个数字并将其重新使用？

1 个答案: