この記事では、Microsoft Excel2010のVBAを使用してシートを昇順で並べ替える方法を学習します。

複数のシートで作業していると、シートが正しく配置されていないことがわかります。マクロが実行されるたびにシートを昇順で自動的にソートするマクロをすばやく作成する必要があります。

img1

シートを昇順で並べ替えるには、以下の手順に従います。

Alt + F11を押して、VBエディタ画面を起動します。[挿入]メニューから、[モジュール]を選択します。

img2

  • モジュールに、次のようにコード行を入力します。

Sub SortingSheetsInAscending()

Dim i As Integer、n As Integer、SheetsCounter As Integer If ActiveWorkbook Is Nothing Then Exit Sub If ActiveWorkbook.ProtectStructure Then MsgBox ActiveWorkbook.Name& “is protected”、vbCritical、 “Sort Sheets”

Exit Sub End If If MsgBox( “Sort Sheets?”、vbQuestion + vbYesNo)<> vbYes Then Exit Sub Application.EnableCancelKey = xlDisabled SheetsCounter = Sheets.Count For i = 2 To SheetsCounter For n = 1 To SheetsCounter If Sheets(n) .Name> Sheets(i).Name Then Sheets(i).Move before:= Sheets(n)

End If Next n Next i End Sub

img3

  • F5キーを押して、モジュールからマクロを実行します。

または、Alt + F11を押してExcelに戻り、マクロをボタンまたはアイコンとして任意のExcelオブジェクトに割り当てるか、Alt + F8を押してマクロを選択し、[実行]をクリックします。

シートが英数字順に配置されていることがわかります。

img4