Ако желите да сакријете одређене колоне помоћу дугмета, можете користити овај код. Чак ће променити текст командног дугмета у Сакриј колоне, а затим га поново променити у Откриј колоне.
Суб Хиде_Ц ()
Дим Ц_елл Ас Ранге
АцтивеСхеет.Схапес.Ранге (Арраи ("Буттон 2")). Селецт
Ако је Селецтион.Цхарацтерс.Тект = "Откриј колоне" Затим
Цолумнс.Хидден = Фалсе
Селецтион.Цхарацтерс.Тект = "Сакриј колоне"
Иначе
За сваку Ц_елл у опсегу ("Б1", ћелије (1, колоне.број). Крај (клТоЛефт))
Ако је Ц_елл = "к" Тада је Ц_елл.Цолумнс.Хидден = Труе
Следећи
Селецтион.Цхарацтерс.Тект = "Откриј колоне"
Крај Ако
Распон ("А2"). Изаберите
Енд Суб