[[20180519112525]]　『ListBoxの選択でーたをセルに転記。上下逆に転記ａx（スマトラ）　ページの最後に飛ぶ

『ListBoxの選択でーたをセルに転記。上下逆に転記される。』（スマトラ）

お世話になっております。

ListBoxに表示されたリストを選択し（とびとびに選択もある）
セル範囲に転記するコードです。

質問内容は

リストで表示された一覧を転記した際に
ListBoxの最終行から上に向かってセルに転記されます。

これを上から順番に転記できるようにしたいのですが、コードのどの部分を調整すればよろしいでしょうか？

おそらくここ？→For i = ListBox2.ListCount - 1 To 0 Step -1

すみませんが、何卒よろしくおねがいします。

        If msg = "" Then
            MsgBox "リストが選択されておりません"
            Exit Sub
        Else
            sh1.Select
            n = Cells(Rows.Count, "V").End(xlUp).row + 1
            Range("V9:W" & n).ClearContents
            n = Cells(Rows.Count, "V").End(xlUp).row + 1

            For i = ListBox2.ListCount - 1 To 0 Step -1
                If ListBox2.Selected(i) Then
                    With ListBox2
                        sh1.Range("V" & n).Value = .List(i, 0)
                        sh1.Range("W" & n).Value = .List(i, 1)
                        n = n + 1
                    End With
                    ListBox2.RemoveItem i
                End If
            Next i
            sh1.Range("V5").Value = sh1.Range("V" & n - 1).Offset(0, -2).Value
        End If
    End With

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

＞おそらくここ？→For i = ListBox2.ListCount - 1 To 0 Step -1

ループの順番を逆にすればどうでしょうか。

（マナ） 2018/05/19(土) 11:41

コメント返信：

[ 一覧(最新更新順) ]

[[20180519112525]] 『ListBoxの選択でーたをセルに転記。上下逆に転記ａx（スマトラ） ページの最後に飛ぶ

[[20180519112525]]　『ListBoxの選択でーたをセルに転記。上下逆に転記ａx（スマトラ）　ページの最後に飛ぶ