Excel コンボボックスの値参照

シート上に配置したコンボボックスの選択されている値を
マクロの中で参照するにはどうすればよいのでしょうか?

No.5 ベストアンサー 回答者： nishi6 回答日時： 2001/09/25 15:58

＞このままのコードを実行するとDropDowns()が定義されてないとエラーになってしまいます。

どんなエラーかよくわかりませんが、少し追記すると、

まず、『ドロップ 1』はコンボボックスの名前です。新規に作成すると名前ボックス（シートの左上）に表示されます。
コンボボックスに別名を付けている場合はそれに変更します。

次に、

　Sub Test1()
　　　With DropDowns("ドロップ 1")
　　　　　MsgBox .ListIndex
　　　End With
　End Sub

は、Sheet1にコンボボックスがあって、Sheet1のコードウインドウに書く例です。


Sheet1にコンボボックスがあって、標準モジュールに書く場合は、

　Sub TestMoj1()
　　　With Worksheets("Sheet1").DropDowns("ドロップ 1")
　　　　　MsgBox .ListIndex
　　　　　MsgBox .List(.ListIndex)
　　End With
　End Sub

のようにします。多分メッセージボックスが出ると思いますが・・・(Excel97で確認)

この回答へのお礼

標準モジュールに書いていたのにシートの指定を記述していなかったのが原因でした。
おかげで助かりました、ありがとうございました。

お礼日時：2001/09/25 18:25

No.4 回答者： nishi6 回答日時： 2001/09/25 13:02

表示　→　ツールバー　→　フォーム　のコンボボックスなら

Sub Test1()
　　With DropDowns("ドロップ 1")
　　　　MsgBox .ListIndex '何番目か(1から)
　　　　MsgBox .List(.ListIndex) 'リスト
　　End With
End Sub

表示　→　ツールバー　→　コントロールツールボックス　のコンボボックスなら
Sub Test2()
　　With ComboBox1
　　　　MsgBox .ListIndex '何番目か(0から)
　　　　MsgBox .List(.ListIndex) 'リスト
　　End With
End Sub

のような感じでしょうか。(Excel97です)

この回答へのお礼

回答ありがとうございます。
知りたかったのは前者です。後者は知りませんでした。
しかし、このままのコードを実行するとDropDowns()が定義されてないとエラーになってしまいます。
お手数をおかけしますが、再度アドバイスを頂ければと思います。

お礼日時：2001/09/25 13:44

No.3 回答者： holy_s 回答日時： 2001/09/25 12:33

こんにちは。

例えば、Sheet1のComboBox1の値を参照したければ、

Sheet1.ComboBox1.Value

でＯＫです。

この回答へのお礼

回答ありがとうございます。
私の質問の仕方が悪かったようです。
下の方の所へ補足しましたのでもしご存知であれば
再度回答をお願いします。

お礼日時：2001/09/25 13:39

No.2 回答者： akasaka 回答日時： 2001/09/25 12:29

私は…

コンボボックスに着けた名前.Value

…で、参照しています。

この回答へのお礼

回答ありがとうございます。
私の質問の仕方が悪かったようです。
下の方の所へ補足しましたのでもしご存知であれば
再度回答をお願いします。

お礼日時：2001/09/25 13:38

No.1 回答者： zerosix 回答日時： 2001/09/25 12:26

ComboBox1.Valueでできますよ。

Sub b()
ComboBox1.ListIndex = 1’選択した行番号
MsgBox ComboBox1.Value

End Sub

この回答へのお礼

回答ありがとうございます。
知らなかったのですが、上の方の回答にあるようにコンボにも2種類あるのですね。
今回知りたかったのはフォームツールバーから作成したコンボボックスで、Object名を自分で設定できなかったので値の参照方法が分りませんでした。

お礼日時：2001/09/25 13:34