엑셀 VBA 시트 추가 방법

엑셀 VBA 원하는 시트 추가 방법 알아 보겠습니다. 원하는 갯수 만틈 엑셀 VBA 시트 추가 하려면 화면에서 입력을 받아 처리를 해야 합니다.

화면에서 엑셀 시트 갯수 입력 받은 함수는 inputbox 입니다

엑셀 화면에서 엑셀 시트 갯수 입력 받은 만큼 엑셀 시트를 추가 해 보겠습니다.

엑셀 시트 추가 하려면 어떤 코딩을 해야 하나? 매크로 기록으로 간단히 엑셀 시트 추가 해 보면 알수 있습니다.

엑셀 매크로 기록 시작

엑셀 시트 sheet2 추가 완료

매크로 기록 중지 하고 열어서 매크로 기록이 어떻게 되었는지 소스코드 살펴 봐야 겠습니다.

엑셀 VBA 관련 >>

엑셀 매크로 기록 중지 하고 , 소스 코드를 살펴 보면

엑셀 시트 추가 하는 것은 바로

Sheets.Add 입니다.

Sheets.Add 는 현재 엑셀 시트 기준으로 왼쪽 방향으로 엑셀 시트 추가 됩니다.

Sheets.Add After:=ActiveSheet 는 현재 활성 시트 기준으로 오른쪽 방향으로 엑셀 시트 추가 됩니다.

Sub 시트추가()
‘
‘ 매크로시트추가
‘
Dim snum As Integer

snum = InputBox(“추가할 시트 갯수 입력하세요”)

For i = 1 To snum

Sheets.Add

Next i

End Sub

엑셀 시트 추가 sheets.ADD 실행 결과

inputbox(” 추가할 시트 갯수 입력 하세요”) 에서 입력 값을 받게 됩니다.

Sub 시트추가()
‘
‘ 매크로시트추가
‘
Dim snum As Integer

snum = InputBox(“추가할 시트 갯수 입력하세요”)

For i = 1 To snum

Sheets.Add After:=ActiveSheet

Next i

End Sub

입력창에 2 라고 입력 해 줍니다.

엑셀 sheet1 기준으로 우측 방향으로 엑셀 시트 추가 됩니다. After 있으므로 Before 있습니다.

엑셀 VBA 엑셀 시트 추가 하는 Sheets.Add 이용 하는 방법 알아 봤습니다.