Ana içeriğe atla

Excel'de belirtilen / geçerli olan dışındaki tüm sayfalar nasıl silinir?

Excel çalışma kitabındaki tüm sayfaları, belirtilen bir veya geçerli etkin sayfa dışında silmek için, bununla aşağıda gösterilen yöntemlerle başa çıkabilirsiniz.

VBA kodu ile belirtilen hariç tüm sayfaları silin
Kutools for Excel ile mevcut aktif olan hariç tüm sayfaları silmek için tek bir tıklama


VBA kodu ile belirtilen hariç tüm sayfaları silin

Aşağıdaki VBA koduyla, Excel'deki belirli bir çalışma kitabındaki tüm sayfayı silebilirsiniz.

1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Microsoft Visual Basic Uygulaması pencere.

2. tık Ekle > modül, ardından VBA kodunu kopyalayıp Modül penceresine yapıştırın.

VBA kodu: Belirtilenler dışındaki tüm sayfaları silin

Sub DeleteSheets1()
	Dim xWs As Worksheet
	Application.ScreenUpdating = False
	Application.DisplayAlerts  = False
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
			xWs.Delete
		End If
	Next
	Application.DisplayAlerts = True
	Application.ScreenUpdating = True
End Sub

notlar:

1. "Sheet1"Ve"Sheet2"Mevcut çalışma kitabında saklamak istediğiniz sayfalardır. Bunları ihtiyaçlarınıza göre değiştirebilirsiniz.

2. Daha fazla sayfa tutmak dışında tümünü silmek istiyorsanız, lütfen kod ekleyin Ve xWs.Name <> "sayfa adınız" önce Sonra kodun altıncı satırındaki kelime. Gibi:

XWs.Name <> "Sayfa1" ve xWs.Name <> "Sayfa2" ise Ve xWs.Name <> "sayfanızın adı" Sonra

3. Yalnızca bir sayfayı saklamak ve çalışma kitabından tümünü silmek istiyorsanız, lütfen hepsini kaldırın Ve koddaki durum. Örneğin, sayfa1'i geçerli çalışma kitabında tutmak için altıncı satır kodunu şu şekilde değiştirmeniz gerekir: XWs.Name <> "Sayfa1" O zaman


Kutools for Excel ile mevcut aktif olanlar dışındaki tüm sayfaları sil (yalnızca tek tıklama)

Yo sadece tek bir tıklama ile mevcut aktif sayfa dışındaki tüm sayfaları kolayca kaldırabilirsiniz. Tüm Etkin Olmayan Sayfaları Sil yarar Kutools for Excel.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. tık Kutools Artı > Çalışma Sayfası > Tüm Etkin Olmayan Sayfaları Sil

3. Ardından bir iletişim kutusu açılır, aktif olan hariç tüm sayfaları silmeye karar verirseniz, OK düğmesini, aksi takdirde, İptal etmek düğmesine basın.

Ardından, çalışma kitabınızdaki geçerli etkin olan dışındaki tüm sayfalar silinir.

  Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.


Kutools for Excel ile seçili hücrelerin ortasına metin ekleyin

En İyi Ofis Üretkenlik Araçları

Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50'den fazla Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

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...

kte sekmesi 201905


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Loved the code, awesome. Thanks.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations