シートを名前順に並べ替える
シートを名前順に並べ替える方法になります。
配列を使っていますが、配列が難しい場合は、
シートに書き出して処理すれば良いでしょう、並べ替えもシート上なら簡単です。
| Sub sample() Dim i As Long Dim arySht() As String For i = 1 To Sheets.Count If i = 1 Then ReDim arySht(0) Else ReDim Preserve arySht(UBound(arySht) + 1) End If arySht(UBound(arySht)) = Sheets(i).Name Next Call SheetSort(arySht) For i = UBound(arySht) To LBound(arySht) Step -1 Sheets(arySht(i)).Move Before:=Sheets(1) Next End Sub Sub SheetSort(ByRef argAry() As String) Dim sSwap As String Dim i As Integer Dim j As Integer For i = LBound(argAry) To UBound(argAry) For j = UBound(argAry) To i Step -1 If argAry(i) > argAry(j) Then sSwap = argAry(i) argAry(i) = argAry(j) argAry(j) = sSwap End If Next j Next i End Sub |
上記では、シート名を文字列として処理しています。
どういう事かと言うと、
3000
10000
200
このようなシート名の場合、
10000 < 200 < 3000
となってしまいます。
数値として比較したい場合は、
Dim arySht() As String → Dim arySht() As Long
Sub SheetSort(ByRef argAry() As String) → Sub SheetSort(ByRef argAry()
As Long)
このようにすれば、数値として比較されます。
同じテーマ「マクロVBAサンプル集」の記事
罫線を簡単に引く（Borders,BorderAround）
マクロの開始・終了（Applicationのプロパティ）
オートフィルター（AutoFilter）
日付のオートフィルタ（AutoFilter）
印刷ダイアログを使用する（xlDialogPrint）
名前定義の一覧（Name）
数式内の不要なシート名を削除する（HasFormula）
数式の参照しているセルを取得する
増殖した条件付き書式を整理統合する
条件付き書式で変更された書式を取得する
新着記事 ・・・新着記事一覧を見る
VBAを定型文で覚えよう｜ExcelマクロVBA技術解説（3月26日）
VBAスタンダード試験対策まとめ｜MOS VBAエキスパート対策（3月16日）
ユーザーフォームとメニューの操作｜MOS VBAエキスパート対策（3月14日）
ファイルの操作｜MOS VBAエキスパート対策（3月14日）
ユーザーフォームの各種イベント｜Excelユーザーフォーム（3月13日）
レジストリの操作｜MOS VBAエキスパート対策（3月12日）
変数と配列｜MOS VBAエキスパート対策（3月12日）
Colorプロパティの設定値一覧｜VBA技術解説（3月12日）
APIとOLEオートメーション｜MOS VBAエキスパート対策（3月11日）
エラーへの対処｜MOS VBAエキスパート対策（3月10日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜ExcelマクロVBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数とデータ型（Dim）｜ExcelマクロVBA入門
6.ひらがな⇔カタカナの変換｜エクセル基本操作
7.マクロって何？VBAって何？｜ExcelマクロVBA入門
8.定数と型宣言文字（Const）｜ExcelマクロVBA入門
9.とにかく書いて見よう（Sub,End Sub）｜VBA入門
10.繰り返し処理（For Next)｜ExcelマクロVBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。
