代码之家 › 专栏 › 技术社区 › phil_t

读取动态用户窗体复选框并填充数组

userform vba excel

phil_t · 技术社区 · 6 年前

我有一个动态填充的用户窗体-

For Each J In Temp
    Set Cbx = UserForm1.Controls.Add("Forms.CheckBox.1")
    Cbx.Caption = J
    Cbx.Left = 15
    Cbx.Top = 15 + (17.5 * (Cntr - 1))
    Cntr = Cntr + 1
Next J

Cntr = 15 + (17.5 * (Cntr - 1)) + 50

UserForm1.CommandButton1.Top = Cntr - 35

我还有一个命令按钮,从代码片段的最后一行可以看到。

当我单击命令按钮时,我想用 Caption 选中的复选框。

Private Sub CommandButton1_Click()
    Call Summary
End Sub

Sub Summary()

    Dim Num As Integer
    Dim I As Integer
    Dim FltrTypes() As Double

    Num = UserForm1.Controls.Count - 1

    ReDim Preserve FltrTypes(0)

    For I = 0 To (Num - 1)
        If Left(UserForm1.Controls(I).Name, 8) = "CheckBox" Then
            If UserForm1.Controls(I).Value = "True" Then
                FltrTypes(I) = UserForm1.Controls(I).Caption
            End If
        End If
    Next I

End Sub

但是数组没有填充。我哪里出错了?

1 回复 | 直到 6 年前

Phantom Lord 6 年前

问题是:

If UserForm1.Controls(I).Value = "True" Then

不带引号

If UserForm1.Controls(I).Value = True Then

FltrTpye 必须是 String 不 Double 但是有很多小错误,代码重写:

Dim Num As Integer
Dim I As Integer
Dim FltrTypes() As String
Dim NFltrTypes As Long

Num = UserForm1.Controls.Count - 1

Erase FltrTypes
NFltrTypes = 0
For I = 0 To (Num - 1)
    If Left(UserForm1.Controls(I).Name, 8) = "CheckBox" Then
        If UserForm1.Controls(I).Value = True Then
            ReDim Preserve FltrTypes(NFltrTypes)
            NFltrTypes = NFltrTypes + 1
            FltrTypes(NFltrTypes - 1) = UserForm1.Controls(I).Caption
        End If
    End If
Next I

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前