☰

토글 버튼이 활성화된 후 자동으로 업데이트할 행

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모든 범위와 함께 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

관련 정보