통합 문서에없는 경우 시트를 만드는 방법은 무엇입니까?

여러 워크 시트가 포함 된 통합 문서가 있다고 가정하면 이제 특정 워크 시트 이름이 있는지 확인해야합니다. 워크 시트 이름이 없으면 새로 만드십시오. 존재하는 경우 시트가 있음을 알리는 프롬프트 메시지를 제공하십시오. Excel에서이 작업을 어떻게 해결할 수 있습니까?

VBA 코드를 사용하여 통합 문서에없는 경우 시트 만들기

---

VBA 코드를 사용하여 통합 문서에없는 경우 시트 만들기

다음 VBA 코드는 통합 문서에있는 경우 특정 워크 시트 이름을 확인하는 데 도움이 될 수 있습니다. 그렇지 않은 경우 코드는 필요에 따라 시트를 만들 수 있습니다.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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. 그런 다음 OK 버튼 :

(1.) 시트가있는 경우 다음 스크린 샷과 같이 알려주는 프롬프트 상자가 나타납니다.

(2.) 시트가 없으면 즉시 생성됩니다. 스크린 샷을 참조하십시오.