Ad çalışma kitabından belirli bir metin içeriyorsa sayfa nasıl silinir?
Diyelim ki, birden fazla çalışma sayfası içeren bir çalışma kitabınız var ve şimdi sayfaları sekme adlarına göre silmek istiyorsunuz. Örneğin, sayfa adı belirli bir “KTE” metni içeriyorsa, silin ve ardından aşağıdaki ekran görüntüsünü alın. İsim belirli bir metin içeriyorsa sayfaları tek tek silmeden hemen nasıl silebilirsiniz?
Ad, VBA kodu içeren belirli bir metin içeriyorsa sayfaları silin
Ad, VBA kodu içeren belirli bir metin içeriyorsa sayfaları silin
Burada, sayfaları ada göre silmeniz için bir VBA kodu oluşturacağım, 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: Ad belirli bir metin içeriyorsa sayfaları silin
Sub Deletebyname()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
ThisWorkbook.ActiveSheet.Name, , , , , 2)
If shName = "" Then Exit Sub
xName = "*" & shName & "*"
' MsgBox xName
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Name Like xName Then
xWs.Delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir tuşa basın ve sayfa sekmesini temel alarak silmek istediğiniz belirli metni girmenizi hatırlatmak için bir komut kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OKadı belirtilen “KTE” metnini içeren tüm sayfalar bir defada silinmiştir. 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!