excel - VBA - 显示或隐藏指的列

点击按钮，显示或隐藏包含Sa或Su的列：

Public hiddenTrigger As Integer '0: hide Sat&Sun; 3:unhide

Sub RectangleBeveled9_Click()
    Dim i, j As Integer
    i = 6
    j = Worksheets(1).UsedRange.Columns.Count 'max column number
    Rem MsgBox ("Column Max No.:" & j)
    Rem MsgBox ("hidden:" & hiddenTrigger)
    For i = 6 To j
        If Cells(5, i) = "Sa" Or Cells(5, i) = "Su" Then 'cells(row,column)
            Rem MsgBox ("Column No.:" & I)
            Rem exit for
            Set hideColumns = Columns(i)
            If hiddenTrigger = 0 Then
                hideColumns.Hidden = True
            Else
                hideColumns.Hidden = False
            End If
        End If
    Next
    
    If hiddenTrigger = 0 Then
        hiddenTrigger = 3
    Else
        hiddenTrigger = 0
    End If
    
    
End Sub