请参阅activex列表框而不使用活动表

Question

我在工作表上有一个名为'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之类的属性不可用。

Answer 1

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