1

我在一张工作表上有 60 个复选框。它们是表单控制复选框。它们都执行类似的功能,即隐藏行。当您单击复选框时,它会显示行当未选中时,行将被隐藏。是否有一个简单的 if else 或 case 语句我可以为此编写:

Sub CheckBox1_Click()

    If Range("B4").Value = True Then
        Rows("5:62").EntireRow.Hidden = False
    Else
        Rows("5:62").EntireRow.Hidden = True
    End If

End Sub

Sub CheckBox2_Click()

    If Range("B63").Value = True Then
        Rows("64:102").EntireRow.Hidden = False
    Else
        Rows("64:102").EntireRow.Hidden = True
    End If

End Sub

Sub CheckBox3_Click()

    If Range("B103").Value = True Then
        Rows("104:129").EntireRow.Hidden = False
    Else
        Rows("104:129").EntireRow.Hidden = True
    End If

End Sub

Sub CheckBox4_Click()

    If Range("B130").Value = True Then
        Rows("131:160").EntireRow.Hidden = False
    Else
        Rows("131:160").EntireRow.Hidden = True
    End If

End Sub

Sub CheckBox5_Click()

    If Range("B161").Value = True Then
        Rows("162:183").EntireRow.Hidden = False
    Else
        Rows("162:183").EntireRow.Hidden = True
    End If

End Sub

Sub CheckBox6_Click()

    If Range("B184").Value = True Then
        Rows("185:222").EntireRow.Hidden = False
    Else
        Rows("185:222").EntireRow.Hidden = True
    End If

End Sub

Sub CheckBox7_Click()

    If Range("B223").Value = True Then
        Rows("224:244").EntireRow.Hidden = False
    Else
        Rows("224:244").EntireRow.Hidden = True
    End If
End Sub

........等等等等

另外,如果我需要添加更多行或删除行,我将如何编码?

我希望有一种格式,将来我可以用它来创建自己的复选框,而无需单独手动修复和编辑它们

4

1 回答 1

3

你可以使用这样的东西:

Sub CheckBox1_Click()
   HideRows "B63", "64:102"
End Sub


Sub HideRows(controllerRange, rowRange)
   Rows(rowRange).EntireRow.Hidden = Not Range(controllerRange).Value
End Sub

您也可以直接从复选框中调用 HideRows。

在 CheckBox1 分配宏中,您将输入以下内容:

'HideRows "B63","64:102"'

注意:必须如图所示输入单引号。

于 2013-09-19T21:33:00.200 回答