홈> 업무단축키>기본가이드

[VBA 제 44강] Workbook_NewSheet이벤트

자동화

페이스북 퍼가기 | 트위터 퍼가기 | 네이트온 보내기 | 복사

콘텐츠 타입 MS 오피스 엑셀 2003(2007, 2010가능), Windows XP 이상

용량0KB

즐겨찾기

이용등급 유료 (회원권 or 단품 구매)

평생이용

엑셀쿠키는 한 번의 다운로드로 평생 이용하실 수 있습니다. 프로그램과 데이터를 고객의 PC에 저장하여 사용하는 형식이라 안전하게 사용 가능합니다. 이용 기간에 따른 추가 비용이 발생하지 않아 매우 경제적입니다.

맞춤형

중소기업의 개별 특성, 다양한 업무를 상황별로 고려하여 제작된 프로그램을 업데이트합니다. 분야별 5,000여 개의 프로그램 중 내 업무에 맞는 프로그램을 다운받는 맞춤형 서비스입니다.

쉬운 활용

쿠키 프로그램은 MS Excel의 기본 사용법만 알면 즉시 사용할 수 있는 매운 쉬운 프로그램으로 누구나 손쉽게 배우고 사용할 수 있습니다.

중소기업의 모든 업무자동화!

엑셀쿠키로 모두 해결하세요!

Microsoft Excel 표준

쿠키의 업무자동화 프로그램은 VBA 코드로 개발된 제품으로
MS Excel 프로그램 기반으로 사용 가능하며,
자체적으로 개발한 기능은 물론,
MS Excel의 강력한 기능을 모두 사용하실 수 있습니다.

엑셀쿠키는 기업의 생산성을 높이는 업무자동화 지원 프로그램입니다.

제품 상세정보

[ 기초 강좌 ]

제 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
        .LeftMargin = Sht.PageSetup.LeftMargin
        .RightMargin = Sht.PageSetup.RightMargin
        .TopMargin = Sht.PageSetup.TopMargin
        .BottomMargin = Sht.PageSetup.BottomMargin
        .Orientation = xlLandscape
      End With
   Sh.DisplayAutomaticPageBreaks = False

위 코드 부분은 새로이 생성되는 시트의 왼쪽 및 오른쪽 그리고 위 아래의 여백을 현재의 시트("Main")와 같이 지정하며

또한 페이지를 가로로 지정함과 동시에 페이지 나누기 선이 나타 나지 않도록 지정합니다.

With Cells
       .RowHeight = 18
      .ColumnWidth = 11
      End With
Application.ScreenUpdating = True

마지막으로 새로이 생성되는 시트의 행 높이와 열 넓이를 각각 지정해 준다음, 화면의 갱신이 실행되도록 조치해 주고나서

프로시저를 모두 종료합니다.

End Sub

이 프로시저를 작성하시고 실행해 보시기 바랍니다. 기존과는 다른 시트모양이 생성될 것입니다.

저작권정보

이용후기

중소기업의 모든 업무자동화!

업무자동화 맞춤제작

상품 정보 기능에 대한 피드백