MS Office-appene er veldig designetintelligent og jeg sier ikke dette bare fordi de gjør arbeidet mitt uendelig mye lettere. Jeg sier det fordi det er sant. For noen dager tilbake postet vi innlegg om YouTube-videoer i Office 2013 og la merke til at alternativet var fraværende i MS Excel ganske enkelt fordi det ikke var nødvendig der. Dette er den typen intelligens jeg snakker om; å vite hvilke funksjoner som er nødvendige i en bestemt type app. Det sørger for at ingenting irrelevant gjør det til det endelige tilbudet. Når det er sagt, ble jeg overrasket over at der Excel lar deg sette inn flere rader i et regneark, lar det deg ikke velge antall rader du vil legge til. Du har andre arbeidsområder for å oppnå dette, for eksempel å velge antall rader du vil legge til fra de eksisterende og deretter bruke insert-funksjonen. Eller du kan gjenta innsatsen på trinnet for så mange rader du vil. Det er repeterende, men hvis du er villig til å spare fem minutter, kan denne lille makroen ta seg av jobben for deg.
Siden dette krever en makro, må du gjøre detlagre filen din som en makroaktivert Excel-fil. For å gjøre dette, klikker du på rullegardinmenyen Lagre som type i vinduet Lagre som og velger ‘Excel Marco Enabled Workbook (* xlsm).
Neste, er det på tide å skrive makroen. Gå til Vis-fanen og klikk på Makroer for å opprette en ny. Navngi hva du vil, og klikk på "Opprett". Følgende vindu åpnes automatisk.
Det som er relevant her er ‘Sub’ og ‘End Sub’linjer. Sub-linjen vil inneholde navnet på makroen din mens End Sub markerer slutten på kommnadene i den makroen. Siden du nettopp opprettet det, skal det ikke være noe mellom disse linjene som i skjermdumpen over. Lim inn følgende mellom disse to linjene.
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 koden vil sette inn fem rader helt fra toppen. Det refereres til i koden A1: A5. For å redigere det slik at det passer dine behov, må du redigere dette området. Den første verdien fungerer som en referanse til hvor radene skal settes inn. Hvis du endrer det til A100, blir radene satt inn etter de første nittini nikkene. Etter å ha angitt referansepunktet, må du angi antall rader.
Radnumre er definert av celleområdet A1: A5. Dette området setter inn 5 rader. For å finne riktig område for antall rader, for eksempel du vil sette inn 25 rader fra A99, legger du 25 til referansepunktet slik at det er A99 og minus en celle derfra. Dvs. A100 + 99 - 1 = A198. Du legger til rader og ikke kolonner, så bare tallet vil endres og ikke kolonnebokstaven. Makroen må oppdateres hver gang du må sette inn rader fortrolig, men det er bare en liten redigering, og den fungerer veldig bra, så det er verdt tiden du bruker.
Makro via Microsoft Support
kommentarer