Indholdsfortegnelse:
Video: Med Makro i Excel kan du gøre dine arbejdsgange lette. 2024
Du kan nogle gange have eller skal oprette en Excel-projektmappe på en automatisk måde. Du skal muligvis kopiere data fra et bord og indsætte det i en nyoprettet arbejdsbog. Følgende makro kopierer en række celler fra det aktive ark og indsætter dataene i en ny arbejdsbog.
Sådan fungerer makroen
Som du vil se, når du læser kodenes linjer, er denne makro relativt intuitiv:
Sub Macro1 () 'Trin 1 Kopier dataarkene ("Eksempel 1"). Område ("B4: C15"). Kopier 'Trin 2 Opret en ny arbejdsbog Arbejdsbøger. Tilføj 'Trin 3 Indsæt data'ets ActiveSheet. Indsæt destination: = Område ("A1") 'Trin 4 Sluk programvarsler Ansøgning. DisplayAlerts = False 'Trin 5 Gem den nyoprettede arbejdsbog ActiveWorkbook. SaveAs _ Filnavn: = "C: TempMyNewBook. Xlsx" 'Trin 6 Slå programvarsler tilbage på Application. DisplayAlerts = True End Sub
I trin 1 kopierer du simpelthen dataene fra cellerne B4 til C15. Bemærk at du angiver både arket og rækkevidden efter navn. Denne fremgangsmåde er en god praksis, når du arbejder med flere åbne arbejdsbøger.
I trin 2 bruger du Add-metoden i Workbook-objektet til at oprette en projektmappe. Den tomme arbejdsbog svarer til manuelt at vælge Fil → Ny → Blank dokument i Excel-båndet.
I trin 3 bruger du Paste-metoden til at sende de kopierede data til celle A1 i den nye arbejdsbog.
Vær opmærksom på, at koden refererer til ActiveSheet-objektet. Når du tilføjer en projektmappe, får den nye projektmappe umiddelbart fokus, og bliver den aktive arbejdsbog. (Excel gør det samme, når du tilføjer en projektmappe manuelt.)
I trin 4 i koden indstiller du DisplayAlerts-metoden til False, så du effektivt slukker Excels advarsler. Du gør dette, fordi du i det næste trin i koden gemmer den nyoprettede arbejdsbog. Du kan køre denne makro flere gange, i hvilket tilfælde Excel forsøger at gemme filen flere gange.
Hvad sker der, når du forsøger at gemme en projektmappe flere gange? Det er rigtigt - Excel advarer dig om, at der allerede er en fil med det pågældende navn og derefter spørger, om du vil overskrive den tidligere eksisterende fil. Fordi dit mål er at automatisere oprettelsen af arbejdsmappen, vil du undertrykke denne advarsel.
I trin 5 gemmer du filen ved hjælp af SaveAs-metoden. Bemærk, at du indtaster den fulde sti til gemstedet, herunder det endelige filnavn.
Da du slog applikationsændringer fra i trin 4, skal du tænde dem igen (se trin 6). Hvis du ikke gør det, fortsætter Excel med at undertrykke alle advarsler under den aktuelle session.
Sådan bruger du makroen
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å projekt / projektmappen i projektvinduet.
-
Vælg Indsæt → Modul.
-
Skriv eller indsæt koden i det nyoprettede modul.
Du skal sandsynligvis ændre arknavn, rækkeviddeadresse og gemme placering.