VBA リストボックス内の値を複数選択し別シートに転記するには

解決済

質問者：まさきんチャンネル
質問日時：2022/01/02 10:59
回答数：2件

VBA超初心者です。
顧客リストを作成しております。リストボックスの値を複数選択し、コマンドボタンを押すとSheet1に転記したいと考えております。下記コードだと1行は転記できましたが、複数転記のコードがわかりません。恐れ入りますがご教示願います。

Private Sub CommandButton1_Click()

With ListBox1
a = .ListIndex '選択した行番号を取得
Worksheets("sheet1").Cells(2, "A") = .List(a, 0) '0列目を取得
Worksheets("sheet1").Cells(2, "B") = .List(a, 1) '1列目を取得
Worksheets("sheet1").Cells(2, "C") = .List(a, 2) '2列目を取得
Worksheets("sheet1").Cells(2, "D") = .List(a, 3) '3列目を取得
Worksheets("sheet1").Cells(2, "E") = .List(a, 4) '4列目を取得
Worksheets("sheet1").Cells(2, "F") = .List(a, 5) '5列目を取得
Worksheets("sheet1").Cells(2, "G") = .List(a, 6) '6列目を取得
Worksheets("sheet1").Cells(2, "H") = .List(a, 7) '7列目を取得
Worksheets("sheet1").Cells(2, "I") = .List(a, 8) '8列目を取得
Worksheets("sheet1").Cells(2, "J") = .List(a, 9) '9列目を取得
Worksheets("sheet1").Cells(2, "K") = .List(a, 10) '10列目を取得

End With

End Sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： tatsumaru77
回答日時：2022/01/02 14:12

No1の方のURLを参考にすると、以下のようになります。

シートへは2行目から順に設定する前提です。
Private Sub CommandButton1_Click()
Dim a As Long
Dim row1 As Long
row1 = 2
With ListBox1
For a = 0 To .ListCount - 1
If ListBox1.Selected(a) = True Then
Worksheets("sheet1").Cells(row1, "A") = .List(a, 0) '0列目を取得
Worksheets("sheet1").Cells(row1, "B") = .List(a, 1) '1列目を取得
Worksheets("sheet1").Cells(row1, "C") = .List(a, 2) '2列目を取得
Worksheets("sheet1").Cells(row1, "D") = .List(a, 3) '3列目を取得
Worksheets("sheet1").Cells(row1, "E") = .List(a, 4) '4列目を取得
Worksheets("sheet1").Cells(row1, "F") = .List(a, 5) '5列目を取得
Worksheets("sheet1").Cells(row1, "G") = .List(a, 6) '6列目を取得
Worksheets("sheet1").Cells(row1, "H") = .List(a, 7) '7列目を取得
Worksheets("sheet1").Cells(row1, "I") = .List(a, 8) '8列目を取得
Worksheets("sheet1").Cells(row1, "J") = .List(a, 9) '9列目を取得
Worksheets("sheet1").Cells(row1, "K") = .List(a, 10) '10列目を取得
row1 = row1 + 1
End If
Next a
End With
End Sub