Ç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:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!