Çalışma kitabında varsa belirli bir sayfa nasıl silinir?
Bir çalışma kitabında varsa, belirli bir çalışma sayfasını nasıl silebilirsiniz? Normalde, var olup olmadığını bulup kontrol etmeniz ve ardından manuel olarak silmeniz gerekir. Burada, Excel dosyasında varsa, belirtilen çalışma sayfasını doğrudan silmenin kolay bir yolundan bahsedeceğim.
VBA kodu içeren bir çalışma kitabında varsa belirli bir çalışma sayfasını silin
VBA kodu içeren bir çalışma kitabında varsa belirli bir çalışma sayfasını silin
Aşağıdaki VBA kodu, çalışma kitabında varsa, belirtilen çalışma sayfasını silmenize yardımcı olabilir, lütfen şu şekilde yapın:
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 varsa belirli bir çalışma sayfasını silin
Sub Test()
'Updateby Extendoffice
Dim xWs As Worksheet
Dim sheetName As String
sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
"sheet1", , , , , 2)
Application.DisplayAlerts = False
Err.Clear
On Error Resume Next
Set xWs = Sheets(sheetName)
If Err <> 0 Then
MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
Exit Sub
Else
xWs.Delete
MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
End If
Application.DisplayAlerts = True
End Sub
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın, var olup olmadığını kontrol etmek istediğiniz sayfa adını yazmanızı hatırlatmak için bir istem kutusu görüntülenir, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesi:
(1.) Sayfa varsa, bir kerede silinecek, ekran görüntüsüne bakın:
(2.) Sayfa mevcut değilse, aşağıdaki ekran görüntüsünü size hatırlatmak için bir istem kutusu açılır:
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!