Excel'deki hücre değerine dayalı çalışma sayfası nasıl silinir?
Bir çalışma kitabında birden çok çalışma sayfam olduğunu varsayarsak, şimdi, sayfaları hücre değerine göre silmek istiyorum. Örneğin, belirli A1 hücresi "KTE" metnini içeriyorsa, A1 hücresinde bu metnin bulunduğu tüm sayfaların bir defada silinmesi gerekir. Bu makale, Excel'de bu görevin üstesinden gelmenize yardımcı olabilir.
VBA kodu ile hücre değerine dayalı çalışma sayfasını silin
VBA kodu ile hücre değerine dayalı çalışma sayfasını silin
Burada, belirli bir hücrenin belirli bir değere sahip olduğu tüm sayfaları silmeniz için size bir kod sunacağım, lütfen aşağıdaki işlemleri gerçekleştirin:
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 sayfasını hücre değerine göre silin:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
not: Yukarıdaki kodda, A1 Sayfaları temel alarak silmek istediğiniz belirli metni içeren belirli hücredir.
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve sayfaları temel alarak silmek istediğiniz belirli değeri girmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesi, A1 hücresinde KTE metninin bulunduğu tüm sayfalar bir kerede silinmiştir. Ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Excel Becerilerinizi Güçlendirin Kutools for Excelve Verimliliği Daha Önce Hiç Olmadığı Şekilde 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 Sekmeli arabirimi Office'e 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!




