MS Office - фильтрация по столбцам

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill

Ответить
jam12
Сообщения: 3
Зарегистрирован: 21 апр 2008, 11:47

Уважаемый VictorM!

Прошу помочь решить следующую заморочку:

Есть данные по месяцам январь и т.д. - в столбцах. (да январь в столбцах не один, а план, факт и отклонение = отображаться должны все)
Нужно сделать по большому счету фильтр(на другом листе книги), т.е. когда ставишь галочку напротив соответствующего периода то он отображается, иначе нет. НО я не знаю как сделать так чтобы отображались например март и апрель и т.д. т.е. не только 1 месяц. Да и после отображения например "марта" не приходилось разворачивать все периоды и делать новую группировку например "апреля", а не просто поставить галочку напротив апреля сняв галочку у "марта".
Логически я представляю, что нужно задать параметр:
Если кнопка январь-декабрь = ИСТИНА, то её не скрывать. иначе - скрыть.
Но т.к. абсолютно не знаком с программированием не могу написать соответствующие комманды в VBA.

P.S. К сожалению не знаю как прикрепить к данному сообщению наработки в Excel.
Аватара пользователя
VictorM
Сообщения: 794
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

Не знаю, правильно ли я понял поставленную задачу.
Для полного понимая желательно иметь Ваш файлс примером.
Но может так? Посмотрите.
В примере только принцип, не все решение.
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
jam12
Сообщения: 3
Зарегистрирован: 21 апр 2008, 11:47

Супер, вот только я подразумевал периоды с галочкой отображать, а остальные скрывать. Это сложнее?
jam12
Сообщения: 3
Зарегистрирован: 21 апр 2008, 11:47

Супер поменял True на False и получил желаемый результат СУПЕР!!! ОГРОМНОЕ СПАСИБО!!!
Аватара пользователя
VictorM
Сообщения: 794
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

Ну раз все так хорошо, тогда на дальнейшее:
вот так должно выглядеть то, что Вы прислали мне в личку.

Код: Выделить всё

Sub август()
Sheets("Производство").Range("D:R, T:AC, AE:AS, AU:BD, BF:BT, BV:CE").EntireColumn.Hidden = True
End Sub
;)
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
Ответить