通过命令按钮的动态复选框事件

Question

我目前正在编写一个 sheet 程序，可以在图表中可视化数据集。因为这个 sheet 的用户不需要所有的图表，我想让他们通过用户窗体选择需要的图表。由于数据集的数量是可变的，用户窗体将具有与数据集相同数量的复选框。

Userform代码如下

Private Sub UserForm_Initialize()

Dim chkBoxA     As MSForms.CheckBox
Dim chkBoxB     As MSForms.CheckBox
Dim lblBox      As MSForms.Label
Dim cnt         As Control

Amount = Sheet4.Range("C4").Value 'Amount of datasets

For i = 1 To Amount
    Set lblBox = Me.Controls.Add("Forms.label.1", "Label" & i)
        lblBox.Caption = "Set" & i
        lblBox.Left = 5
        lblBox.Top = 8 + ((i - 1) * 40)
    Set chkBoxA = Me.Controls.Add("Forms.CheckBox.1", "A" & i)
        chkBoxA.Caption = "Graph a"
        chkBoxA.Left = 55
        chkBoxA.Top = 5 + ((i - 1) * 40)
    Set chkBoxB = Me.Controls.Add("Forms.CheckBox.1", "B" & i)
        chkBoxB.Caption = "Graph b"
        chkBoxB.Left = 55
        chkBoxB.Top = 20 + ((i - 1) * 40)
Next

CommandButton1.Left = 20
CommandButton1.Top = 40 + ((Amount - 1) * 40)
CommandButton1.TabIndex = Amount * 3 + 1

Me.Height = 220

Me.ScrollBars = fmScrollBarsVertical
Me.ScrollWidth = Me.InsideWidth * 9
For Each cnt In Me.Controls
    If cnt.Top + cnt.Height > Me.ScrollHeight Then
        Me.ScrollHeight = cnt.Top + cnt.Height + 5
    End If
Next

End Sub

填写用户窗体后（通过单击选项选择图形），用户将按下命令按钮 1。事件应该运行显示正确的图形，但为了简单起见，我首先测试 MsgBox 是否会显示。不幸的是 MsgBox 没有出现。

Private Sub CommandButton1_Click()
'Will fix this with a loop
If A1 = True Then
    MsgBox ("TestA1")
End If
If B1 = True then
    MsgBox ("TestB1")
End If
If A2 = True then
    MsgBox ("TestA2")
End If

Unload Me

End Sub

我卡在这部分了。复选框确实显示在用户窗体上并且可以单击，但命令按钮仅关闭子 (Unload Me)。当我 select 相应的选项并单击命令按钮时，我希望看到 MsgBox 出现。任何帮助让它工作的帮助都将不胜感激！

Answer 1

您在子程序中引用了 'A1'，但该变量在编译时不存在，因为您是动态添加它们的。您需要做的是循环控件，以检查名称。最佳做法是将复选框放在一个框架中，以便能够对它们进行分组。向用户窗体添加一个框架并将其命名为 'checkboxframe'

然后代替：

For i = 1 To Amount
    Set lblBox = Me.Controls.Add("Forms.label.1", "Label" & i)
        lblBox.Caption = "Set" & i
        lblBox.Left = 5
        lblBox.Top = 8 + ((i - 1) * 40)
    Set chkBoxA = Me.Controls.Add("Forms.CheckBox.1", "A" & i)
        chkBoxA.Caption = "Graph a"
        chkBoxA.Left = 55
        chkBoxA.Top = 5 + ((i - 1) * 40)
    Set chkBoxB = Me.Controls.Add("Forms.CheckBox.1", "B" & i)
        chkBoxB.Caption = "Graph b"
        chkBoxB.Left = 55
        chkBoxB.Top = 20 + ((i - 1) * 40)
Next

你需要做的：

With Me.checkboxframe
    For i = 1 To Amount
        Set lblBox = .Controls.Add("Forms.label.1", "Label" & i)
            lblBox.Caption = "Set" & i
            lblBox.Left = 5
            lblBox.Top = 8 + ((i - 1) * 40)
        Set chkBoxA = .Controls.Add("Forms.CheckBox.1", "A" & i)
            chkBoxA.Caption = "Graph a"
            chkBoxA.Left = 55
            chkBoxA.Top = 5 + ((i - 1) * 40)
        Set chkBoxB = .Controls.Add("Forms.CheckBox.1", "B" & i)
            chkBoxB.Caption = "Graph b"
            chkBoxB.Left = 55
            chkBoxB.Top = 20 + ((i - 1) * 40)
    Next
End With

要将复选框添加到框架中，请使用如下内容：

For Each ctr In UserForm1.frame("checkboxframe").Controls
    If TypeName(ctr) = "CheckBox" Then
        If ctr.Value = True Then
            'do something usefull here
            msgbox ctr.name
        End If
    End If
Next ctr

Answer 2

没有出现的原因是没有手动定义为变量的对象"A1"。

要获取您动态命名为 "A1" 的框的值，您必须这样引用它：

If Me.Controls.Item("A1").Value = True then

希望对您有所帮助！

通过命令按钮的动态复选框事件

Dynamic checkbox events through commandbutton

checkbox

excel

vba

userform