シートの並べ替え : Excel(エクセル)

シートの並べ替えを下記のコードでは、対象シートと次のシート名を比較し、逆ならばMoveメソッドで移動させています。これをシート回数分繰り返し並べ替えています。ブックに含まれるシート数は、ActiveWorkbook.Sheets.Countで取得できます。

Excel Tipsメニューに戻る

スポンサーリンク



コマンドボタン クリックイベントでシートの並べ替えを実行する

Private Sub CommandButton1_Click()
    SheetNameSort
End Sub

シートの並べ替えの標準モジュールコード

Public Sub SheetNameSort()
    Dim i As Integer
    Dim j As Integer
  
    For i = 1 To ActiveWorkbook.Sheets.Count
        For j = 1 To ActiveWorkbook.Sheets.Count - 1
            If ActiveWorkbook.Sheets(j).Name > ActiveWorkbook.Sheets(j + 1).Name Then
                ActiveWorkbook.Sheets(j).Move after:=ActiveWorkbook.Sheets(j + 1)
            End If
        Next j
    Next i
    On Error Resume Next
    ActiveWorkbook.Sheets(1).Activate
End Sub

スポンサーリンク



シートの並べ替え実行前

実行前

シートの並べ替え実行後

シートが昇順に並べ替えられた

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved