0

Xchoose と Ychoose という名前の Sheet2 (UserForm ではない) に 2 つのコンボ ボックスがあります。ワークブックを開いたときに、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"

「オブジェクトが必要です」というエラーが表示されます。サブルーチンを別のモジュールに入れようとしましたが、同じエラーが発生します。

これらのコンボボックスに項目を追加する方法を誰か説明できますか? ありがとうございました！

4

1 に答える 1

1

これを試してください（ACTIVEX COMBOで試行およびテスト済み）

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
于 2012-08-16T20:18:28.427 に答える