隐藏不同的列

Question

我试图隐藏不相互隔离的不同列。

我有以下代码，但这仅允许我隐藏一个范围，例如在这种情况下列h：k。如果我想隐藏其他列，请说我想隐藏h：k，但s：t，x：y和列z：z - 如何使以下代码用于非贴列列？

Option Explicit

'---------->>
Public Sub ToggleColumns()
    Dim SH As Worksheet
    Dim Rng As Range
    Dim obj As Variant
    Dim BTN As Button
    Dim iLen As Long
    Const myColumns As String = "H:K"               '<<===== Change
    Const sFees As String = "Fees"                       '<<===== Change
    Const sHidden As String = " Hidden"
    Const sVisible As String = " Visible"

    Set SH = ActiveSheet
    Set BTN = SH.Buttons(Application.Caller)
    Set Rng = SH.Columns(myColumns)
    With Rng.EntireColumn
        .Hidden = Not .Hidden
        If .Hidden Then
        iLen = Len(sHidden) + Len(sFees)
            BTN.Characters.Text = sFees & " Hidden"
            With BTN.Characters(Start:=1, Length:=iLen).Font
                .Name = "Arial"
                .FontStyle = "Bold"
                .Size = 10
                .ColorIndex = 3  '\\ RED
            End With
        Else
        iLen = Len(sVisible) + Len(sFees)
        BTN.Characters.Text = sFees & " Visible"
            With BTN.Characters(Start:=1, Length:=iLen).Font
                .Name = "Arial"
                .FontStyle = "Bold"
                .Size = 10
                .ColorIndex = 4  '\\ GREEN
            End With
        End If
    End With

End Sub

Answer 1

替换

Const myColumns As String = "H:K"    

为

Const myColumns As String = "H:K,S:T,X:Y,Z:Z"

columns

Set Rng = SH.Columns(myColumns)

。

Set Rng = SH.Range(myColumns)

（）不支持停产列的地址