リストボックスからの入力をテキストに貼付

質問

下記コードではリストボックあ行選択しテキスト1～6に入力後、クリアボタンで消去したあと、か行選択しテキストに入力したら7～貼付けになるクリアボタンで消去後、改めてテキスト1～入力するコードがありますか。どなたか解る方よろしくお願いします。

Private Sub 実行_Click()
Static cnt As Integer
Dim i As Integer
If Listbox.ListIndex = -1 Then Exit Sub
For i = 0 To Listbox.ListCount - 1
If Listbox.Selected(i) Then
cnt = cnt + 1
If cnt > 10 Then cnt = 1
Me.Controls("TextBox" & cnt).Text = Listbox.List(i)
End If
Next
End Sub

Private Sub クリア_Click()
Dim tbCont As Control
With Me.MultiPage1
For Each tbCont In .Pages(.Value).Controls
If TypeName(tbCont) = "TextBox" Then
tbCont.Value = Null
End If
Next tbCont
End With
End Sub

回答No.2

n-jun · ベストアンサー

＃１です。

変数名：cntを他で使っているなら注意してください。

' 追加
Private cnt As Integer

Private Sub 実行_Click()
' Static cnt As Integer 削除
Dim i As Integer
If ListBox.ListIndex = -1 Then Exit Sub
For i = 0 To ListBox.ListCount - 1
If ListBox.Selected(i) Then
cnt = cnt + 1
If cnt > 10 Then cnt = 1
Me.Controls("TextBox" & cnt).Text = ListBox.List(i)
End If
Next
End Sub

Private Sub クリア_Click()
Dim tbCont As Control
With Me.MultiPage1
For Each tbCont In .Pages(.Value).Controls
If TypeName(tbCont) = "TextBox" Then
tbCont.Value = Null
End If
Next tbCont
End With
cnt = 0 '追加
End Sub

ではどうでしょう？

お礼

お礼が遅れてすみません。大変助かりました、有難うございます。

回答No.1

n-jun

Static cnt As Integer

なぜこのように宣言しているのかな？？？？
そのために今回の問題になっていると思いますよ。

Dim での宣言に変えてみましょう。

お礼

有難うございます。

補足

字足らずですみません。テキスト１～６選択後実行し追加でテキスト7～に再入力をしたあとでクリア消去後にテキスト１～入力したかったのですが。お解りになればよろしくお願いします。