シートが文字列で並び替えられて困っています。

質問

エクセル2003を使用しています。

シートの並びについて、文字列（名前順）ではなく、数値順に並び替えたいのですが、
どのようなマクロを組めば良いのでしょうか？

↓これですと、シートの並びが文字列（名前順）になってしまうので、ダメなんです。

-------------------------------
Sub Sort()

Dim intLoopA As Integer
Dim intLoopB As Integer

For intLoopA = 1 To Sheets.Count
For intLoopB = 1 To Sheets.Count - 1
If Sheets(intLoopB).Name > Sheets(intLoopB + 1).Name Then
Sheets(intLoopB).Move After:=Sheets(intLoopB + 1)
End If
Next intLoopB
Next intLoopA

End Sub
-------------------------------

例として、　01.午前中/02.午後/100/300/50/テスト　ではなく、

理想型は　01.午前中/02.午後/50/100/300/テスト　の順番です。

シート名に番号+日本語を付けているのがあるのは、数字の並び順になって欲しい対策です。

分かりやすくするために簡略化いたしましたが、
実際は300ほどのシートがバラバラに出入りし、それらは連番ではありません。

数値順にするvbaをよろしければ教えて頂けませんでしょうか。
よろしくお願いいたします。

回答No.1

jcctaira · ベストアンサー

yamayama456様
シート名を数値化すれば良いかと思います。
注）文字だけの時は頭１文字を文字コード順に並べています。
お試しください。

Sub Sort()
　Dim intLoopA As Integer
　Dim intLoopB As Integer
　For intLoopA = 1 To Sheets.Count - 1
　　For intLoopB = intLoopA + 1 To Sheets.Count
　　　If シートNO(Sheets(intLoopA)) > シートNO(Sheets(intLoopB)) Then
　　　　Sheets(intLoopB).Move before:=Sheets(intLoopA)
　　　End If
　　Next intLoopB
　Next intLoopA
End Sub

Function シートNO(シート As Worksheet) As Long
　シートNO = Val(シート.Name)
　If シートNO <> 0 Then Exit Function
　シートNO = Val("&H700" & Hex$(Asc(シート.Name)))
End Function

お礼

jcctaira様

＞シート名を数値化すれば良いかと思います。
ヒントと回答、ありがとうございます！

ばっちり希望通りにできました!!

vba初心者なので、中身の解読に時間がかかりますが、
これからしっかり見て、勉強いたします。
本当に助かりました！
ありがとうございました。