VBAでのMicrosoft Excel 2010によって昇順に並べ替えシート
この記事では、Microsoft Excel2010のVBAを使用してシートを昇順で並べ替える方法を学習します。
複数のシートで作業していると、シートが正しく配置されていないことがわかります。マクロが実行されるたびにシートを昇順で自動的にソートするマクロをすばやく作成する必要があります。
シートを昇順で並べ替えるには、以下の手順に従います。
Alt + F11を押して、VBエディタ画面を起動します。[挿入]メニューから、[モジュール]を選択します。
-
モジュールに、次のようにコード行を入力します。
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
-
F5キーを押して、モジュールからマクロを実行します。
または、Alt + F11を押してExcelに戻り、マクロをボタンまたはアイコンとして任意のExcelオブジェクトに割り当てるか、Alt + F8を押してマクロを選択し、[実行]をクリックします。
シートが英数字順に配置されていることがわかります。