Question

在excel中使用VBA，试图了解如何使用复选框隐藏/取消隐藏在特定列中具有特定值的任何行。我的练习使我的VBA技能变得越来越好，但是我对循环的了解还不够。感谢您可以提供的任何帮助。这是我到目前为止所拥有的。

a = "bat"
class Test():
    a = "ball"    
    b = [a for i in range(2)]
    e = lambda: a
    @staticmethod
    def f():
        return a
        
    g = lambda a=a: a
    d = a

print(Test.b)  # prints ["bat","bat"]
print(Test.e()) # prints bat
print(Test.f()) # prints bat
print(Test.g()) # prints ball
print(Test.d)  # prints ball

另外，当我取消选中该框时，我希望所有第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

使用复选框根据单元格值隐藏/取消隐藏行

1 个答案: