excelのリストボックスで選択した項目をアクティブセルに入力方法

質問

もしかしたら既出かもしれませんが・・・
フォームコントロールのリストボックスで入力範囲の指定したリストをリンクするセルをワークシート上にクリックしたセルに入力させる方法はありますか？
もし、不可能でしたら、ActiveXコントロールのリストボックスでも構いません。よろしくお願いいたします。

回答No.1

imogasi · ベストアンサー

そのリストボックスの、コードの表示で
Private Sub ListBox1_Click()
ActiveCell = ListBox1.List(ListBox1.ListIndex)
End Sub
と入れるだけ。
コントロールツールボックスのコントロールを、ワークシートに直接
貼り付けた場合。
WEBや解説書で、ListboxとかListindexなど調べましたか。

お礼

解決しました。簡単な事だったんですね。これからはしっかり下調べをして質問するようにします。何かありましたらまた、ご協力願います。ありがとうございました。

回答No.3

xls88

下記ページが参考になります。
フォームコントロールの場合です。

VBA入門者の”どっち？”・・・フォームツールバー or コントロールツールボックス（２）
http://www.moug.net/tech/exvba/0150072.htm

サンプルマクロをフォームコントロールに「マクロの登録」すれば良いです。
ActiveSheet.Cells(1,1).Value = .List(.ListIndex)
上記サンプルマクロでは、A1セルに値が入力されます。書き換えてください。

その都度、入力セルを指定するなら
Application.InputBoxメソッドを使えば良いと思います。

回答No.2

ookami1969

「入力規則」のリストを作成するんじゃダメなんですか？