シートを名前順に並べ替える

最終更新日：2013-08-26

シートを名前順に並べ替える

シートを名前順に並べ替える方法になります。

配列を使っていますが、配列が難しい場合は、

シートに書き出して処理すれば良いでしょう、並べ替えもシート上なら簡単です。


  
    
      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サンプル集」の記事

日付のオートフィルタ（AutoFilter）

とても便利なオートフィルターですが、日付となると、結構大変です。以下の表で説明します。普通は、こんなように指定します。Operator:=xlFilterValues は2007以降で追加された機能です。

印刷ダイアログを使用する（xlDialogPrint）

入力しやすいように、セルに色をつけている事が多いと思いますが、印刷時には、ちょっとじゃまな場合もあります。インク（トナー）も無駄ですしね。印刷時に色指定を解除して印刷する方法になります。Application.Dialogs(xlDialogPrint).Show 印刷タイアログを表示します。

名前定義の一覧と削除（Name）

名前定義は使い方によっては、とても便利な機能ですが、長く使っているブックでは、とても多くの名前定義が入ってしまっていたり、参照エラーを起こしている名前定義が多数あったりと、管理に困る場合も多々出てきます。これらが発生する原因としては、ブック間のシートコピーで増えていってしまったり、シートおよびセルの削除によって参照エラーになったままにしておくことで、

シートを名前順に並べ替える
数式内の不要なシート名を削除する（HasFormula）

複数のシートにまたがる数式を入力していると、自身のシート名!が数式についてしまいます、この自身のシート名!は不要であり、式を見づらくしてしまいます、この不要なシート名を、VBAで一括削除します。ブックの全シート、全セルを対象として、数式の中から、自身のシート名!を削除するVBAになります。

数式の参照しているセルを取得する

セルに入っている数式の参照しているセルを取得するには、RangeのPrecedentsプロパティを使いますが、このプロパティは他のシートの参照には対応していません。また、セルの参照先を取得するプロパティには、Dependentsプロパティがあります。

増殖した条件付き書式を整理統合する

コピペによって条件付き書式は際限なく増加していきます。あまり増えすぎると、Excelの動作が遅くなる場合もありますし、条件や書式を変更したい時にも困ることになります。このような場合は、条件付き書式を消して再設定するしかなくなります、これを解決するVBAを考えてみました。

条件付き書式で変更された書式を取得する

条件付き書式が設定されている場合、当然ですが見た目は、本来そのセルに設定されている書式ではなく、条件付き書式の条件によって設定されている書式になります。VBAで、この条件付き書式によって設定された書式を取得します。これが取得できるようになったのは、Excel2010からですので、このページで紹介するVBAコードはExcel2010以降でのみ有効なものです。

セル結合/解除でセル値を退避/回復

セル結合の弊害はネットに溢れているのでここで改めて説明の必要はないでしょう。とはいえ、セル結合したい場合もありますよね、人間だからね。VBAで適切に処理すればセル結合もきちんと処理は可能です。第85回.結合セルの扱い｜VBA入門しかし、セル結合した時にどうしようもないのが、各セル値が失われてしまうことです。

セル結合なんて絶対に許さないんだからね

セル結合の弊害はネットに溢れているのでここで改めて説明の必要はないでしょう。とはいえ、ついついセル結合してしまう事ありますよね、人間だからね。VBAで適切に処理すればセル結合もきちんと処理は可能です。

セルの数式をネスト色分けしてコメント表示

数式のネストが3段階を超えてくる、なかなか読むのが辛くなってきます。数式を改行したりして見やすくするにも限界があります。特別に複雑な数式を解析する場合は、以下を試してみてください。Excelシートの複雑な計算式を解析するVBA このようなツールを使うほどではないが、数式を色分けしてちょっと見やすくなれば、

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
シートを名前順に並べ替える

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBAサンプル集
シートを名前順に並べ替える