VBA. Скрыть столбец.

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

Serg

Дата: Вторник, 17 Января 2017, 18:17 | Сообщение # 1

Ветеран форума

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

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

Привет всем. Есть у нас знатоки VBA?

Sub Hide()
Dim cell As Range
Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells'проходим по всем ячейкам первой строки
If cell.Value = "7" Then cell.EntireColumn.Hidden = 1 'а здесь мне нужно чтобы скрывался не текущий столбец, а следующий
Next

Application.ScreenUpdating = True
End Sub

VBA. Скрыть столбец.

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