![[VBA 제 44강] Workbook_NewSheet이벤트 썸네일 이미지](/smartediter/upload_img/thum_1538699042.png "[VBA 제 44강] Workbook_NewSheet이벤트 썸네일 이미지")
![[VBA 제 44강] Workbook_NewSheet이벤트를 즐겨찾기 한 횟수는](/common/images/cmm/bag_favor_mini_bubble_left.png "[VBA 제 44강] Workbook_NewSheet이벤트를 즐겨찾기 한 횟수는")
[ 기초 강좌 ]
제 44 강
Workbook_NewSheet이벤트
Excel의 생명이라고 할 수 있는 Workbook_NewSheet이벤트
그 사용법을 알아봅니다.
이럴 때 필요해요
워크시트를 새로 삽입할 때, 동일한 워크시트말고 사용자가 원하는 워크시트를 삽입하고 싶을 떄 필요합니다.
이렇게 사용해요
Workbook_NewSheet 라는 이벤트 프로시저의 내용을 설명해 드리겠습니다.
|
Private Sub Workbook_NewSheet(ByVal Sh As Object) |
Workbook_NewSheet 라는 이벤트 프로시저는 이름 그대로 현재의 Workbook에서 새로운 시트(NewSheet) 가
생성될 때 이벤트가 발생하게 되며, 또한 이 때 해당 프로시저를 실행하게 됩니다.
아울러, 대부분의 이벤트 프로시저와 같이 기본적으로 Object 형식의 Sh 라는 매개변수를 사용합니다.
|
Dim Sht As Worksheet Dim i As Integer Set Sht = Sheets("Main") i = Worksheets.Count Application.ScreenUpdating = False |
먼저, 필요한 각각의 변수들을 정의해 준 다음, 프로시저가 실행되는 동안 화면의 갱신을 생략하도록 조치해 둡니다.
|
With Sh .Move After:=Sheets(i) .Name = "Sheet" & i End With |
위 부분이 새로이 생성되는 시트의 위치를 항상 맨 오른 쪽으로 오도록 하고 또한 시트의 이름을 지정해 주는 결과를
구현합니다.(잘 연구해 보시기 바랍니다.)
|
With Sh.PageSetup |
위 코드 부분은 새로이 생성되는 시트의 왼쪽 및 오른쪽 그리고 위 아래의 여백을 현재의 시트("Main")와 같이 지정하며
또한 페이지를 가로로 지정함과 동시에 페이지 나누기 선이 나타 나지 않도록 지정합니다.
|
With Cells |
마지막으로 새로이 생성되는 시트의 행 높이와 열 넓이를 각각 지정해 준다음, 화면의 갱신이 실행되도록 조치해 주고나서
프로시저를 모두 종료합니다.
|
End Sub |
이 프로시저를 작성하시고 실행해 보시기 바랍니다. 기존과는 다른 시트모양이 생성될 것입니다.
2. 다운로드 받은 콘텐츠는 본인(본인회사)만 사용할 수 있습니다.
3. 다른 사람과 공유하거나 원본 또는 수정 후 무단전제,무단배포,무단판매,무단 공유할 수 없습니다.
4. 웹상에서 배포는 상업,비상업적 목적을 불문하고, 손해배상등 가중처벌됩니다.
![[VBA 제 44강] Workbook_NewSheet이벤트](/common/images/cmm/view_middel.jpg "[VBA 제 44강] Workbook_NewSheet이벤트")
KaKao ID 친구추가 : @coukey 
