Vba kullanarak bir sayfanın tamamı nasıl temi̇zleni̇r?

Tek seferde VBA kodunu kullanarak bir sayfanın tamamını temizlemek için iki şeyi kullanmanız gerekir; ilki CLEAR yöntemi ve ardından çalışma sayfasındaki tüm hücrelere başvurmak için CELLS’tir .

Etkin sayfayı temizle

Diyelim ki aktivasyon sayfasının tüm içeriğini temizlemek istiyorsanız kod aşağıdaki gibi olacaktır.

 Cells.Clear

Bu kodu çalıştırdığınızda, aktif sayfadaki tüm hücrelerdeki her şey temizlenecektir, daha önce de belirttiğim gibi, çalışma sayfasının tamamına atıfta bulunmak için clear kullandık ve onu temizlemek için clear kullandık.

Belirli bir sayfayı temizle

Bir sayfayı temizlemek için o sayfanın etkinleştirilmesi gerektiğine dikkat etmeniz gereken bir şey var. Diyelim ki “Sayfa1″i temizlemek istiyorsunuz, kod şöyle olacaktır:

 Sheets("Sheet1").Activate Cells.Clear

Bu kodda ilk satır “Sayfa1”i etkinleştirir ve ikinci satır her şeyi temizler.

Temizlenecek diğer şeyler

Farklı şeyleri silmek için de aşağıdaki yöntemleri kullanabilirsiniz.

 Cells.ClearContents 'to clear contents Cells.ClearComments 'to clear Comments Cells.ClearFormats 'to clears formatting Cells.ClearHyperlinks 'to clear hyperlinks Cells.ClearNotes 'to clear notes Cells.ClearOutline 'to clears outline

Belirli bir çalışma kitabından bir sayfayı silme

Aşağıdaki kod “Kitap1” çalışma kitabına başvurabilir ve “Sayfa1” sayfasını temizleyebilir. Ancak bu kodu çalıştırırken çalışma kitabının açık olduğundan emin olun.

 Workbooks("Book1").Sheets("Sheet1").Activate Cells.Clear

Bu kod öncelikle kitabın “Sayfa1”ini aktif hale getirir ve siler.

Kapalı bir çalışma kitabından bir sayfayı silme

Ve aşağıdaki kodda, belirli bir konumda saklanan “örnek dosya” çalışma kitabının “Sayfa1”inden bahsettik.

 Sub vba_clear_sheet() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open("C:\Users\Dell\Desktop\sample-file.xlsx") wb.Sheets("Sheet1").Activate Cells.Clear wb.Close SaveChanges:=True Application.ScreenUpdating = False End Sub