MS Office-apps er meget designetintelligent, og jeg siger ikke det bare fordi de gør mit arbejde uendeligt lettere. Jeg siger det, fordi det er sandt. For et par dage tilbage lavede vi et indlæg om indsættelse af YouTube-videoer i Office 2013 og bemærkede, at indstillingen var fraværende i MS Excel, bare fordi den ikke var nødvendig der. Dette er den type intelligens, jeg taler om; at vide, hvilke funktioner der er brug for i en bestemt type app. Det sørger for, at intet irrelevant gør det til det endelige tilbud. Når det er sagt, var jeg overrasket over at finde ud af, at hvor Excel giver dig mulighed for at indsætte flere rækker i et regneark, lader det dig ikke vælge antallet af rækker, du vil tilføje. Du har andre muligheder for at udføre dette, f.eks. At vælge det antal rækker, du vil tilføje, fra de eksisterende, og derefter bruge insertfunktionen. Eller du kan gentage indsætningstrinnet i så mange rækker, som du ønsker. Det er gentagne, men hvis du er villig til at spare fem minutter, kan denne lille makro tage sig af jobbet for dig.
Da dette kræver en makro, skal du gøre detgem din fil som en makroaktiveret Excel-fil. For at gøre dette skal du klikke på rullemenuen 'Gem som type' i vinduet Gem som og vælge 'Excel Marco Enabled Workbook (* xlsm).
Dernæst er det tid til at skrive makroen. Gå til fanen Vis, og klik på Makroer for at oprette en ny. Navngiv det, hvad du vil, og klik på 'Opret'. Følgende vindue åbnes automatisk.
Hvad der er relevant her er 'Sub' og 'End Sub'linjer. Underlinien vil indeholde navnet på din makro, mens slutdelen markerer slutningen på kommandoer i den makro. Da du lige har oprettet den, skulle der ikke være noget mellem disse linjer som i skærmbilledet ovenfor. Indsæt følgende mellem disse to linjer.
Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
Denne kode indsætter fem rækker helt fra toppen. Det refereres til i koden A1: A5. For at redigere det, så det passer til dine behov, skal du redigere dette interval. Den første værdi fungerer som en henvisning til, hvor rækkerne indsættes. Hvis du ændrer det til A100, indsættes rækkerne efter de første niogtyve rækker. Når du har indstillet referencepunktet, skal du indtaste antallet af rækker.
Rækkenumre defineres af celleområdet A1: A5. Dette interval indsætter 5 rækker. For at finde det rigtige interval for dit antal rækker, for eksempel du gerne vil indsætte 25 rækker fra A99, tilføjer du 25 til referencepunktet, så det er A99 og minus en celle derfra. Dvs. A100 + 99 - 1 = A198. Du tilføjer rækker og ikke kolonner, så kun antallet ændres og ikke kolonnebrevet. Makroen skal opdateres, hver gang du skal indsætte rækker forfulgt, men det er kun en lille redigering, og den fungerer virkelig godt, så det er værd at bruge tiden.
Makro via Microsoft Support
Kommentarer