ユーザーフォームのコンボボックスの使い方

質問

Sub Macro1()
Range("A1").Select
ActiveCell.FormulaR1C1 = "あ"
End Sub

と言うマクロがあり、
UserForm1にComboBox1を作りました。

このComboBox1の右矢印をクリックしMacro1を呼び出し選んで実行させたいです。
どうすればいいのでしょうか？
よろしくお願いします。

回答No.1

imogasi · ベストアンサー

>と言うマクロがあり、
質問者がしたいことが正しく表現できていないと思うが、このマクロと関係ないのでは。
ユーザーフォームにコンボボックスを張り付け、ComboBox1のアイテムに語句を登録し、セレクタをクリックして、１つを選択するとＡ１セルに値がセットされるようにしたい」ではないか。
質問振りから、今この課題をするには勉強不足だと思う。すぐ人に聞こうと言うのは良くない。もっと勉強してからこの類のＶＢＡをやるべきです。
ーー
ユーザーフォームを作る
コンボボックスを１つ貼り付ける
シートの例えばＦ１：Ｆ３に
東京
大阪
福岡
などの語句を入れる
ーー
標準モジュールに
Sub test01()
UserForm1.ComboBox1.RowSource = "Sheet1!F1:F3"
End Sub
を入れて実行。
ーー
Ｃｏｍｂｏｂｏｘ１のＣｈａｎｇｅイベントに
Private Sub ComboBox1_Change()
Worksheets("Sheet1").Range("A1") = ComboBox1.Value
End Sub
ーー
実行ーＳｕｂ/ユーザーフォームの実行をクリック
ユーザーフォーム上のコンボの「福岡」などを選ぶ。
Ｓｈｅｅｔ１のＡ１セルに「福岡」が入る。

お礼

試してみたら出来ました。そうですね。もっと勉強したいと思います。大変参考になりました。ご回答ありがとうございます。