我想创建一个计数器，每次用户打开用户表单时，计数器都会增加+1

Question

[

我可以在文本框中显示一个数字，该数字在用户每次打开用户表单时都会自动加1吗？

Answer 1

最简单的方法是定义一个计算表单的openinng的全局变量。我假设您在代码中的某个地方调用了UserForm.Show，所以我将定义处理“开放逻辑”的方法。

我会那样做：

' Global variable
Private counter As Long

' Change calls of UserForm.Show to this method
Sub ShowUserForm()
    ' Increment counter
    counter = counter + 1
    UserForm1.Label1.Caption = counter
    UserForm1.Show
End Sub