Макрос на скрытие-отображение столбцов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на скрытие-отображение столбцов (Макросы/Sub)

Lich

Дата: Вторник, 03.01.2017, 08:34 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Здравствуйте уважаемые. Подскажите, пожалуйста, написал макрос на скрытие столбцов, но мне кажется, что я слишком намудрил, можно ли упростить? Вдобавок надо, чтобы он открывал скрытые столбцы E-F-G?
Приложил пример. Скрыл столбцы E-F-G вручную.

[vba]

Код

Sub Кнопка9_Щелчок()

If Columns("B").EntireColumn.Hidden = False Then
  Columns("B:D").EntireColumn.Hidden = True
Else
  Columns("B:D").EntireColumn.Hidden = False
End If

If Columns("H").EntireColumn.Hidden = False Then
  Columns("H:BF").EntireColumn.Hidden = True
Else
  Columns("H:BF").EntireColumn.Hidden = False
End If

End Sub

[/vba]

К сообщению приложен файл: 2026787.rar (18.9 Kb)

Сообщение отредактировал Lich - Вторник, 03.01.2017, 08:35

Ответить

buchlotnik

Дата: Вторник, 03.01.2017, 09:27 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

Доброе утро, я бы так писал: [vba]

Код

Sub Кнопка9_Щелчок() ' отображение и скрытие столбцов

Columns("B:BF").Hidden = Not Columns("B").Hidden

End Sub

[/vba]

Сообщение отредактировал buchlotnik - Вторник, 03.01.2017, 09:34

Ответить

Lich

Дата: Вторник, 03.01.2017, 11:44 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Спасибо большое, так значительно проще.

Ответить

micholap_denis

Дата: Четверг, 26.03.2020, 08:24 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

buchlotnik,
день добрый
подскажите а как записать в макросе если нужно чтоб скрывались/открывались выборочные столбцы те допустим
столбец А, потом С-Д, И ....и тд тп

Ответить

Pelena

Дата: Четверг, 26.03.2020, 08:57 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

micholap_denis, создайте свою тему, приложив небольшой файл с примером. Эта тема закрыта

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на скрытие-отображение столбцов (Макросы/Sub)

Страница 1 из 1
1