| |
[Excel VBA]
임의로 표시되어 있는 시트이름을 정렬하는 VBA예제
오늘은 7월1일(토)에 진행하는 장미희님의 Excel 매크로&VBA
과정 중 기준 급여액 이상의 데이터에 색상을 설정하는 방법을 VBA로 작업하는 방법에 대해서 알아보도록 하겠습니다. (사용버전:
2003)
엑셀 매크로 또는 엑셀 VBA는 엑셀사용자라면 언젠가는 도전하고 싶은 목표입니다. 실제 주변에서나
본인의 경험상 엑셀VBA로 엑셀 작업시간과 노력이 적게 드는 경우를 빈번하게 경험하고 있습니다. 엑셀 VBA로
편리하게 작업할 수 있는 예를 살펴보겠습니다.
임의로 표시되어 있는 시트이름을 정렬하는 VBA예제를 알아보겠습니다. 아래와 같이 다양한 시트 이름의 시트들이
있는 경우에 VBA 프로시저를 실행하면 1,2,3, A, B, C, ㄱ, ㄴ, ㄷ순으로 정렬이 됩니다.
[VBA 실행전]
[VBA 실행후]
1. 시트와 관련되는 명령어들
|
1. Sheet : 엑셀에서 사용되는 모든 종류의 시트로 워크시트, 차트 시트,
다이얼로그 시트, 매크로 시트 포함
- Sheets(“Sheet1”) : 이름으로 시트 지정
- Sheets(1), Sheets(2)… : 순서에서 첫번째, 두번째 시트
2. Worksheet : 시트 중에서 워크시트를 의미
- Worksheets(“sheet1”) : 이름으로 지정
- Worksheets(1) : 인덱스로 지정
- Worksheets : 모든 워크시트 의미, 컬렉션(집합)
3. Add : 시트 추가
- Add After : 지정하는 특정 시트 뒤에 추가
- Add Before : 지정하는 특정 시트 앞에 추가
- Add Count : 추가될 시트 개수 지정
- Add Type : 추가될 시트 종류
4. Move Before : 지정하는 특정 시트의 앞으로 이동
- Move After : 지정하는 특정 시트 뒤로 이동 |
2. 시트와 관련되는 프로시저들
|
Sub 시트삽입()
Worksheets.Add
End Sub
Sub 시트맨뒤에삽입()
Worksheets.Add after:=Sheets(Sheets.Count), Count:=3
End Sub
Sub 시트이동()
Worksheets(1).Move after:=Worksheets(2)
End Sub |
3. 실제 작성한 VBA 코드
|
Sub 시트정렬()
Dim i As Integer
Dim j As Integer
For j = 1 To Sheets.Count - 1
For i = 1 To j
If Sheets(i).Name > Sheets(i + 1).Name Then
Sheets(i).Move after:=Sheets(i + 1)
End If
Next
Next
End Sub |
|
|
OfficeTutor 365