TOP

本のシートを並べ替える

説明

本のタブの数が数十に近づくと、遅かれ早かれ実装したくなるでしょう。 本のシートを並べ替える 、アルファベット順に並べます。標準の Excel ツールではこれを行うことができないため、これを行う簡単なマクロを作成してみましょう。


マクロの VBA コード

メニューを開く サービス - マクロ - エディター Visual Basic (Tools - Macro - Visual Basic Editor) モジュール VBA を挿入 (メニュー Insert - Module )このテキストをそこにコピーします。

Sub SortSheets()
  'moonexcel.com.ua
  Dim I As Integer, J As Integer

    For I = 1 To Sheets.Count - 1
        For J = I + 1 To Sheets.Count
            If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
                Sheets(J).Move Before:=Sheets(I)
            End If
        Next J
    Next I
    
    MsgBox " タブは A から Z までソートされました "
End Sub

このマクロはメニューから実行できるようになりました サービス - マクロ - マクロ (Tools - Macro - Macros) , 現在のブック内のすべてのシートがすぐに並べ替えられます。

トピックに関する記事: