Как решит задачу с ячейками Если в ячейки B1 значения 1 то ячейки 27 и 41 открывается (+), если ячейки B1 значения 0 то ячейки 27 и 41 закрывается (-) и так далее
Как решит задачу с ячейками Если в ячейки B1 значения 1 то ячейки 27 и 41 открывается (+), если ячейки B1 значения 0 то ячейки 27 и 41 закрывается (-) и так далееEnix
amfor Да, можно ли упростить задачу если А1 0-30 кроме 1, макросе If Cells(1, 1) = 0 и до If Cells(1, 1) = 30 , кроме цифры 1 разгруппировался
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long Application.ScreenUpdating = False Application.EnableEvents = False For i = 2 To 26 If Cells(1, 1) = 0,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30 Then Rows(i).Hidden = True Else Rows(i).Hidden = False End If
amfor Да, можно ли упростить задачу если А1 0-30 кроме 1, макросе If Cells(1, 1) = 0 и до If Cells(1, 1) = 30 , кроме цифры 1 разгруппировался
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long Application.ScreenUpdating = False Application.EnableEvents = False For i = 2 To 26 If Cells(1, 1) = 0,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30 Then Rows(i).Hidden = True Else Rows(i).Hidden = False End IfEnix