用户窗体上的Excel VBA multi-chechbox控件

Question

我对userforms上的复选框控件感到困惑。我必须控制表单中所有复选框的值，并根据值采取操作。例如， 如果cb（复选框）1,2和3为True，则excel将执行操作A. 如果cb 2,4和5为True，则excel将执行操作B. 等等...

如果没有那么多if语句，我如何控制多个复选框值？

Answer 1

你可以使用以下类型的伪代码：

With Me
    Select Case True
        Case .CheckBox1 And .CheckBox2 And .CheckBox3
            ' action A
        Case .CheckBox2 And .CheckBox4 And .CheckBox5
            ' action B
        Case ... ' other cases
            ' corresponding action

        Case Else ' if no preceeding cases are met
            ' default action
End With