リストボックスの選択項目をテキストボックスへ

質問

リストボックス1の選択項目７項目を左列のテキストボックス１０個のうち７個に反映するコードがわかりません。どなたかご教授のほどよろしくお願いします。

回答No.1

n-jun · ベストアンサー

これってテキストボックスのコントロール名が不明ですが、
取りあえずＴｅｘｔＢｏｘ1～TextBox10までと言うなら。

Dim cnt As Integer
Dim i As Integer

If ListBox1.ListIndex = -1 Then Exit Sub

cnt = 1

For i = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(i) Then
Me.Controls("TextBox" & cnt).Text = ListBox1.List(i)
cnt = cnt + 1
End If

Next

これでも出来そうです。

ただし、テキストボックスの配置順が違うとか
名前を変更しているとかだとダメでしょうけど。

お礼

ありがとうございます。悩んでおり可決でき感謝しています。