excel - 在单个按钮中运行功能的程序(1 个功能 = 1 次单击)

Question

我正在尝试编写一个在您每次单击时运行多个功能的按钮。我正在考虑运行一个循环，但似乎无法在库中找到合适的循环语法。
这就是我认为它应该看起来的样子(几个月没有接触过 VBA Excel)

Private Sub CommandButton15_Click() 
    i As Click
    r As Counter

    i = CommandButton15.Click

    For Each i In UserForm1    
        If r = 1 Then
            TextBox1.Text = "Do 1st function"
        ElseIf r = 2 Then
            TextBox1.Text = "Do 2nd function"
        Else
            TextBox1.Text = "Do 3rd function"
        End If
    Next i
End Sub

代码和按钮/文本框位于出现的用户表单中。
感谢是否有人可以帮助找出语法或示例。
谢谢!

Answer 1

在您的用户窗体中，存储一个全局变量并在按钮的 Click 事件中增加计数器。

Option Explicit

Private clickCount As Long

Private Sub CommandButton15_Click()
        
    clickCount = clickCount + 1
    
    Select Case clickCount
        Case 1
            TextBox1.Text = "Do 1st function"
        Case 2
            TextBox1.Text = "Do 2nd function"
        Case Else
            TextBox1.Text = "Do 3rd function"
    End Select
End Sub