Sayfa oluşturmamız veya eklememiz gereken zamanlar vardır ve daha sonra bu sayfanın kullanılmadığını tespit ettik, bu nedenle çalışma kitabından sayfayı hızlı bir şekilde silmemiz gerekiyor. Bu makale zamandan tasarruf etmeye ve vba makrosu / kodu kullanarak herhangi bir istem mesajı kutusu olmadan sayfaları kaldırmak için kod sağlamaya odaklanır. Bir veya birkaç sayfa olabilir. Ve excel, sayfa silme işlemini onaylamak için bir açılır uyarı verir. Tek sayfasıysa, yönetilebilir. Ancak birkaç sayfayı silmeniz gerekiyorsa, sayfa başına bir açılır pencere alırsınız.
VBA kullanarak genellikle birden çok sayfa oluşturursunuz. Ama sonunda, aslında onlara ihtiyacınız yok. İşiniz bittikten sonra onları silmek istersiniz. Dosyanızı daha hafif, daha hızlı ve mantıklı tutacaktır.
Bir sayfayı silmek için VBA kodu basittir
Sayfalar("SayfaAdı").Sil
Diyelim ki bir sayfa eklemek için bu koda sahipsiniz ve ardından iş bittiğinde onu silin.
Sub AddAndDeleteSheet() Sheets.Add 'Etkin çalışma kitabına yeni bir sayfa ekler '---- '---- '---- 'sayfa üzerinde bazı çalışmalar yapıldı ActiveSheet.Delete 'aktif Activesheet End Sub'ı siler
Bu kodu çalıştırdığınızda, Sheets.Add herhangi bir istem olmadan çalışacak ancak derleyici ne zaman gelecek ActiveSheet.Delete böyle bir mesaj isteyecektir.
VBA kullanarak sayfaları sildiğiniz için ne yaptığınızı biliyorsunuz. Excel'e bu uyarıyı göstermemesini ve lanet olası sayfayı silmesini söylemek istersiniz.
Bunun için Excel Uygulamasının ekran uyarı butonunu kapatacağız.
Aşağıdaki kod bu uyarı mesajını atlayacak ve sayfa herhangi bir uyarı yapılmadan silinecektir.
Sub AddAndDeleteSheet() Application.DisplayAlerts = False 'uyarı düğmesini kapatıyor Sheets.Add '---- '---- '---- 'sayfa üzerinde bazı çalışmalar yapıldı ActiveSheet.Delete Application.DisplayAlerts = True 'açılıyor uyarı düğmesi End Sub
Burada VBA kullanarak Activesheet'i siliyoruz. VBA kullanarak herhangi bir sayfayı silebilirsiniz. Sheets("Sayfaadı").delete yazmanız yeterlidir. Hareketli…
DisplayAlerts, VBA'daki Application nesnesinin bir özelliğidir. Burada kodumuzun başında kapatıyoruz ve kodun sonunda açıyoruz. Yukarıdaki kod, herhangi bir uyarı olmaksızın silme işlemini onaylayacaktır.
Not:Yukarıdaki kod, excel tarafından atılan tüm uyarıları yok sayacaktır. Bu satırı kullanmak yerine yalnızca sayfa silmeye izin vermek istiyorsanız.
Application.DisplayAlerts = False 'uyarı düğmesini kapatma ActiveSheet.Delete Application.DisplayAlerts = True 'uyarı düğmesini açma
Bu, yalnızca sayfa silme uyarısını yok sayar.
Profesyonel İpucu: Bu kod satırları, VBA kodunuzu daha verimli hale getirir.Bunları her zaman makronuzun başında kullanın ve kodunuzun rutinden çıkması beklenen her yerde tekrar açın.Uyarı: Alt programdan çıkmadan önce açılmazsa hiçbir uyarı görmeyebilirsiniz. Kodunuz çalışmıyor olsa bile. Bu birçok soruna neden olabilir.
Silmek için birden fazla sayfanız varsa ve bir döngü kullanıyorsanız, bu kodu deneyin -
Seçenek Explicit Sub macro2() Dim i As Long Application.DisplayAlerts = False For i = 1 to Worksheets.Count If Worksheets(i).Name "Test*" Gibi Sonra Worksheets(i).Delete Next i Application.DisplayAlerts = True End Alt
Bu kadar. Bitti. Fanı açıp kapatmak kadar kolay. değil mi?
Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. bize yazın e-posta sitesiDosyayı indir
Microsoft Excel'de VBA kullanarak onay istemleri olmadan sayfaları silin
Excel Sayfasını VBA Kullanarak Sütuna Dayalı Birden Çok Dosyaya Böl
Microsoft Excel 2016'da VBA Kullanarak Varsayılan Yazıcıyı Değiştirme
Microsoft Excel 2016'da VBA Kullanarak Uyarı Mesajlarını Kapatın
Excel VBA Durum Çubuğunda Bir Mesaj Görüntüle
Microsoft Excel 2016'da VBA Kullanarak Resim Ekleme
VBA Kullanarak Excel'de Sayfalarda Döngü Nasıl Yapılır?
Popüler Makaleler:
Verimliliğinizi Artıracak 50 Excel Kısayolu
Excel'de DÜŞEYARA İşlevi nasıl kullanılır?
Excel'de COUNTIF işlevi nasıl kullanılır?
Excel'de SUMIF İşlevi nasıl kullanılır?