VBA --Sheets.Add 메서드
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
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
개인 FLEX 지식 라이브러리 작업 노트[size=large]1、 이 방법은 TileWindows 팝업 창에 있습니다. TitleWindows의 maxWidth와 maxHeight를 지정하지 않으면 최대 값이 화면 전체에 깔립니다. 페이지의minHeigh...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.