Макрос "Скрытие колонок по условию в другой вкладке"

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

Макрос "Скрытие колонок по условию в другой вкладке" (Макросы/Sub)

Abaza

Дата: Вторник, 17.03.2015, 19:35 | Сообщение № 1

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

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

Сообщений: 11

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

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

Excel 2010

Коллеги, здравствуйте!
У меня такая проблема! Не могу написать макрос, который работал бы в привязке к переключателю.
Ситуация следующая. Есть файл с двумя вкладками. В одной находится панель управления, где куча всяких кнопок, одной из которых является мой переключатель.
Нужно сделать так, чтобы при выборе в переключателе значения "Год", во вкладке "Data" скрывались выделенные колонки. А при выборе второго значения, ничего не изменялось.
Огромная просьба помочь с решением проблемы.

К сообщению приложен файл: 9011820.xlsx (12.7 Kb)

Ответить

tsap

Дата: Вторник, 17.03.2015, 21:32 | Сообщение № 2

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

Ранг: Участник

Сообщений: 60

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

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

2013

Добрый день
Попробуйте данный код:

[vba]

Код

Sub Щелчок()
Dim i As Boolean
Select Case Application.Caller
Case "Перекл. 1": i = 1
Case "Перекл. 2": i = 0
End Select
Worksheets("Data").Columns("f:h").EntireColumn.Hidden = i
End Sub

[/vba]

Назначьте на оба переключателя