En Excel-makro til at slette alle, men det aktive regneark - dummies

Sommetider kan du slette alt, men det aktive regneark i en Excel-projektmappe. I disse situationer kan du bruge følgende makro.

Sådan fungerer makroen

Makroen her løber gennem regnearkene, der passer til hvert regnearknavn til det aktive arks navn. Hver gang makroens sløjfer sletter det et uovertruffen regneark. Bemærk brugen af ​​DisplayAlerts-egenskaben i trin 4. Dette slukker effektivt Excel's advarsler, så du ikke behøver at bekræfte hver sletning.

Sub Macro1 () 'Trin 1: Erklære dine variabler Dim ws As Worksheet' Trin 2: Start looping gennem alle regneark For hver ws I ThisWorkbook. Regneark 'Trin 3: Kontroller hvert regnearknavn Hvis ws. Navn ThisWorkbook. ActiveSheet. Name Then 'Step 4: Sluk advarsler og slet Application. DisplayAlerts = False ws. Slet program. DisplayAlerts = True End Hvis 'Trin 5: Loop til næste regneark Næste ws End Sub

Makroen erklærer først et objekt kaldet ws. Dette trin opretter en hukommelsesbeholder for hvert regneark, der løber igennem.

I trin 2 begynder makroen at sløjfe og fortæller Excel, at den vil evaluere alle regneark i denne projektmappe. Der er forskel på ThisWorkbook og ActiveWorkbook. Objectet ThisWorkBook henviser til den projektmappe, der indeholder koden. ActiveWorkBook-objektet refererer til den aktuelt aktive projektmappe. De returnerer ofte det samme objekt, men hvis arbejdsmappen, der kører koden, ikke er den aktive projektmappe, returnerer de forskellige objekter. I dette tilfælde vil du ikke risikere at slette ark i andre arbejdsbøger, så du bruger ThisWorkBook.

I trin 3 sammenligner makroen blot det aktive arknavn til det ark, der aktuelt er sløjfet.

I trin 4, hvis arknavne er forskellige, sletter makroen arket. Som nævnt bruger du DisplayAlerts til at undertrykke bekræftelseskontroller fra Excel. Hvis du vil blive advaret, før du sletter arkene, kan du udelade programmet. DisplayAlerts = False. At udelade DisplayAlerts-sætningen sikrer, at du får beskeden vist, så du kan trække tilbage fra beslutningen om at slette regneark.

I trin 5 løber makroen tilbage for at få det næste ark. Når alle arkene er evalueret, slutter makroen.

Forlad skærmens advarselsmeddelelser for at se advarselsmeddelelser.

Sådan bruger du makroen

For at implementere denne makro kan du kopiere og indsætte den i et standardmodul:

1. Aktiver Visual Basic Editor ved at trykke på Alt + F11.

2. Højreklik på projekt / projektmappen i projektvinduet.

3. Vælg Indsæt → Modul.

4. Skriv eller indsæt koden i det nyoprettede modul.

Når du bruger ThisWorkbook i stedet for ActiveWorkbook i en makro, kan du ikke køre makroen fra den personlige makro arbejdsbog. Hvorfor? Fordi ThisWorkbook henviser til den personlige makro arbejdsbog, ikke til den projektmappe, som makroen skal anvende.