จะสร้างแผ่นงานได้อย่างไรหากไม่มีอยู่ในสมุดงาน

สมมติว่าคุณมีสมุดงานซึ่งมีหลายแผ่นงานตอนนี้คุณต้องพิจารณาว่ามีชื่อแผ่นงานเฉพาะหรือไม่ หากไม่มีชื่อแผ่นงานโปรดสร้างขึ้น หากมีอยู่โปรดส่งข้อความแจ้งให้คุณทราบว่ามีแผ่นงานอยู่ คุณจะแก้ปัญหานี้ใน 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. ) หากไม่มีแผ่นงานจะสร้างขึ้นพร้อมกันดูภาพหน้าจอ: