Excel VBA Sett inn rad

Ettersom det er to ting i dette ordet, er det ene VBA og det andre er Insert Row. I dette skal jeg forklare hvordan du setter inn Row i Excel ved å bruke VBA (Visual Basic for Applications).

VBA - Det er et programmeringsspråk for de som jobber i Excel og andre Office-programmer, slik at man kan automatisere oppgaver i Excel ved å skrive såkalte makroer. Ved å bruke VBA-koding kan vi utføre alle de fleste oppgavene vi utfører i Excel, da vi kan kopiere, lime inn, slette osv.

Sett inn rad - Den brukes til å sette inn en rad i Excel mellom en annen rad ved hjelp av automatisering, dvs. med ett klikk.

Anta at vi legger inn ansattdetaljene i Excel, og vi har hoppet over noen av de ansatte og ønsker å sette inn detaljene om de savnede i mellom, så vi må lage et mellomrom og sette inn en rad for å legge inn detaljene deres. I stedet for å sette inn rad en etter en kan vi automatisere oppgaven med å sette inn rader ved å bruke VBA og lage makroer.

Det er mange måter å bruke rader på ved hjelp av VBA-koding. Funksjonen som brukes for å sette inn en rad i VBA er:

Range (). Row (). EntireRow.Insert

La oss vurdere at vi har et datasett som består av kolonner som Kundenavn , Produkt, Salg, Mengde, Fraktkostnad, Bestillingsprioritet.

Anta sjansen for at vi må flytte kolonnene ned for å sette inn en 3 ny rad mellom 3 og 4 for å sette inn en ny manglende post. I stedet for å sette inn rad en etter en vil vi automatisere dette for å sette inn alle de 3 radene på et enkelt klikk.

Hvordan sette inn rader i Excel VBA?

Nedenfor er de forskjellige eksemplene for å sette inn rader i Excel ved hjelp av VBA-kode.

Du kan laste ned denne VBA Sett inn rad Excel-mal her - VBA Sett inn rad Excel-mal

Eksempel 1 - Bruke hele raden

Følg trinnene nedenfor for å sette inn rader i Excel med VBA-kode.

Trinn 1: For å lage en makro må vi velge Utvikler-fanen.

Trinn 2: Etter at fanen Utvikler åpnes, setter du inn en knapp fra kontrollgruppen. Klikk på Sett inn og velg det første alternativet fra ActiveX-kontroller. Som du kan se den kommandoknappen .

Trinn 3: Dra pilen til hvilken som helst celle for å opprette en kommandoknapp.

Trinn 4: For å gå inn i Sett inn-funksjonen Høyreklikk på kommandoknappen, dvs. Sett inn 3 rader og klikk på Vis kode.

Trinn 5: Når du klikker på Vis koden, vises følgende kode.

Kode:

 Privat underkommandoButton1_Klikk () Slutt sub

Trinn 6: Vi må skrive koden vår for INSERT ROW. Som nevnt tidligere må vi bruke Rows.EntireRow-funksjonen med RANGE i VBA. I denne koden må vi sette inn 3 mellom tredje og fjerde .

Kode:

 Privat underkommandoButton1_Klikk () Område ("A3"). Rader ("3: 5"). HeleRek.Indtast sluttund

I kodelinjen ovenfor er A3 en kolonne der vi må sette inn rad og Rader (3: 5) er vi nødt til å sette inn 3 nye rader.

Trinn 7: Kjør koden ved å klikke på Sett inn 3 rader- kommandoknappen.

Eksempel 2 - Bruke radnumre

Tilsvarende vil vi skrive en kode for å sette inn to rader med et klikk på en knapp.

I dette må vi nevne rad fra startrad til sluttradnummer ved å bruke RANGE etterfulgt av INSERT som vil sette inn radene.

Kode:

 Privat underkommandoButton2_Klikk () Område ("3: 4"). Sett inn sluttund

Når vi klikker på knappen "Sett inn 2 rader", ser vi at det er satt inn 2 rader mellom 3. og 4. rad.

På samme måte kan vi tilpasse funksjonen vår til å sette inn så mange rader vi kan.

Eksempel 3 - Bruke Active Cell

Aktiv celle betyr den cellen som er valgt nå. Vi vil bruke Aktiv celle for å sette inn rader. Anta at vi er på celle B3 og vil sette inn cellen over den vil vi bruke aktiv celleegenskap. Vi bruker følgende kode for den aktive cellen.

Kode:

 Privat underkommandoButton3_Klikk () ActiveCell.EntireRow.Insert End Sub

Når vi klikker på knappen "Aktiv celleegenskap" ser vi at en celle er satt inn over den valgte cellen. I det ovennevnte har vi valgt B5 og nedenfor kan vi se at en rad er satt inn over den.

Eksempel 4 - Bruke aktiv celle med offset

Anta at vi vil sette inn en rad etter 3 rader med den aktive cellen, for dette vil vi bruke OFFSET-funksjonen. Anta at vi er i celle B4 og må sette inn rad etter 2 rader, vi bruker denne koden.

Kode:

 Privat underkommandoButton4_Klikk () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub

Når vi klikker på knappen “Active Cell using Offset”, settes det inn en rad i B6.

Ting å huske

  • Det brukes til å sette inn rader i Excel ved å automatisere det.
  • VBA Insert Row brukes med RANGE-objekt i VBA.
  • Før du jobber må du aktivere “Aktiver alle makroer” i makroinnstillinger.

Anbefalte artikler

Dette er en guide til VBA Insert Row. Her diskuterer vi hvordan du setter inn Row i Excel ved hjelp av VBA-kode sammen med praktiske eksempler og nedlastbar Excel-mal. Du kan også se på følgende artikler for å lære mer -

  1. Eksempler på VBA GetObject-funksjon
  2. Excel Sett inn flere rader (Excel-mal)
  3. Hvordan bruke VBA StrConv-funksjon?
  4. Guide til Excel Sett inn radsnarvei

Kategori:

VBA