Отображение и скрытие столбцов при помощи макросов

Всем привет, меня зовут Андрей, это снова я.

Начало: Эксель и макросы

В данной статье я хочу начать целый цикл статей, в которых будет говориться про Эксель. Очень надеюсь, что среди моих читателей будут такие, кому будет интересна и полезна эта тема.

Сегодняшняя статья - про то, как можно скрывать и отображать столбцы Эксель при помощи макросов.

Макросы будут очень удобными для работы со столбцами. Часто бывает так, например, что нужно скрыть достаточно много столбцов, они все одновременно могут не уместиться на одном экране. С макросами все будет гораздо проще.

Известно, что макросы часто упрощают работу в Эксель.

Итак, начнем, и расскажем именно про скрытие столбцов.

Скрытие столбцов

Допустим, что надо скрыть какие-то столбцы, причем известны заголовки (латинские буквы) этих столбцов. Можно написать такой макрос, который вначале будет спрашивать пользователя, какие буквенные заголовки у этих столбцов, а затем будет скрывать нужны столбцы.

Вот текст этого макроса:

Текст макроса, скрывающего несколько столбцов

Sub Столбцы_с_буквой_скрыть()

a1 = InputBox("Введите буквенный код левого (первого) столбца")

a2 = InputBox("Введите буквенный код правого (последнего) столбца")

Columns(a1 & ":" & a2).Select

Selection.EntireColumn.Hidden = True

End Sub

Пример работы макроса

Допустим, что надо скрыть столбцы от A до AN включительно.

Запустим этот макрос. Введем в первую форму InputBox латинскую букву A, а во вторую форму InputBox две латинские буквы AN.

Вот фрагмент листа Эксель перед запуском этого макроса:

А вот фрагмент того же листа после выполнения этого макроса:

Нужные столбцы скрыты.

Если надо скрыть только один столбец

Если надо скрыть не несколько столбцов, а только один, тогда текст макроса будет другим:

Макрос для скрытия одного столбца

Sub Столбец_с_буквой_скрыть()

a = InputBox("Введите буквенный код столбца")

b = Range(a & 1).Column

Columns(b).Select

Selection.EntireColumn.Hidden = True

End Sub

Макрос для отображения нескольких скрытых столбцов

Sub Столбцы_с_буквой_показать()

a1 = InputBox("Введите буквенный код левого (первого) столбца")

a2 = InputBox("Введите буквенный код правого (последнего) столбца")

Columns(a1 & ":" & a2).Select

Selection.EntireColumn.Hidden = False

End Sub

Макрос для отображения одного скрытого столбца

Sub Столбец_с_буквой_показать()

a = InputBox("Введите буквенный код столбца")

b = Range(a & 1).Column

Columns(b).Select

Selection.EntireColumn.Hidden = False

End Sub

Вот пока всё.

А на этом пока всё, всем пока, и до новых встреч!