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

在不使用activesheet的情况下参考activex列表框

vba excel

Absinthe · 技术社区 · 7 年前

我在工作表上有一个名为“lbCCGs”的ActiveX列表框。

此代码编译:

Debug.Print ActiveSheet.lbCCGs.ListCount

但该代码不:

Dim ws as worksheet
Set ws = Sheets("A&E")
Debug.Print ws.lbCCGs.ListCount

如何在不使用ActiveSheet的情况下声明和引用ActiveX列表框?我已经尝试将其声明为OLEObject和Object,但是像ListCount这样的属性不可用。

1 回复 | 直到 7 年前

Shai Rado 7 年前

使用Active-X ListBox 请尝试以下代码:

Dim ws As Worksheet
Dim lbcLB As OLEObject

Set ws = Sheets("A&E")

' Set the ActiveX List-Box object to a variable
Set lbcLB = ws.OLEObjects("lbCCGs")

Debug.Print lbcLB.Object.ListCount

推荐文章

Excel Questions · 用于根据条件从工作表1到工作表2提取数据的Excel VBA代码[已关闭]

1 年前

jbirk94 · EXCEL:当lookup_value是一个范围时,如何使用XLOOKUP返回多个列?

1 年前

Abel Zewdu · 我有3列,其中一列的值为1,其他列的值则为0。如何获取值为1的列名?

1 年前

Interactive · 如果相邻单元格为空,则VBA完成循环

1 年前

RonanC · VBA数据验证下拉列表,是否也允许自由文本?

1 年前

user1646660 · 如果日期介于两个日期之间,则向插槽添加日期

1 年前

Blake S · Excel宏错误:过程调用或参数无效

1 年前

Hieu Minh · 数据透视表无法覆盖现有的合并单元格

1 年前

Fxp · 如何将数字或日期格式应用于Excel中TEXTSPLIT之后的列

1 年前

Nick · 当条件匹配电源查询时,从单独的查询中返回多列

2 年前