Excel: Условно отображение ячеек

Question

Я пытаюсь создать форму ввода пользователя, которая имеет динамический условный дисплей. Другими словами, когда форма сначала открывается, я хотел бы, чтобы определенные ячейки не отображались, а затем я хотел бы, чтобы они отображались или нет, когда пользователь начинает вводить данные. Вот то, что я в настоящее время:

Основе от того, или не выбирает пользователь «Дни» или «Часы» из коробки в С3, я хотел бы для строк с 6 по 8, которые будут скрыты. Аналогично, если пользователь выбирает «Часы», строки с 9 по 11 должны быть скрыты. Это то, что я написал до сих пор:

Sub ConditionalDisplay() 
    BeginRow = 1 
    EndRow = 50 

    For RowCnt = BeginRow to EndRow 

    IF Cells(RowCnt, CheckColumn).Value = "Days" THEN 
     Rows("6:8").EntireRow.Hidden = TRUE 
    ELSE 
     Rows("6:8").EntireRow.Hidden = FALSE 
    END IF 

    Next RowCnt 
    End Sub 

Это не работает. Даже если бы это было так, я думаю, для этого потребуется, чтобы пользователь вручную запускал этот макрос каждый раз, когда он открывает эту книгу, чего нужно избегать.

Любые предложения?

Answer 1

Поместите этот код в модуль, прикрепленного к книге

Sub ConditionalDisplay() 
    With Worksheets("Calculator") 
     IF .Range("C3") <> "Days" And .Range("C3") <> "Hours" Then 
      .Rows("6:11").Hidden = True 
     Else 
      .Rows("6:8").Hidden = .Range("C3") = "Days" 
      .Rows("9:11").Hidden = .Range("C3") = "Hours" 
     End If 
    End With 
End Sub 

Затем в коде рабочего листа для Calculator поместить этот код события:

Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Intersect(Target, Range("C3")) Is Nothing Then 
    ConditionalDisplay 
End If 
End Sub 

Тогда в ThisWorkbook кодекс поставил это событие:

Private Sub Workbook_Open() 
Worksheets("Calculator").Range("C3") = "" 
ConditionalDisplay 
End Sub