Сделайте плиз макрос. Платно. Бюджет 300р. Оплата Яндекс.Ден

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

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

Мир MS Excel » Работа и общение » Работа / Фриланс » Сделайте плиз макрос. Платно. Бюджет 300р. Оплата Яндекс.Ден

nechaevm

Дата: Суббота, 10.08.2013, 21:34 | Сообщение № 1

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

Ранг: Прохожий

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

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

Excel 2007

Посмотрите плиз,
у меня почему-то не выполняется сравнение.

В общем смысл задачи:
1.Макрос запускается автоматом при открытии документа.
При выборе значения в фильтре в колонке один макрос берет значение фильтра и сравнивает со значением в строке 2 в колонках с 4 по 9.
после оставляет чего скрывает колонки с 4 по 9 во второй строке которых значение не совпадает со значением фильтра.
При изменеиии фильтра, колонки снова отображаются все и скрываются уже колонки в которых во второй строке не совпадает значение новой выборки из фильтра и так до тех пор, пока открыт файл.

С уважением,
Михаил.

[vba]

Код

Sub Фильтр()
If ThisWorkbook.Worksheets(1).AutoFilter.Filters(1).On Then
filter_string = ThisWorkbook.Worksheets(1).AutoFilter.Filters(1).Criteria1

For i = 4 To 9
If Cells(2, i) = filter_string Then
Columns(i).EntireColumn.Hidden = False
Else
Columns(i).EntireColumn.Hidden = True
End If
Next
End If
End Sub

[/vba]

Сообщение отредактировал nechaevm - Воскресенье, 11.08.2013, 07:51

Ответить

vikttur

Дата: Суббота, 10.08.2013, 22:25 | Сообщение № 2

Группа: Друзья

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

Сообщений: 2941

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

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

лишнее, прошу удалить

Сообщение отредактировал vikttur - Суббота, 10.08.2013, 22:47