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

【问题标题】：Excel VBA: Checkbox element and How to count list elementsExcel VBA：复选框元素和如何计算列表元素
【发布时间】：2015-05-20 23:55:29
【问题描述】：

我使用 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

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

谢谢

【问题讨论】：

标签： list vba excel checkbox

【解决方案1】：

也许像下面这样：

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

【讨论】：

感谢您的回复。这有效，除了它使 ListBox 越来越小，因为我检查和取消选中 CheckBox。逻辑上看起来不错，但我想知道它为什么要这样做。
我想通了。当我打开属性窗口并将积分高度从“True”更改为“False”时，ListBox 不再变得越来越小。我找到了解决方案，但它为什么会这样做仍然没有意义。
@Kmanchel 我的测试用例中没有同样的问题，所以我很难提供帮助。一种选择是对ListBox 高度进行编码，以便在点击时扩展至适当的高度：例如ListBox1.Height = 200