☰

切換按鈕處於活動狀態後自動更新的行

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

相關內容