Строки обновляются автоматически после нажатия кнопки переключения

Question

Я пытаюсь сделать код (ниже), чтобы при нажатии кнопки переключения он отображал строки. Но есть несколько строк в этом, которые должны быть обновлены в соответствии с другой ячейкой и держать некоторые строки скрытыми в зависимости от значения этой ячейки. Приведенный ниже код работает, но строки не обновляются автоматически, и мне нужно нажать кнопку переключения, чтобы скрыть, а затем показать строки. Есть ли способ сделать его динамически связанным, чтобы он автоматически обновлял, какие строки скрывать? Спасибо

Dim xAddress As String
xAddress = "55:136"
If Progress.Value Then
    Application.ActiveSheet.Rows(xAddress).Hidden = False
    If Range("I24").Value = "Yes" Then
        Rows("92:102").EntireRow.Hidden = False
        Rows("103:110").EntireRow.Hidden = True
    ElseIf Range("I24").Value = "No" Then
        Rows("92:102").EntireRow.Hidden = True
        Rows("103:110").EntireRow.Hidden = False
    End If
Else
    Application.ActiveSheet.Rows(xAddress).Hidden = True
End If

Answer 1

Если Progress является кнопкой переключения на Sheet1 вместе со всеми диапазонами, поместите ее в модуль Sheet1

---

Option Explicit

Private Sub Progress_Click()
    Dim rngI24 As Boolean

    rngI24 = Me.Range("I24").Value2 = "Yes"

    Me.Rows("55:136").Hidden = Me.Progress.Value
    Me.Rows("92:102").Hidden = Not rngI24
    Me.Rows("103:110").Hidden = rngI24
End Sub