在excel vba中计算button的点击次数

我有一个表单控件button，我想使用组取消组合列。也就是说，如果它是第一次单击组/隐藏这些列，下次它单击它将取消隐藏这些列。

我想要计算点击该buttonno of clicks ，以便如果包含no of clicks数no of clicks的variable是odd我将隐藏其他列，如果它even我将取消隐藏列。

这是我的代码

 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中的variables中的button的点击次数。 对不起英文不好？

Answer 1

好吧，你不需要使用计数，并继续添加到它。 您可以改为使用Booleanvariables。 这是一个例子。 这是一个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