Å sette inn en rad i VBA er noe annerledes enn å sette inn en kolonne i VBA, i kolonner brukte vi hele kolonnemetoden, men for å sette inn rader bruker vi regnearkmetode med innsettingskommandoen for å sette inn en rad, vi gir også en radreferanse der vi vil sette inn en annen rad som ligner på kolonnene.
Sett inn rad med VBA Excel
Vi kan utføre alle de handlingene vi gjør i excel med VBA-koding. Vi kan kopiere, vi kan lime inn, vi kan slette, og vi kan gjøre mange flere ting gjennom VBA-språk. “Inserting Row” er en av slike metoder vi ofte gjør i excel. I denne artikkelen vil vi vise deg hvordan du utfører innføringsmetoden i VBA.
Hvordan setter du inn rad i Excel VBA?
Nedenfor er de forskjellige metodene for å bruke VBA for å sette inn en rad i Excel.
Metode nr. 1 - Bruke Sett inn metode
I VBA, for å sette inn en rad, må vi bruke en lignende teknikk vi har brukt i Excel-regnearket. I VBA må vi bruke rekkeviddeobjektet for å sette inn raden.
Se for eksempel på koden nedenfor.
Kode:
Sub InsertRow_Example1 () Range ("A1"). Sett inn End Sub
Denne koden vil bevege seg nedover cellen A1 til B1 og sette inn den eneste cellen.
Dette vil føre til så mange problemer når det gjelder håndtering av dataene. Dette vil bare flytte den nevnte cellen ned, og alle de andre tilknyttede kolonnene forblir de samme.
Metode nr. 2 - Bruke hele radeiendommen
Toppinnsatsrekke, vi kan faktisk bruke flere metoder. Metoden nedenfor vil sette inn hele raden over den valgte cellen.
Trinn 1: Nevn først celleadressen .
Kode:
Sub InsertRow_Example2 () Range ("A1"). Slutt Sub
Trinn 2: I stedet for å bare bruke velg " Hele rad " -egenskapen.
Kode:
Sub InsertRow_Example2 () Range ("A1"). EntireRow. Slutt Sub
Trinn 3: Bruk tilgangsmetoden etter tilgang til hele radegenskapen .
Kode:
Sub InsertRow_Example2 () Range ("A1"). EntireRow.Insert End Sub
Dette vil sette inn raden over cellen A1. Siden A1 er den første raden, vil den bevege seg nedover A1-cellen til B1.
Som du kan i bildet ovenfor, må det sette inn hele raden, ikke den eneste cellen.
Metode 3 - Bruke radnumre
I eksemplet ovenfor har vi nettopp brukt encelleadressen og satt inn raden. Vi kan imidlertid også sette inn dem ved å bruke radnumre.
Anta at du vil sette inn en rad under den femte raden. Først må vi nevne radnumrene ved hjelp av RANGE-objektet.
Kode:
Sub InsertRow_Example3 () Range ("6: 6"). Slutt Sub
Siden vi har nevnt hele raden som 6: 6, må vi bruke hele radeiendommen her. Vi kan rett og slett bruke INSERT-metoden.
Kode:
Sub InsertRow_Example3 () Range ("6: 6"). Sett inn End Sub
Dette vil også sette inn hele raden, ikke den eneste cellen.
Hvis du vil sette inn to rader under den femte raden, må vi først velge to rader og deretter bruke INSERT-metoden.
Sub InsertRow_Example3 () Range ("6: 7"). Sett inn End Sub
Dette vil sette inn to rader under den femte raden.
Slik kan vi sette inn så mange rader som mulig i regnearket.
Metode # 4 - Bruk av aktiv celleegenskap
Vi kan bruke Active Cell VBA-egenskapen til å sette inn rader. Den aktive cellen er ingenting annet enn en for tiden valgt celle.
Anta at du er i cellen B5, og du vil sette inn en rad over, kan du bruke aktiv celleegenskap.
Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub
Dette vil sette inn raden over den aktive cellen.
Metode # 5 - Bruk av aktiv celleegenskap med offset-funksjon
Anta at du vil sette inn en rad etter to rader av den aktive cellen, må vi bruke Offset-funksjonen for å kompensere antall rader.
Anta at du er i B5-cellen.
Hvis du ønsker å sette inn rad etter to nd rad fra den aktive cellen, så vi kan bruke under kode.
Kode:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub
Dette vil sette inn rad etter 6 th rad.
Sett inn alternative rader
Å sette inn alternative rader er ofte jeg har kommet over mange ganger. For å se på databildet nedenfor.
Nå må vi sette inn alternative rader. Vi må bruke løkker for å sette inn hver annen rad.
Kode:
Sub InsertRow_Example6 () Dim K Som Integer Dim X Som Integer X = 1 For K = 1 To 4 Cells (X, 1). EntireRow. Sett inn X = X + 2 Neste K End Sub
Dette vil sette inn rader som dette.
Du kan laste ned denne VBA Insert Row Excel her. VBA Sett inn rad Excel-mal
