워크북에 시트가 존재하지 않는 경우 어떻게 생성할 수 있나요?

여러 워크시트를 포함한 워크북이 있고, 특정 워크시트 이름이 존재하는지 확인해야 한다고 가정해 봅시다. 해당 시트가 존재하지 않으면 새로 생성하고, 이미 존재한다면 해당 시트가 이미 있다고 알리는 메시지를 표시합니다. Excel에서 이 작업을 어떻게 수행할 수 있을까요?

VBA 코드를 사용하여 워크북에 시트가 없는 경우 생성하기

VBA 코드를 사용하여 워크북에 시트가 없는 경우 생성하기

다음 VBA 코드는 특정 워크시트 이름이 워크북에 존재하는지 확인하는 데 도움을 줍니다. 만약 존재하지 않는다면, 코드는 필요에 따라 해당 시트를 생성합니다.

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고, 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 워크북에 시트가 없는 경우 생성하기:

Sub TestSheetCreate()
'Updateby Extendoffice
    Dim newSheetName As String
    Dim checkSheetName As String
    newSheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet4", , , , , 2)
    On Error Resume Next
    checkSheetName = Worksheets(newSheetName).Name
    If checkSheetName = "" Then
        Worksheets.Add.Name = newSheetName
        MsgBox "The sheet named ''" & newSheetName & _
        "'' does not exist in this workbook but it has been created now.", _
        vbInformation, "Kutools for Excel"
        
    Else
        MsgBox "The sheet named ''" & newSheetName & _
        "''exist in this workbook.", vbInformation, "Kutools for Excel"
    End If
End Sub

3. 그런 다음 F5 키를 눌러 이 코드를 실행하면, 확인하려는 시트 이름을 입력하라는 메시지 상자가 나타납니다. 스크린샷 참고:

4. 그런 다음 확인 버튼을 클릭합니다:

(1.) 시트가 존재하는 경우, 아래 스크린샷과 같이 알림 상자가 나타납니다:

(2.) 시트가 존재하지 않는 경우, 즉시 생성됩니다. 스크린샷 참고: