Скрыть столбец по значению в ячейке.

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

Скрыть столбец по значению в ячейке. (Макросы/Sub)

bumnik

Дата: Пятница, 04.09.2015, 18:26 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 185

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

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

Excel 2007,2010

Здравствуйте! Необходимо исправить код макроса: если в строке E4:AI4 есть "0", то столбец с "0" скрыть, если "1", то столбец показать. Т.е в зависимости от количества дней в месяце меняется количество столбцов. И такое же действие происходит на листе БДМ№1 и 2.

К сообщению приложен файл: __2.xlsm (92.0 Kb)

Ответить

_Boroda_

Дата: Пятница, 04.09.2015, 19:20 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17005

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

такой вариант
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
     Application.ScreenUpdating = 0
     If Target.Address(0, 0) = "A1" Or Target.Address(0, 0) = "S4" Then
         Sheets(1).Columns("AF:AI").EntireColumn.Hidden = False
         Sheets(2).Columns("AF:AI").EntireColumn.Hidden = False
         Sheets(3).Columns("AF:AI").EntireColumn.Hidden = False
         For i = 32 To 35
             If Cells(4, i) = 0 Then
                 Sheets(1).Columns(i).EntireColumn.Hidden = True
                 Sheets(2).Columns(i).EntireColumn.Hidden = True
                 Sheets(3).Columns(i).EntireColumn.Hidden = True
             End If
         Next i
     End If
     Application.ScreenUpdating = 1
End Sub

[/vba]

К сообщению приложен файл: _2_1.xlsm (95.9 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995