VBA --Sheets.Add 메서드

Excel 개발자 참조
Sheets.Add 메서드
새 워크시트, 도표, 宏表를 만듭니다.새 워크시트가 활성 워크시트가 됩니다.
구문
표현식.Add(Before,After,Count, Type)
표현식은 Sheets 객체를 나타내는 변수입니다.
매개 변수
이름:
필수/옵션
데이터 형식
설명
Before
선택 사항
Variant
새 작업표가 이 작업표 앞에 놓일 작업표의 대상을 지정합니다.
After
선택 사항
Variant
워크시트의 대상을 지정합니다. 새 워크시트는 이 워크시트 뒤에 있습니다.
Count
선택 사항
Variant
추가할 작업표 수입니다.기본값은 1입니다.
Type
선택 사항
Variant
워크시트 유형을 지정합니다.xlWorksheet, xlChart, xlExcel4Macrosheet 또는 xlExcel4IntlMacrosheet의 상수 중 하나를 사용할 수 있습니다.기존 템플릿을 기반으로 워크시트를 삽입할 경우 해당 템플릿의 경로를 지정합니다.기본값은 xlWorksheet입니다.
새 워크시트, 차트 또는 매크로를 나타내는 Object 값을 반환합니다.
설명
Before 및 After를 모두 생략하면 새 워크시트가 활성 워크시트 앞에 삽입됩니다.
예제
이 예는 새 작업표를 활동 작업장의 마지막 작업표 앞에 삽입합니다.
Visual Basic for Applications
ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)

© 2010 Microsoft Corporation.모든 권리를 보류하다.
Sub AddSheet(ByVal sheetName, ByVal afterSheet)

        Dim ws As Worksheet
        On Error Resume Next
        Set ws = Worksheets(sheetName)
        If Err Then       'sheetName sheet not exist "
            Sheets(afterSheet).Select
            'ActiveWorkbook.Sheets.Add Before:=Sheets(afterSheet)
            ActiveWorkbook.Sheets.Add AFTER:=Sheets(afterSheet)
            ActiveSheet.Name = sheetName
            On Error GoTo 0
        Else
            'sheetName sheet is exist
            Call deleteSheet(sheetName)
            Sheets(afterSheet).Select
            'ActiveWorkbook.Sheets.Add Before:=Sheets(afterSheet)
            ActiveWorkbook.Sheets.Add AFTER:=Sheets(afterSheet)
            ActiveSheet.Name = sheetName
        End If
 
End Sub
Sub deleteSheet(ByVal sheetName)
    Sheets(sheetName).Select
    Application.DisplayAlerts = False
    Sheets(sheetName).Delete
    Application.DisplayAlerts = True
End Sub

좋은 웹페이지 즐겨찾기