ExcelMagazine

W tym tygodniu z powodu nadmiaru pracy nie będzie stałych rubryk. Zamiast tego pokażę jak wyczyścić zawartość arkusza przy pomocy VBA. Aby wyczyścić zawartość komórek możemy:

 
Sub WyczyscWszystko()
        Dim zakresCzyszczenia As Range
10     Set zakresCzyszczenia = ThisWorkbook.Worksheets("Arkusz 1").Range("A1:A10")
20     zakresCzyszczenia.Clear 'Za pomocą metody Clear czyścimy zawartość _
                                         'i formatowanie zakresu.
30     zakresCzyszczenia.ClearContents 'Czyścimy tylko zawartość komórki
40     zakresCzyszczenia.ClearFormats 'Czyścimy tylko formatowanie
End Sub

Linijka 20 czyści zawartość i formatowanie komórek, 30 czyści tylko zawartośc, 40 tylko formaty.

Na koniec Procedura, która wywołana wyczyści podany jej jako parametr arkusz.

 
Public Sub Czyszczenie(NazwaArkusza as String)
    Application.ScreenUpdating = False
    ThisWorkbook.Worksheets(NazwaArkusza).Activate
    ThisWorkbook.Worksheets(NazwaArkusza).Rows("1:65536").ClearContents
    Application.ScreenUpdating = True
End Sub

Aby wywołać procedure wystarczy napisać Call Czyszczenie("Arkusz1")

Powiązane artykuły:

• Wtorki z VBA cz.14 – Zapisywanie zakresów
• Wtorki z VBA cz.11 – Wydajne przetwarzanie zakresów
• Wtorki z VBA – Zamykanie formularza
• Wtorki z VBA – Obsługa formularzy z poziomu VBA
• Wtorki z VBA – Formularze i obsługa klawiatury