Excel VBAについて質問です。

質問

VBA初心者です。

フォームを2つ作成しております。
1つはフォーム名[入力用]
もう１つはフォーム名[要求元]です。

フォーム[要求元]はリストボックス[リスト]と
コマンドボタン[入力]と[終了]があります。
リストボックスのデータはRowsourceでセル番地を直接指定してます。

フォーム[要求元]においてリストボックスでデータを選びコマンドボタン[登録]を押すと、
フォーム[入力用]のテキストボックスに代入する方法がわかりません。

どなたか御教授お願い致します。

回答No.2

kkkkkm · ベストアンサー

こんな感じでいかがですか。

Private Sub 登録_Click()
入力用.TextBox1.Value = Me.ListBox1.Value
入力用.Show
End Sub

お礼

早速の回答ありがとうございますm(_ _)m
大変助かりました。
とても親切に教えていただきありがとうございます。

回答No.1

ushi2015

こんばんは
Private Sub 入力_Click()
　　入力用.TextBox1.Text = Me.ListBox1.Value
End Sub
位で出来ないですか？

お礼

早速の回答ありがとうございますm(_ _)m
初心者なので本当に助かりました。
ありがとうございました。