Excel에서 워크 시트 탭을 알파벳 순서로 정렬하는 방법

0
2177

00_lead_image_sorting_worksheet_tabs

Excel 통합 문서에 워크 시트가 많으면 특정 워크 시트를 찾기가 어려울 수 있습니다. 워크 시트 탭을 알파벳순으로 정렬하면 원하는 것을 쉽게 찾을 수 있습니다.

관련 : Excel에서 워크 시트 탭의 이름을 바꾸는 방법

색상을 적용하여 워크 시트 탭을 구성하는 것 외에도 워크 시트에 사용자 지정 이름을 적용한 경우 알파벳순 또는 알파벳순으로 정렬 할 수도 있습니다. 불행히도 워크 시트 탭을 알파벳순으로 정렬하는 기능은 Excel에 내장되어 있지 않지만 통합 문서에 매크로를 추가하여 탭을 오름차순 또는 내림차순으로 정렬 할 수 있습니다. Microsoft 지원 사이트에서 제공되는 매크로를 Excel 통합 문서에 추가하여 워크 시트 탭을 정렬하는 방법을 보여줍니다.

01_unsorted_tabs

시작하려면 Alt + F11을 눌러 Microsoft VBA (Visual Basic for Applications) 편집기를 엽니 다. 그런 다음 삽입> 모듈로 이동하십시오.

02_selecting_insert_module

Microsoft에서 다음 매크로를 복사하여 표시되는 모듈 창에 붙여 넣습니다.

Sub Sort_Active_Book()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
'
' Prompt the user as which direction they wish to
' sort the worksheets.
'
   iAnswer = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) _
     & "Clicking No will sort in Descending Order", _
     vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets")
   For i = 1 To Sheets.Count
      For j = 1 To Sheets.Count - 1
'
' If the answer is Yes, then sort in ascending order.
'
         If iAnswer = vbYes Then
            If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
               Sheets(j).Move After:=Sheets(j + 1)
            End If
'
' If the answer is No, then sort in descending order.
'
         ElseIf iAnswer = vbNo Then
            If UCase$(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 등과 같은 숫자로 자동 지정합니다. 모듈의 기본 이름을 그대로 사용할 수 있습니다. 그러나 통합 문서에 다른 매크로를 추가하려면 각 모듈의 이름을 바꾸어 각 모듈의 이름을 바꾸는 것이 좋습니다. 모듈 이름을 변경하여 방법을 보여 드리겠습니다.

04_module1_in_modules_list

모듈의 이름을 바꾸려면 왼쪽 창의 속성에서 모듈의 이름 상자에있는 텍스트를 선택하십시오.

05_changing_module_name

이름 상자에 모듈 이름을 입력하고 Enter를 누르십시오. 모듈 이름에는 공백이 포함될 수 없습니다.

06_typing_new_name

왼쪽 창의 프로젝트 아래에있는 모듈 목록에서 모듈 이름이 변경됩니다.

07_name_changed

파일> 닫기 및 Microsoft Excel로 돌아가서 VBA 편집기를 닫으십시오.

08_file_close_and_return_to_excel

이제 매크로를 실행하여 탭을 정렬하겠습니다. 매크로 대화 상자에서 매크로 목록에 액세스하려면 Alt + F8을 누르십시오. 목록에서 매크로를 선택하고 (이 경우 매크로가 하나만 있음)“실행”을 클릭하십시오.

09_running_macro

워크 시트를 오름차순으로 정렬할지 내림차순으로 정렬 할지를 선택할 수있는 다음 대화 상자가 표시됩니다. 오름차순으로 정렬하기 위해“예”를 클릭하십시오.

10_sort_worksheets_dialog

워크 시트 탭이 알파벳 순서로 정렬되었습니다.

11_sorted_tabs

추가 한 매크로는 이제 통합 문서의 일부이지만 저장하면 다음 대화 상자가 표시 될 수 있습니다. 통합 문서를 매크로를 포함하지 않는 일반적인 Excel 통합 문서 형식 인 .xlsx 파일로 저장했기 때문입니다. 통합 문서에 매크로를 포함시키고 매크로를 실행하려면 통합 문서를 매크로 사용 통합 문서 또는 .xlsm 파일로 저장해야합니다. 이렇게하려면이 대화 상자에서 "아니오"를 클릭하십시오.

12_warning_about_saving_macro_enabled_file

다른 이름으로 저장 대화 상자가 표시됩니다. 해당 폴더에 아직없는 매크로 사용 통합 문서를 저장할 위치로 이동하십시오. “파일 형식으로 저장”드롭 다운 목록에서“Excel 매크로 사용 통합 문서 (* .xlsm)”를 선택하십시오.

13_selecting_excel_macro_enabled_workbook

“저장”을 클릭하십시오.

14_clicking_save

통합 문서를 매크로 사용 통합 문서 (.xlsm 파일)로 저장하지 않으면 추가 한 매크로가 삭제됩니다. 워크 시트 탭을 추가하고 매크로를 사용하여 다시 정렬하려는 경우 통합 문서의 .xlsx 버전을 삭제하고 .xlsm 버전의 통합 문서를 사용하는 것을 잊지 마십시오. 더 이상 매크로를 사용하지 않으려면 통합 문서를 .xlsx 파일로 다시 저장할 수 있습니다.