Nogle gange vil du måske slette alt undtagen det aktive regneark i en Excel-projektmappe. I disse situationer kan du bruge følgende makro.
Makroen her går gennem regnearkene og matcher hvert regnearks navn med det aktive arks navn. Hver gang makroen går i løkker, sletter den ethvert uovertruffent regneark. Bemærk brugen af egenskaben DisplayAlerts i trin 4. Dette slår effektivt Excels advarsler fra, så du ikke behøver at bekræfte hver sletning.
Undermakro1()
Trin 1: Erklær dine variabler
Dim ws As Arbejdsark
Trin 2: Begynd at gennemgå alle arbejdsark
For hver ws In ThisWorkbook.Worksheets
Trin 3: Kontroller hvert regnearks navn
Hvis ws.Name <> ThisWorkbook.ActiveSheet.Name Så
'Trin 4: Sluk advarsler og slet
Application.DisplayAlerts = Falsk
ws.Slet
Application.DisplayAlerts = Sand
Afslut Hvis
Trin 5: Gå videre til næste regneark
Næste ws
Slut Sub
Makroen erklærer først et objekt kaldet ws. Dette trin opretter en hukommelsesbeholder for hvert regneark, det går igennem.
I trin 2 begynder makroen at gå i loop og fortæller Excel, at den vil evaluere alle regneark i denne projektmappe. Der er forskel på ThisWorkbook og ActiveWorkbook. ThisWorkBook-objektet henviser til den projektmappe, der indeholder koden. ActiveWorkBook-objektet henviser til den aktuelt aktive projektmappe. De returnerer ofte det samme objekt, men hvis projektmappen, 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 projektmapper, så du bruger ThisWorkBook.
I trin 3 sammenligner makroen simpelthen navnet på det aktive ark med det ark, der i øjeblikket bliver sløjfet.
I trin 4, hvis arknavnene er forskellige, sletter makroen arket. Som nævnt bruger du DisplayAlerts til at undertrykke enhver bekræftelseskontrol fra Excel. Hvis du ønsker at blive advaret, før du sletter arkene, kan du udelade Application. DisplayAlerts = Falsk. Udeladelse af DisplayAlerts-erklæringen vil sikre, at du får vist meddelelsen, så du kan trække dig tilbage fra beslutningen om at slette regneark.
I trin 5 går makroen tilbage for at få det næste ark. Når alle arkene er evalueret, slutter makroen.
Udelad DisplayAlerts-erklæringen for at se advarselsmeddelelser.
For at implementere denne makro kan du kopiere og indsætte den i et standardmodul:
Aktiver Visual Basic Editor ved at trykke på Alt+F11.
Højreklik på projektets/projektmappens navn i projektvinduet.
Vælg Indsæt → Modul.
Indtast 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 makroprojektmappe. Hvorfor? Fordi ThisWorkbook vil referere til den personlige makroprojektmappe, ikke til den projektmappe, som makroen skal gælde for.
Sådan blokerer du Microsoft Word fra at åbne filer i skrivebeskyttet tilstand på Windows Microsoft Word åbner filer i skrivebeskyttet tilstand, hvilket gør det umuligt at redigere det? Bare rolig, metoderne er nedenfor
Sådan rettes fejl ved udskrivning af forkerte Microsoft Word-dokumenter Fejl ved udskrivning af Word-dokumenter med ændrede skrifttyper, rodede afsnit, manglende tekst eller tabt indhold er ret almindelige. Men lad være
Hvis du har brugt pennen eller highlighteren til at tegne på dine PowerPoint-dias under en præsentation, kan du gemme tegningerne til næste præsentation eller slette dem, så næste gang du viser den, starter du med rene PowerPoint-dias. Følg disse instruktioner for at slette pen- og highlighter-tegninger: Sletning af linjer en ved […]
Style-biblioteket indeholder CSS-filer, Extensible Stylesheet Language-filer (XSL) og billeder, der bruges af foruddefinerede mastersider, sidelayouts og kontrolelementer i SharePoint 2010. For at finde CSS-filer i Style-biblioteket på et udgivelsessted: Vælg Site Actions→ View Alt webstedsindhold. Indholdet af webstedet vises. Style-biblioteket ligger i […]
Overvæld ikke dit publikum med gigantiske tal. I Microsoft Excel kan du forbedre læsbarheden af dine dashboards og rapporter ved at formatere dine tal, så de vises i tusinder eller millioner.
Lær, hvordan du bruger SharePoints sociale netværksværktøjer, der lader enkeltpersoner og grupper kommunikere, samarbejde, dele og forbinde.
Julianske datoer bruges ofte i produktionsmiljøer som et tidsstempel og hurtig reference for et batchnummer. Denne type datokodning giver detailhandlere, forbrugere og serviceagenter mulighed for at identificere, hvornår et produkt blev fremstillet, og dermed produktets alder. Julianske datoer bruges også i programmering, militæret og astronomi. Forskellige […]
Du kan oprette en webapp i Access 2016. Så hvad er en webapp overhovedet? Nå, web betyder, at det er online, og app er kun en forkortelse for "applikation". En Custom Web App er en online databaseapplikation, der tilgås fra skyen ved hjælp af en browser. Du bygger og vedligeholder webappen i desktopversionen […]
De fleste sider i SharePoint 2010 viser en liste over navigationslinks på linjen Hurtig start langs venstre side af siden. Hurtig startlinjen viser links til fremhævet webstedsindhold såsom lister, biblioteker, websteder og udgivelsessider. Hurtigstartlinjen indeholder to meget vigtige links: Linket Alt webstedsindhold: […]
Ved simple problemer finder Solver i Excel som regel hurtigt de optimale Solver-variableværdier for objektivfunktionen. Men i nogle tilfælde har Solver problemer med at finde de Solver-variableværdier, der optimerer objektivfunktionen. I disse tilfælde viser Solver typisk en meddelelse eller en fejlmeddelelse, der beskriver eller diskuterer det problem, der […]
