☰

トグルボタンがアクティブになった後に自動的に更新される行

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

ProgressSheet1のすべての範囲にトグルボタンがある場合は、これを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

関連情報