vba - 在工作表（不是表单）中初始化组合框——错误：需要对象

Question

我在 Sheet2（不是用户窗体）中有两个组合框，分别名为 Xchoose 和 Ychoose。当工作簿打开时，我想用 Sheet1 中单元格的值填充它们。

此时，我什至无法向组合框添加静态字符串。到目前为止，这是我的设置...

在 ThisWorkbook 中，我有：

Sub Workbook_Open()
    Call Sheet2.Init_Lists
End Sub

在 Sheet2（比较）中，我有：

Sub Init_Lists()
    MsgBox "Initializing..."
    Xchoose.AddItem "item 1"
    ' This subroutine will eventually add values from Sheet1.
End Sub

Sub Xchoose_Change()
    ' To do.
End Sub

Sub Ychoose_Change()
    ' To do.
End Sub

打开工作簿时出现“正在初始化...”消息框，表示Init_Lists工作正常，但随后程序中断行

Xchoose.AddItem "item 1"

出现错误“需要对象”。我尝试将子例程放在一个单独的模块中，但我收到了同样的错误。

有人可以解释我如何将项目添加到这些组合框中吗？谢谢！

Answer 1

试试这个（为 ACTIVEX 组合尝试和测试）

Private Sub Workbook_Open()
    Sheet2.Xchoose.AddItem "item 1"
End Sub

或者

Sub Init_Lists()
    MsgBox "Initializing..."
    Sheet2.Xchoose.AddItem "item 1"
    ' This subroutine will eventually add values from Sheet1.
End Sub