VBA リストボックスの値をセルに転記

質問

よろしくお願いします。
したいことは、
ユーザーフォームのリストボックスで複数の値を選んで複数セルに転記する。
ActiveCell.offset(10, 5)　⇐　リストボックスで選んだ1つ目
ActiveCell.offset(11, 5)　⇐　リストボックスで選んだ2つ目
ActiveCell.offset(12, 5)　⇐　リストボックスで選んだ3つ目

下の構文では1つしか転記できません。

Dim n As Integer, s As String
For n = 0 To ListBox3.ListCount - 1
If ListBox3.Selected(n) Then
s = s & ListBox3.List(n) & vbCrLf
ActiveCell.offset(10, 5).Value = s
End If
Next

回答No.1

mt2015 · ベストアンサー

元のコードだと最終的にActiveCell.offset(10, 5)に選択された値が改行コードで連結された文字列が入るだけですよ。
こんな感じで如何。

Dim n As Integer, nRow
nRow = 10
For n = 0 To ListBox3.ListCount - 1
　　If ListBox3.Selected(n) Then
　　　　ActiveCell.Offset(nRow, 5).Value = ListBox3.List(n)
　　　　nRow = nRow + 1
　　End If
Next

お礼

mt2015 様
早速の回答ありがとうございます。
完璧です。