Nếu bạn cần ẩn các cột nhất định bằng cách sử dụng một nút, bạn có thể sử dụng mã này. Nó thậm chí sẽ thay đổi văn bản của nút lệnh thành Ẩn Cột và sau đó lại thay đổi nó thành Bỏ ẩn Cột.

Sub Hide_C ()

Dim C_ell As Range ActiveSheet.Shapes.Range (Array (“Nút 2”)). Chọn If Selection.Characters.Text = “Unhide Columns” Then Columns.Hidden = False Selection.Characters.Text = “Hide Columns”

Khác Đối với Mỗi C_ell Trong Phạm vi (“B1”, Ô (1, Cột.Count) .End (xlToLeft))

If C_ell = “x” Then C_ell.Columns.Hidden = True Next Selection.Characters.Text = “Bỏ ẩn các cột”

End If Range (“A2”). Chọn End Sub