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：复选框元素和如何计算列表元素

1 个答案: