☰

Строки, которые будут автоматически обновляться после активации переключателя

tag-icon • tag-icon microsoft-excel vba
Строки, которые будут автоматически обновляться после активации переключателя

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

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

решение1

Если Progressкнопка переключения находится на Листе1 вместе со всеми диапазонами, поместите ее в модуль Лист1.

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

Связанный контент