VBAリストボックスで複数選んだセルの値を転記

質問

ActiveXコントロールで、シート内に埋め込み作成したリストボックスを、複数選択できるようプロパティを設定しました。

選択した項目の一番左の数値を、同じシートのB列の一番最後のセルから1個ずつ順番に、転記をしていきたいのです。

★B列10行目まで埋まっていた場合、
　B列　11行目　←リストボックスで選択した1つめ
　B列　12行目　←リストボックスで選択した2つめ
　B列　13行目　←リストボックスで選択した2つめ

下記ですと、再初に選択したもののみ、転記されてしまい、1個1個入れていくことは可能なのですが、せっかく複数選択できるのに…という状況です。
同様の質問を検索してみて、真似してみたりもしましたが、うまくいきません。また、どうしても埋め込みが良くて、ユーザーフォームを別で作成はしたくはないです。
プロパティとフォームの画像を添付します。

すいません、よろしくお願いします。

Private Sub CommandButton1_Click()
Dim n As Integer, s As String
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = .List(i)
End If
Next i
End With
End Sub

回答No.3

kkkkkm · ベストアンサー

> Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = .List(i)
> だけでいいのでしょうか。

それでも大丈夫です。念のために.List(i, 0)にしておいてもいいと思います。

> そもそもの設定がだめなんでしょうか。。

設定を全く同じにしてみましたが、ボタンクリックでもステップ実行でも症状が出ませんでした。Win10のエクエル2013です。

一度、別のブックでその部分だけコピーせずに新しく作成して動作を確認してみてはいかがでしょう。

あと
Dim n As Integer
がありますが質問のコードの中では利用されていません。何か他のコードが実際には含まれているということでしょうか。

時間がありましたら一度以下のコードで試してみてください。
(毎回セルに書き込まないので、セルに書き込み時点で選択が外れているのかどうかの確認です)

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, s As String
Dim temp() As Variant
j = 0
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
ReDim Preserve temp(j)
temp(j) = .List(i)
j = j + 1
End If
Next i
End With
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Resize(UBound(temp) + 1, 1).Value = WorksheetFunction.Transpose(temp)
End Sub

お礼

ありがとうございます！
記載していただいたコードで、やりたかった動きができました！
１回ずつ毎度取得→セル移動のループではなく、まとめて→記載という内容でしょうか。

今回どうしてもこれがやりたくて勉強してたのですが、VBA初心者の為行き詰っておりました。
記載していただいた内容がまだまだ私には難しかったので、１行ずつ勉強したいと思います！ありがとうございました！

回答No.2

kkkkkm

画像つけ忘れました。

回答No.1

kkkkkm

問題なく選択したすべてが1回で転記されますよ。
画像は3列なので転記の部分は以下のようにしてます。
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = .List(i, 0)
Cells(Rows.Count, 2).End(xlUp).Offset(0, 1) = .List(i, 1)
Cells(Rows.Count, 2).End(xlUp).Offset(0, 2) = .List(i, 2)

補足

ありがとうございます！
欲しかったのは一番左の列の数字だけなので、
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = .List(i)
だけでいいのでしょうか。
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = .List(i, 0)
の方が良いですか？

せっかくお時間いただいたのですが、ごめんなさい。
もう一度見ながらステップインを使って一行ずつ実行してみたのですが、2週目のfor〜からリストボックス内の選択が外れてしまい、2行目以降が転記されませんでした。。。
そもそもの設定がだめなんでしょうか。。