Автоматическое скрытие столбцов и строк

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

Автоматическое скрытие столбцов и строк (Формулы/Formulas)

MDesh

Дата: Четверг, 20.11.2014, 19:41 | Сообщение № 1

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

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

Сообщений: 6

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

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

Excel 2010

Помогите, пожалуйста, написать и добавить в экселевский документ (в приложении) макрос (или 2, по 1 на каждое действие) по автоматическому скрытию столбцов и строчек, в которых присутствует значение "скрыть". Это действие должно выполняться автоматически при открытии экселевского файла.
Поясню мой пример. Есть таблица 5 на 5. В 6 столбце и в 6 колонке прописывается либо значение скрыть, либо ничего не прописывается.
В моем примере при открытии этого файла должны стать скрытыми столбцы 1 и 3 и строчки 2 и 4. Очевидно, что столбец 6 и строка 6 тоже скроются. Это нормально и не страшно, главное чтобы это не влияло на работу макроса.
Заранее благодарю за помощь!

К сообщению приложен файл: XX_TR_2_162.xls (23.0 Kb)

Ответить

sorcerer

Дата: Четверг, 20.11.2014, 21:06 | Сообщение № 2

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

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

Сообщений: 38

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

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

Excel 2010

Как то так вроде.
[vba]

Код

Sub p()
For i = 2 To 6
Cells(i, 7).Select
If Cells(i, 7) = "скрыть" Then
Rows(i).Hidden = True
End If
Cells(7, i).Select
If Cells(7, i) = "скрыть" Then
Columns(i).Hidden = True
End If
Next
Columns(7).Hidden = True
Rows(7).Hidden = True
End Sub

[/vba]

Ответить

Wasilich

Дата: Четверг, 20.11.2014, 21:30 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 1232

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

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

2003

Цитата MDesh, 20.11.2014 в 19:41, в сообщении № 1

макрос (или 2, по 1 на каждое действие)

[vba]

Код

Sub Столбцы()
Application.ScreenUpdating = False
   For i = 2 To 6
     If Cells(7, i) <> "" Then
        Cells(i).EntireColumn.Hidden = True
     End If
   Next
   Application.ScreenUpdating = True
End Sub

Sub Строки()
    Application.ScreenUpdating = False
    For i = 2 To 6
      If Cells(i, 7) <> "" Then
         Rows(i).EntireRow.Hidden = True
      End If
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]

Сообщение отредактировал Wasilic - Четверг, 20.11.2014, 21:32

Ответить

Автоматическое скрытие столбцов и строк (Формулы/Formulas)

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