Страницы: 1
RSS
Скрыть столбец по условию
 
Доброе утро!
Ребят маленькая просьба помочь!

Есть файл с 2-я листами - Sheet1 и Sheet2
Sheet2 содержит в колонке А название поля (дублируется на Sheet1) и в колонке В условие 1-0

Так вот вопрос - как организовать кнопку (где угодно) при нажатии которой она будет смотреть в колонку В Sheet2 и если 0 то искать значение напротив (колонка А, Sheet2), а затем находить его на Sheet1 и прятать эту колонку?

Буду очень благодарен
 
aimv,Примерно так
Код
Sub HiddenColumns()Application.ScreenUpdating = False
Arr = Sheets(2).Range("A2:B4")
For i = 1 To UBound(Arr)
    If Arr(i, 2) = 0 Then
        col = Sheets(1).Cells.Find(Arr(i, 1), Lookat:=xlWhole).Column
        Sheets(1).Columns(col).Hidden = True
    End If
Next i
Application.ScreenUpdating = True
End Sub
Изменено: Александр П. - 15.06.2018 09:27:41
 
Александр П.,Спасибо Большое!!!!

единственное немного развернул строку If Arr(i, 2) = 0 Then (Хайдило еденицы))))
 
aimv, да, извиняюсь, невнимательно прочитал
Страницы: 1
Наверх