Excel VBA: 复选框元素和如何计算列表元素

Question

我使用 activex 控件创建了一个列表框。我希望在已单击复选框且在单击时为空的情况下，在给定一系列单元格的情况下填充列表。另外，我想在取消选中复选框后清除列表（这行代码有误，请更正）：

Private Sub CheckBox1_Click()
    If CheckBox1 = True  Then
        Listbox1.List = Range("C32:C33").Value
    ElseIf Check_Box1 = False Then
        Listbox1.List = ""
    End If
End Sub

此外，是否有计算给定列表框中元素数量的函数？

谢谢

Answer 1

可能如下所示：

Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value = True Then
        ListBox1.ListFillRange = "=A1:A4"
    Else
        ListBox1.ListFillRange = ""
    End If
End Sub

Excel VBA: 复选框元素和如何计算列表元素

Excel VBA: Checkbox element and How to count list elements

checkbox

excel

vba

list