VBA (Visual Basic): ComboBox (Form Control) - 对象不支持此属性或方法

Question

刚刚注册！ （尽管我已经使用该网站几年了，哈哈！）。

我在 VBA 上遇到了一个问题，这让我抓狂。希望有人能解决我的问题。

我正在尝试引用我在 Sheet6 中手动添加的 ComboBox(Form Control)。它包含几个项目列表。然后我将遍历组合框中的每个项目并用它做一些事情..

但是对于我的一生，我无法理解我做错了什么？！

我不断收到运行时错误“438”：

Object doesn't support this property or method

This is the line the Run-time error occurs on:

Public Sub ReferralSummaries()

'Stop screen updates.
Application.ScreenUpdating = False

'Method Variables
Dim Lstrw As Long
Dim CurrentWb As Workbook
Dim ReferralSheet As Worksheet
Dim ResultsSheet As Worksheet
Dim ReferralSheetCBox As Object

'Initialize Variables
Set CurrentWb = ThisWorkbook
Set ReferralSheet = CurrentWb.Sheets("Referral Breakdowns")
Set ResultsSheet = CurrentWb.Sheets("Results")
Set ReferralSheetCBox = Worksheets(6)

'Check Date column and update accordingly
Call Update_Date_Column(ReferralSheet, ResultsSheet)

For i = 0 To ReferralSheetCBox.ComboBox1.Items.Count - 1 **(ERROR TRIGGERED HERE).**

感谢您的帮助！

亲切的问候， 忍者

Answer 1

我认为你应该使用

Set ReferralSheetCBox = Worksheets(6).Shapes("ComboBox1")

然后你可以通过它的ControlFormat属性访问它的属性，例如：

Dim nItems As Long
nItems = ReferralSheetCBox.ControlFormat.ListCount

因此您显示的代码最后一行将是

For i = 0 To ReferralSheetCBox.ControlFormat.ListCount - 1

Answer 2

您可以通过将ReferralSheetCBox 强输入为DropDown（这是包含 ComboBox 的隐藏类型）来使用早期绑定：

Dim ReferralSheetCBox As Excel.DropDown

然后设置对形状的DrawingObject的引用：

Set ReferralSheetCBox = Sheet6.Shapes("ComboBox1").DrawingObject

然后，您可以调整您的代码：

For i = 0 To ReferralSheetCBox.ListCount - 1