Скрыть строк - Мир MS Excel

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

Скрыть строк (Макросы/Sub)

Скрыть строк

dx84

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

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

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

Сообщений: 71

Репутация: -8 ±

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

Excel 2010

Всем доброго дня!
Уважаемые прошу помощи. Нашел на форуме макрос по скрытию и отображению столбцов.

[vba]

Код

Private Sub Cb1_Click()
On Error Resume Next
rc_ = Rows("1:1").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants, 23).Count
If Err.Number > 0 Then
Rows("1:1").SpecialCells(xlCellTypeConstants, 23).EntireColumn.Hidden = False
Cb1.Caption = "скрыть"
Else
Rows("1:1").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants, 23).EntireColumn.Hidden = True
Cb1.Caption = "Отобразить"
End If
Sheets("Лист1").Select
On Error GoTo 0
End Sub

[/vba]

В моем случае нужно скрыть строки с условием, если в столбце F пустая строчка. Условие по скрытию строк должно распространятся на диапазон F2:F23
[moder]Оформляйте коды тегами (кнопка #)[/moder]
[moder]Другой модератор - фраза "в столбце F пустая строчка" как-то немного настораживает, Вам не кажется? А посему Вам последнее китайское предупреждение - читайте Правила форума. А то начну зверствовать. Уверяю, Вам не понравится.[/moder]

[admin]Тема закрыта. Причина: Нарушение правил пп 2, 3[/admin]

Ответить