Çalışma kitabında bir sayfa yoksa nasıl oluşturulur?
Birden fazla çalışma sayfası içeren bir çalışma kitabınız olduğunu ve belirli bir “Çalışma Sayfası Adı”nın varlığını kontrol etmeniz gerektiğini düşünün. Sayfa mevcut değilse oluşturun; mevcutsa, sayfanın zaten var olduğunu bildiren bir uyarı gösterin. Bu görevi Excel’de nasıl gerçekleştirirsiniz?
Çalışma kitabında olmayan bir sayfayı VBA koduyla oluşturun
Çalışma kitabında olmayan bir sayfayı VBA koduyla oluşturun
Aşağıdaki VBA kodu, çalışma kitabınızda belirli bir çalışma sayfası adının varlığını kontrol eder; böyle bir sayfa yoksa, gerekli sayfayı otomatik olarak oluşturur.
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.Microsoft Visual Basic for Applications window.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Çalışma kitabında olmayan bir sayfayı 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. Ardından bu kodu çalıştırmak için F5 tuşuna basın; kontrol etmek istediğiniz sayfa adını girmenizi hatırlatan bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Ardından TAMAM düğmesine tıklayın:
(1.) Eğer sayfa mevcutsa, aşağıdaki ekran görüntüsünde gösterildiği gibi sizi uyaran bir uyarı kutusu açılacaktır:
(2.) Eğer sayfa mevcut değilse, hemen oluşturulacaktır; ekran görüntüsüne bakın:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar