使用復選框根據單元格值隱藏/取消隱藏行

Question

在 excel 中使用 VBA，試圖了解如何使用復選框隱藏/取消隱藏在特定列中具有特定值的任何行。 我的 VBA 技能越來越好，但我仍然不擅長循環。 感謝您提供的任何幫助。 這是我到目前為止所擁有的。

Private Sub CkBx_ShowAllRecords_Click()
If Me.CkBx_ShowAllRecords = True Then
 For Each Row In Range("Table1").ListObject.ListColumns
    If Row.Cells(1, "column5").Value = "Submission Complete" Then
    Application.EntireRow.Visible=True
Next
End if
End Sub

此外，當我取消選中該框時，我希望隱藏第 5 列單元格值等於“提交完成”的所有行（與我選中該框控件時放在上面的內容相反）。

Answer 1

希望這可以幫助你：

Private Sub CkBx_ShowAllRecords_Click()
Dim i As Long
If Me.CkBx_ShowAllRecords = True Then
    For i = 1 To ActiveSheet.ListObjects("Table1").Range.Rows.Count
        If ActiveSheet.ListObjects("Table1").DataBodyRange(i, 5).Value = "Submission Complete" Then
            Rows((i + 1) & ":" & (i + 1)).Select
            Selection.EntireRow.Hidden = True
        End If
    Next i
Else
    ActiveSheet.Rows.EntireRow.Hidden = False
End If
Me.Hide
End Sub