VBA シート番号 右からの数え方

Question

ＶＢＡで、アクティブブックのシート数(シートの順番)を右から左の方向で数える方法はございますか？

Worksheets(i)と記述すると左からｉ番目のシート(位置)という意味ですが、これを右から数えてｉ番目のシートとして記述したい場合はどうすればよろしいでしょうか

Answer 1

Worksheets.Countでワークシート数が求められますから、端的に記述すると、
Worksheets(Worksheets.Count -i -1)
となります。

Answer 2

おそらく質問者さんがやりたいのは「数える」ではなく「列挙する」ことだろうと思います。数えるのに右も左も関係ないと思いますし、Countプロパティーを見れば数を数える必要はありません。

Worksheetは名前ではなく位置でも参照できます。それゆえ左から右へ参照したい場合は位置として1から順番にNまで参照すればよいですし、逆順にしたければNから1まで順に参照すればよいです。

Sub foo()
    Set bk = ActiveWorkbook
    n = bk.Worksheets.Count
    For i = n To 1 Step -1
        ActiveSheet.Cells(i, 1) = bk.Sheets(i).Name
    Next
End Sub