Question

我有一个表单控件按钮，我想用它来分组 - 取组合列。也就是说，如果在第一次分组/隐藏这些列时单击它，下次单击它时它会取消隐藏这些列。

我想计算点击该按钮的数量，这样，如果variable包含no of clicks计数的odd为even，我将隐藏其他列{{1}我将取消隐藏该列。

这是我的代码

Private Sub CommandButton1_Click()
Static cnt As Long
cnt = 0
Dim remain As Integer
cnt = cnt + 1


remain = cnt Mod 2

If remain = 1 Then
 ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
 End If

 If remain = 2 Then
 ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
 End If


End Sub

那么我如何计算vba中变量中该按钮的点击次数。抱歉英文不好？

Answer 1

好的，您不需要使用计数并继续添加计数。您可以改用Boolean变量。这是一个例子。这适用于ON/OFF开关。

Option Explicit

Dim boolOn As Boolean

Sub CommandButton1_Click()
    If boolOn = False Then
        boolOn = True

        MsgBox "OFF"
        '
        '~~> Do what you want to do
        '
    Else
        boolOn = False
        '
        '~~> Do what you want to do
        '
        MsgBox "ON"
    End If
End Sub

在excel vba中点击按钮的次数没有计算

1 个答案: