Excel VBA代碼在要隱藏的范圍內添加新行時更新隱藏/取消隱藏行功能

Question

我目前有一個代碼，當單擊activeX復選框時可以隱藏一定范圍的單元格：

版本1：

Private Sub CheckBox1_Click()

    If CheckBox1.Value = True Then

    Rows("14:30").Hidden = False

    Else

    Rows("14:30").Hidden = True

    End If

End Sub

Private Sub CheckBox2_Click()

    If CheckBox2.Value = True Then

    Rows("32:38").Hidden = False

    Else

    Rows("32:38").Hidden = True

    End If

End Sub

Private Sub CheckBox3_Click()

    If CheckBox3.Value = True Then

    Rows("40:54").Hidden = False

    Else

    Rows("40:54").Hidden = True

    End If

End Sub

版本2：

Private Sub CheckBox1_Click()

    [14:30].EntireRow.Hidden = Not CheckBox1

End Sub

Private Sub CheckBox2_Click()

    [32:38].EntireRow.Hidden = Not CheckBox2

End Sub

Private Sub CheckBox3_Click()

    [40:54].EntireRow.Hidden = Not CheckBox3

End Sub

問題：

兩種版本都能正常工作，但問題是，當在指定范圍內添加新行時，行規范顯然不會更新，因為它們不是變量。

注意 ：有超過3個ActiveX復選框。 我大約19歲。

題

我知道范圍需要輸入整數或變量，但我只是VBA的新手，甚至都不是程序員（4年前在大學里研究了一些編程應用程序，因此可以讀一些代碼），所以我不知道該怎么做去做吧。 目前正在致力於在工作中自動執行excel文件，並且會喜歡您的幫助！ 我已經為此奮斗了幾天:(

Excel文件如下所示：

先感謝您！！

Answer 1

您需要動態確定每個部分的開始行和結束行。 這應該適用於頂部A-常規部分。

Option Explicit

Private Sub CheckBox1_Click()

    Dim m1 As Variant, m2 As Variant

    m1 = Application.Match("A -*", Columns(1), 0)
    m2 = Application.Match("B -*", Columns(1), 0)

    If IsError(m1) Or IsError(m2) Then Exit Sub

    With Range(Cells(m1 + 1, "A"), Cells(m2 - 1, "A"))
        .EntireRow.Hidden = Not CheckBox1.Value
    End With

End Sub