ホームページ » の仕方 » Excelでワークシートのタブをアルファベット順に並べ替える方法

    Excelでワークシートのタブをアルファベット順に並べ替える方法

    Excelワークブックに多数のワークシートがある場合、特定のワークシートを見つけるのが難しいかもしれません。ワークシートのタブをアルファベット順に並べ替えると、探しているものを見つけやすくなります。.

    色を適用してワークシートのタブを整理することに加えて、ワークシートにカスタム名を適用している限り、アルファベット順または英数字順に並べ替えることもできます。残念ながら、ワークシートのタブをアルファベット順に並べ替えることはExcelには組み込まれていませんが、タブを昇順または降順に並べ替えることができるマクロをブックに追加できます。 Microsoftのサポートサイトで利用可能なマクロをExcelワークブックに追加してワークシートのタブを並べ替える方法を紹介します。.

    開始するには、Alt + F11キーを押してMicrosoft Visual Basic for Applications(VBA)エディタを開きます。それから、挿入>モジュールに進みます。.

    次のマクロをコピーして、表示されるモジュールウィンドウに貼り付けます。.

    Sub Sort_Active_Book()整数としてDim j整数としてDim iAnswer As VbMsgBoxResult "ワークシートをソートする方向をユーザーに確認します。" iAnswer = MsgBox( "昇順でシートをソートしますか?"&Chr(10)_ &「いいえ」をクリックすると降順にソートされます、_ vbYesNoCancel + vbQuestion + vbDefaultButton1、「ワークシートのソート」i = 1の場合はSheets.Count j = 1の場合はSheets.Count  -  1 "答えがYesの場合はソート昇順で。 'iAnswer = vbYesの場合UCase $(Sheets(j).Name)> UCase $(Sheets(j + 1).Name)の場合、Sheets(j)。MoveAfter:= Sheets(j + 1)の場合答えが「いいえ」である場合は、降順でソートします。 'ElseIf iAnswer = vbNoそれでは、Uの場合$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then                Sheets(j).Move After:=Sheets(j + 1)             End If          End If       Next j    Next i End Sub

    VBAエディタは、Module1、Module2などのように、各モジュールの末尾に自動的に番号を付けます。モジュールのデフォルト名をそのまま使用することもできます。ただし、ワークブックに他のマクロを追加する予定がある場合は、各モジュールの名前を変更して、それらが何であるかを把握しておくことをお勧めします。モジュールの名前を変更して説明します。.

    モジュールの名前を変更するには、左ペインの[プロパティ]の下にあるモジュールの[名前]ボックスでテキストを選択します。.

    「名前」ボックスにモジュールの名前を入力して、Enterキーを押します。モジュール名にスペースを含めることはできません。.

    左ペインの[プロジェクト]の下の[モジュール]リストで、モジュールの名前が変わります。.

    [ファイル]> [閉じてMicrosoft Excelに戻る]を選択してVBAエディタを閉じます。.

    それでは、タブをソートするためにマクロを実行します。 Altキーを押しながらF8キーを押して、[マクロ]ダイアログボックスのマクロの一覧にアクセスします。リストからマクロを選択し(私たちの場合は1つのマクロしかありません)、「実行」をクリックします.

    次のダイアログボックスが表示され、ワー​​クシートを昇順と降順のどちらでソートするかを選択できます。昇順に並べ替えたいので、[はい]をクリックします。.

    ワークシートのタブはアルファベット順に配置されています.

    追加したマクロはブックの一部になりましたが、保存すると次のようなダイアログボックスが表示されます。これは、ブックを.xlsxファイルとして保存したためです。これは、マクロを含まない通常のExcelブック形式です。ワークブックにマクロを含めて実行できるようにするには、ワークブックをマクロ有効ブック、または.xlsmファイルとして保存する必要があります。これを行うには、このダイアログボックスで[いいえ]をクリックします。.

    [名前を付けて保存]ダイアログボックスが表示されます。まだフォルダに入っていない場合は、マクロ有効ブックを保存する場所に移動します。 [ファイルの種類]ドロップダウンリストから[Excelマクロ有効ブック(* .xlsm)]を選択します。.

    「保存」をクリック.

    ブックをマクロ有効ブック(.xlsmファイル)として保存しないと、追加したマクロは削除されます。ワークシートのタブを追加してマクロを使用して並べ替える場合は、.xlsxバージョンのワークブックを削除して、ワークブックの.xlsmバージョンを使用することを忘れないでください。もうマクロを使用したくない場合は、いつでもブックを.xlsxファイルとして保存できます。.