vba シートの並び替え

いつもお世話になります。

OSはwin11、エクセルはoffice365です。

　シート名が左から、
　　　目次　0　1　2　3　4・・・・10　11　12
　　　と計、14シートとあります。

下記のコードの実行ではなぜか　2　のシートが移動します。
　　目次　2　0　1　3　4　5・・・12

ご指導をお願いしたいのは2つあります。

1　該当月になると該当する月のシートが目芝の右に
　　　今月ですと　4　のシート
2　該当月が過ぎると該当月の右に

要望は今月が4月とすると

目次　4　3　2　1　0・・・・10　11　12


Sub シート並び替え()
Dim m As Integer
'// 引数：Date型
m = Month(Now)
Sheets(m).Move After:=Worksheets("目次")
End Sub

No.1 回答者： Qchan1962 回答日時： 2023/04/19 13:51

こんにちは

文字列に変更して・・・
Sheets(CStr(m)).Move After:=Worksheets("目次")

この回答へのお礼

ありがとうございます。
うまくできました。

まだまだ小生はだめですね。

お礼日時：2023/04/19 14:09