シートを名前順に並べ替える｜ExcelマクロVBAサンプル集

最終更新日：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サンプル集」の記事

罫線を簡単に引く（Borders,BorderAround）

エクセルでは、罫線を引く事が多いです。この罫線は、以外に処理時間もかかりますし、やり方によっては、VBAの行数も多くなります。とにかく、簡単に罫線を引く方法です。以下の表を作成する場合です。罫線を引く順番等、いろいろありますが、とにかく短いコードにしてみます。

マクロVBAの開始時と終了時に指定しておくべきApplicationのプロパティ

マクロVBAの開始時および終了時に指定した方が良いApplicationのプロパティの開設です。特に重要なもの、マクロVBAの処理速度に関係するものを紹介します。Applicationのプロパティの詳細については以下をご覧ください。

オートフィルター（AutoFilter）

エクセルでは、定番機能のフィルターです。「Sheet1」のA列でフィルターし、「Sheet2」へコピーします。ごく基本的なフィルターです。フィルターのセル範囲指定は、いろいろな指定が可能です。「連続セル範囲の選択」も参考にして下さい。

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

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

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

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

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

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

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

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

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

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

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

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

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

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