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).Delete
End Sub

Sheets(인덱스 번호).Delete는 해당 인덱스 번호의 시트(5의 경우 다섯번째 시트)를 삭제한다.

단 데이터가 있는 경우 삭제확인을 한다.

 

삭제 확인을 안보고 싶다면 Sheets(인덱스 번호).Delete 위에 

Application.DisplayAlerts = False

를 추가해주면 된다. 단 위 구문 이후에는 경고창이 안나오기 때문에 되돌리고 싶다면

위 구문에서 False를 True로 해주면 된다.

'VBA' 카테고리의 다른 글

[VBA] Specific Data Distraction  (0) 2021.04.23
[VBA] last Data Cell Searching  (0) 2021.04.23
[VBA] Specific Data Deleting  (0) 2021.04.23
Sheet Deleting except specific sheet  (0) 2021.04.23
Data Distraction and Data-analyzing-insertion  (0) 2021.04.23

+ Recent posts