如何使用 vba 判断 Excel 工作表上的 Active X 组合框是否有列表答案

【问题标题】：How can I use vba to tell if an Active X combobox on an excel sheet has an a list如何使用 vba 判断 Excel 工作表上的 Active X 组合框是否有列表
【发布时间】：2015-07-02 15:49:44
【问题描述】：

如何使用 vba 判断 Excel 工作表上的 Active X 组合框是否有一个包含项目的列表。

如果组合框的列表中没有任何内容，则以下内容返回错误：

if UBound(MyComboBox.List, 1) > 1 then

如果列表中有项目，则以下返回错误：

if MyComboBox.List <> Null then

干杯！

奥利弗。

【问题讨论】：

没有 .ListCount 属性可以使用吗？
有！它完成了这项工作！谢谢！

标签： vba excel combobox

【解决方案1】：

以下代码检查 ComboBox1 中是否有项目并列出它找到的所有项目：

Dim lngRow As Long

If ComboBox1.ListCount > 0 Then
    For lngRow = 0 To ComboBox1.LineCount - 1
        Debug.Print ComboBox1.List(lngRow , 0)
    Next intRow
End If

【讨论】：

我对此表示赞同，但我会将您的计数器更改为 Long，因为 ComboBox 可以包含超过 32k 项。
太棒了！ .ListCount 是我所追求的！干杯！