リストボックス選択をテキストボックスに貼付け

質問

ユーザーフォーム内のリストボックス１の選択項目２つをテキストボックス１及びテキストボックス２にそれぞれ貼付ける方法（コード）がわかりません。どなたかご教授の程、よろしくお願いします。

回答No.1

n-jun · ベストアンサー

これってＥｘｃｅｌＶＢＡとかで良いのかな？

Private Sub CommandButton1_Click() 'Commandボタン１を押した時に
Dim i As Integer
Dim j As Integer

j = 0

With ListBox1
For i = 0 To .ListCount - 1

If .Selected(i) Then
j = j + 1: Me.Controls("TextBox" & j).Text = .List(i)
If j = 2 Then Exit For 'テキストボックスが２個までなら２になったら中断
End If
Next
End With
End Sub

こんな感じでしょうかね。