テキストボックス空欄への追加入力

質問

リストボックス１であ行の氏名項目を選択実行しテキストボックス１～８に入力された後にか行にリストボックス項目を変え氏名を選択実行した場合、下記のコードではテキストボックス１からまた上書きされる。テキストボックス空欄に続けて選択項目が入力される方法はあるのでしょうか。悩んでいます。どなたかコードがわかる方よろしくお願いします。

Private Sub 実行Cnd_Click()
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
End Sub

回答No.1

n-jun · ベストアンサー

Private Sub 実行Cnd_Click()

Static cnt As Integer
Dim i As Integer
If ListBox1.ListIndex = -1 Then Exit Sub
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
cnt = cnt + 1
' cnt　が１０を超えたらどうするのか？
' If cnt > 10 Then cnt = 1
Me.Controls("TextBox" & cnt).Text = ListBox1.List(i)
End If
Next

End Sub

お礼

有難うございます。非常に助かりました。