Jeśli chcesz ukryć określone kolumny za pomocą przycisku, możesz użyć tego kodu. Zmieni nawet tekst przycisku polecenia na Ukryj kolumny, a następnie ponownie zmieni go na Odkryj kolumny.
Sub Ukryj_C()
Dim C_ell As Range
ActiveSheet.Shapes.Range(Array("Przycisk 2")).Wybierz
If Selection.Characters.Text = "Odkryj kolumny" Then
Columns.Hidden = Fałsz
Selection.Characters.Text = "Ukryj kolumny"
W przeciwnym razie
For Each C_ell In Range("B1", Cells(1, Columns.Count).End(xlToLeft))
Jeśli C_ell = "x" Wtedy C_ell.Columns.Hidden = True
Następny
Selection.Characters.Text = "Pokaż kolumny"
Zakończ, jeśli
Zakres ("A2"). Wybierz
Napis końcowy