Çalışma kitabında yoksa bir sayfa nasıl oluşturulur?

Diyelim ki, birden fazla çalışma sayfası içeren bir çalışma kitabınız var, şimdi, belirli bir çalışma sayfası adının olup olmadığını belirlemeniz gerekiyor. Çalışma sayfası adı yoksa, lütfen oluşturun. Varsa, lütfen sayfanın var olduğunu bildirmek için bir uyarı mesajı verin. Bu görevi Excel'de nasıl çözebilirsin?

VBA kodu ile çalışma kitabında yoksa bir sayfa oluşturun

---

VBA kodu ile çalışma kitabında yoksa bir sayfa oluşturun

Aşağıdaki VBA kodu, çalışma kitabında varsa belirli bir çalışma sayfası adını kontrol etmenize yardımcı olabilir, yoksa kod, ihtiyacınız olan sayfayı oluşturabilir.

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Çalışma kitabında yoksa bir sayfa oluşturun:

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. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın, kontrol etmek istediğiniz sayfa adını girmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:

4. Sonra tıklayın OK düğmesi:

(1.) Sayfa varsa, gösterilen aşağıdaki ekran görüntüsünü size hatırlatmak için bir istem kutusu açılır:

(2.) Sayfa yoksa, hemen oluşturulacaktır, ekran görüntüsüne bakın: