Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Кнопка Cb1, скрыть/ отобразить столбцы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Кнопка Cb1, скрыть/ отобразить столбцы (Макросы/Sub)
Кнопка Cb1, скрыть/ отобразить столбцы
vb_abc Дата: Среда, 24.12.2014, 22:23 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Здравствуйте! Помогите, п-та.
Есть кнопка Cb1 (не ActiveX). По ней хочется по макросу скрыть/ отобразить столбцы:
("C,E:F,AA,AD:AF,AI,AL:AN")
Столбцы ("E:F") понимаю как скрыть.
А вот как отобразить столбцы, и тем более по всему диапазону ("C,E:F,AA,AD:AF,AI,AL:AN") не понимаю и не получается.
В файле есть макрос.
Помогите, п-та!
С уважением!
К сообщению приложен файл: Cb1_macros.xlsm (16.3 Kb)


Сообщение отредактировал vb_abc - Среда, 24.12.2014, 23:07
 
Ответить
СообщениеЗдравствуйте! Помогите, п-та.
Есть кнопка Cb1 (не ActiveX). По ней хочется по макросу скрыть/ отобразить столбцы:
("C,E:F,AA,AD:AF,AI,AL:AN")
Столбцы ("E:F") понимаю как скрыть.
А вот как отобразить столбцы, и тем более по всему диапазону ("C,E:F,AA,AD:AF,AI,AL:AN") не понимаю и не получается.
В файле есть макрос.
Помогите, п-та!
С уважением!
Автор - vb_abc
Дата добавления - 24.12.2014 в 22:23
Leanna Дата: Среда, 24.12.2014, 22:30 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
Отобразить столбцы [vba]
Код
Columns("E:F").Hidden = False
[/vba]
А диапазон надо каждый отдельно проставлять, не через запятую, а отдельно в каждую строчку.

Лучше день потерять, потом за пять минут долететь!
 
Ответить
СообщениеОтобразить столбцы [vba]
Код
Columns("E:F").Hidden = False
[/vba]
А диапазон надо каждый отдельно проставлять, не через запятую, а отдельно в каждую строчку.
Автор - Leanna
Дата добавления - 24.12.2014 в 22:30
RAN Дата: Среда, 24.12.2014, 22:34 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Range("C:C,E:F,AA:AA,AD:AD").EntireColumn.Hidden = 0
[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 24.12.2014, 22:36
 
Ответить
Сообщение[vba]
Код
Range("C:C,E:F,AA:AA,AD:AD").EntireColumn.Hidden = 0
[/vba]
Автор - RAN
Дата добавления - 24.12.2014 в 22:34
vb_abc Дата: Среда, 24.12.2014, 22:45 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Не знаю почему, но
Range("C:C,E:F,AA:AA,AD:AD").EntireColumn.Hidden = 0
не срабатывает.
Кнопка точно назначена на макрос Cb1_Click.
А как отобразить эти столбцы этой же кнопкой?


Сообщение отредактировал vb_abc - Среда, 24.12.2014, 22:48
 
Ответить
СообщениеНе знаю почему, но
Range("C:C,E:F,AA:AA,AD:AD").EntireColumn.Hidden = 0
не срабатывает.
Кнопка точно назначена на макрос Cb1_Click.
А как отобразить эти столбцы этой же кнопкой?
Автор - vb_abc
Дата добавления - 24.12.2014 в 22:45
RAN Дата: Среда, 24.12.2014, 22:54 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
:D
Так он и отображает.
А скрыть
[vba]
Код
= -1
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение:D
Так он и отображает.
А скрыть
[vba]
Код
= -1
[/vba]
Автор - RAN
Дата добавления - 24.12.2014 в 22:54
vb_abc Дата: Среда, 24.12.2014, 22:59 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Спасибо большое!
по = -1 указанные столбцы скрылись.
Как теперь отобразить скрывшиеся столбцы этой же кнопкой?
 
Ответить
СообщениеСпасибо большое!
по = -1 указанные столбцы скрылись.
Как теперь отобразить скрывшиеся столбцы этой же кнопкой?
Автор - vb_abc
Дата добавления - 24.12.2014 в 22:59
JayBhagavan Дата: Среда, 24.12.2014, 23:17 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 27 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Columns("E:F").Hidden = IIf(Columns("E:F").Hidden, False, True)
[/vba]

Языком ты или построишь жизнь,или разрушишь ее до основания.Думайте что говорите.(с)А.Хакимов
 
Ответить
Сообщение[vba]
Код
Columns("E:F").Hidden = IIf(Columns("E:F").Hidden, False, True)
[/vba]
Автор - JayBhagavan
Дата добавления - 24.12.2014 в 23:17
RAN Дата: Среда, 24.12.2014, 23:25 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Range("C:C,E:F,AA:AA,AD:AD").EntireColumn.Hidden = Not Range("C:C,E:F,AA:AA,AD:AD").EntireColumn.Hidden
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Range("C:C,E:F,AA:AA,AD:AD").EntireColumn.Hidden = Not Range("C:C,E:F,AA:AA,AD:AD").EntireColumn.Hidden
[/vba]
Автор - RAN
Дата добавления - 24.12.2014 в 23:25
vb_abc Дата: Среда, 24.12.2014, 23:27 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Большое спасибо СРАБОТАЛО!
Но это верно для диапазона ("E:F").
Как сделать для диапазона:
("C:C,E:F,AA:AA,AD:AF,AI:AI,AL:AN") ???
С уважением!
 
Ответить
СообщениеБольшое спасибо СРАБОТАЛО!
Но это верно для диапазона ("E:F").
Как сделать для диапазона:
("C:C,E:F,AA:AA,AD:AF,AI:AI,AL:AN") ???
С уважением!
Автор - vb_abc
Дата добавления - 24.12.2014 в 23:27
vb_abc Дата: Среда, 24.12.2014, 23:33 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Большое всем СПАСИБО!
Range("C:C,E:F,AA:AA,AD:AF,AI:AI,AL:AN").EntireColumn.Hidden = Not Range("C:C,E:F,AA:AA,AD:AF,AI:AI,AL:AN").EntireColumn.Hidden
Точно сработало!
Вопрос закрыт!
 
Ответить
СообщениеБольшое всем СПАСИБО!
Range("C:C,E:F,AA:AA,AD:AF,AI:AI,AL:AN").EntireColumn.Hidden = Not Range("C:C,E:F,AA:AA,AD:AF,AI:AI,AL:AN").EntireColumn.Hidden
Точно сработало!
Вопрос закрыт!
Автор - vb_abc
Дата добавления - 24.12.2014 в 23:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Кнопка Cb1, скрыть/ отобразить столбцы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!