이 기사에서는 Microsoft Excel 2010에서 VBA를 통해 시트를 오름차순으로 정렬하는 방법을 배웁니다.

여러 시트에서 작업하는 동안 시트가 제대로 정렬되지 않았습니다. 매크로가 실행될 때마다 자동으로 시트를 오름차순으로 정렬하는 매크로를 빠르게 만들고 싶습니다.

img1

시트를 오름차순으로 정렬하려면 아래 언급 된 단계를 따르십시오.

Alt + F11을 눌러 VB 편집기 화면을 시작합니다. 삽입 메뉴에서 모듈을 선택합니다.

img2

  • 모듈에서 다음과 같이 코드 줄을 입력합니다.

하위 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”

Sub End 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 다음 i End Sub

img3

  • F5를 눌러 모듈에서 매크로를 실행합니다.

또는 Alt + F11을 누르고 Excel로 돌아가서 매크로를 Excel 개체에 단추 또는 아이콘으로 할당하거나 Alt + F8을 눌러 매크로를 선택한 다음 실행을 클릭합니다.

시트는 영숫자 순서로 정렬되어 있습니다.

img4