は、アクティブシートを使用しない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のようなプロパティは利用できません。アクティブX ListBoxで

Answer 1

は、以下のコードを試してください：あなたの代わりにこれを使用する場合

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