请参考activex列表框，而不使用activesheet

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

此代码编译：

Debug.Print ActiveSheet.lbCCGs.ListCount 

但是这个代码不会：

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

如何在不使用ActiveSheet的情况下声明和引用ActiveX列表框？ 我试图声明它作为一个OLEObject和一个对象，然后像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