シートを名前順に並べ替える｜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」へコピーします。Subsample()DimFilterRangeAsRangeWith Worksheets("Sheet1")SetFilterRange=.Range("A1").CurrentRegion EndWithFilterRange.AutoFil…

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

とても便利なオートフィルターですが日付となると結構大変です。以下の表で説明します。普通はこんなように指定します。Sub Macro1() Range("A1").Select Selection.AutoFilter ActiveSheet.Range(_$A$1:$B$11_).AutoFilterField:=1,

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

入力しやすいようにセルに色をつけている事が多いと思いますが印刷時にはちょっとじゃまな場合もあります。インク（トナー）も無駄ですしね。印刷時に色指定を解除して印刷する方法になります。Subsample()DimrtnAs BooleanActiveSheet.CopyActiveSheet.Cells.Interior.Color= xlNonertn=A…

名前定義の一覧（Name）

名前定義は使い方によってはとても便利な機能ですが数が多いと管理が大変になります。名前定義の一覧を取得しシートに書き出すマクロです。Subsample()DimnmAsNameDimiAsLongi=1ForEach nmInActiveWorkbook.NamesCells(i,1)=nm.NameCells(i,

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

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

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

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

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

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

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

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