VBA 7

[VBA] Sheet.Add and Sheet.Delete Method

1. 시트 추가 아래는 시트를 추가하는 소스의 예제이다. Sub AddSheets() Sheets.Add Sheets.Add after:=Sheets(2) Sheets.Add before:=Sheets(2) End Sub Sheets.Add는 실행한 시트 왼쪽에 새로운 시트를 만든다. Sheets.Add after:=Sheets(인덱스 번호)는 인덱스 번호에 있는(2의 경우 두번째 시트)시트를 기준으로 오른쪽에 새로운 시트를 생성한다. Sheets.Add before:=Sheets(인덱스 번호)는 인덱스 번호에 있는(2의 경우 두번째 시트)시트를 기준으로 왼쪽에 새로운 시트를 생성한다. 2. 시트 삭제 아래는 시트를 삭제하는 소스의 예제이다. Sub DeleteSheets() Sheets(5).Delet..

VBA 2021.04.23

Sheet Deleting except specific sheet

목적 : 엑셀에서 특정한 시트 하나만 남기고 모두 삭제 or 원하는 시트만 남기고 모두 삭제하기 실행 결과 : 지정한 시트만 남고 모두 삭제됨 코드 Sub DeleteSheet() Dim xWs As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False 'Error Window Hidden For Each xWs In Application.ActiveWorkbook.Worksheets If xWs.Name "Sheet1" And xWs.Name "남길시트이름" Then 'Sheet1 과 남길시트이름 두개만 남기고 모두 삭제됨 xWs.Delete End If Next Application.DisplayAlerts = T..

VBA 2021.04.23