MyTetra Share
Делитесь знаниями!
Как удалить скрытые столбцы? Программное удаление скрытых столбцов макросом VBA.
Время создания: 16.03.2019 23:43
Текстовые метки: удаление столбцов
Раздел: Разные закладки - VBA - Excel - Листы
Запись: xintrea/mytetra_db_adgaver_new/master/base/1518974742o2i9nbduhy/text.html на raw.githubusercontent.com

Как удалить скрытые столбцы? Программное удаление скрытых столбцов макросом VBA.

Подробности

Категория: Макросы Excel

Опубликовано: 08 апреля 2012

 

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

Как уже отчечалось ранее, отобразить скрытые объекты (в нашем случае столбцы) довольно просто, выделяется весь лист, нажатием нулевой ячейки (пересечение номеров строк и наименований солбцов) после чего из контекстного меню выбирается пункт "Отобразить". Если же требуется скрытые столбцы удалить, то стандартными средствами придется столбцы сначала отображать и только после этого удалять. Попробуем обойтись без промежуточных действий. Запускаем редактор Visual Basic и переносим туда программный код готового макроса, удаляющего скрытые столбцы в используемом диапазоне активного рабочего листа.

Sub Udalenie_Skrytyh_Stolbtsov()

Dim c As Long, FirstColumn As Long, LastColumn As Long

FirstColumn = ActiveSheet.UsedRange.Column

LastColumn = ActiveSheet.UsedRange.Columns.Count - 1 + ActiveSheet.UsedRange.Column

For c = LastColumn To FirstColumn Step -1

If Columns(c).Hidden = True Then Columns(c).Delete

Next c

End Sub

 

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

Другие материалы по теме:

  • Состав MS Office
  • Что такое VBA? Что такое макросы VBA? Что такое надстройки?
  • Создание и написание макросов. Как установить макрос на свой компьютер?
  • Как записать макрос макрорекордером? Как запустить макрос в Word и Excel?
  • Как сохранить программный код макроса? Что такое модули?
Так же в этом разделе:
 
MyTetra Share v.0.65
Яндекс индекс цитирования