책의 시트 정렬

설명

책의 탭 수가 수십 개에 가까워지면 조만간 구현하고 싶은 욕구가 생길 것입니다. 책의 시트 정렬 , 알파벳 순서로 배치합니다. 표준 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) , 현재 통합 문서의 모든 시트를 빠르게 정렬합니다.

주제에 관한 기사:

• 통합 문서 결합(CombineWorkbooks)
• 책 페이지 간 빠른 전환