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

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

No.1 ベストアンサー 回答者： imogasi 回答日時： 2008/11/06 14:26

そのリストボックスの、コードの表示で

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

この回答へのお礼

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

お礼日時：2008/11/06 15:00

No.3 回答者： xls88 回答日時： 2008/11/06 15:01

下記ページが参考になります。

フォームコントロールの場合です。

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

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

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

No.2 回答者： ookami1969 回答日時： 2008/11/06 14:38

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