Excel VBA Indsæt række

Da der er to ting i dette ord, er det ene VBA og det andet er Indsæt række. I dette vil jeg forklare, hvordan man indsætter række i Excel ved hjælp af VBA (Visual Basic til applikationer).

VBA - Det er et programmeringssprog for dem, der arbejder i Excel og andre Office-programmer, så man kan automatisere opgaver i Excel ved at skrive såkaldte makroer. Ved hjælp af VBA-kodning kan vi udføre alle mest alle de opgaver, vi udfører i Excel, da vi kan kopiere, indsætte, slette osv.

Indsæt række - Det bruges til at indsætte en række i Excel mellem en anden række ved hjælp af automatisering, dvs. med et enkelt klik.

Antag, at vi indtaster medarbejderdetaljerne i Excel, og vi har sprunget over nogle af medarbejderne og vil indsætte detaljerne om de manglende dem imellem, så vi er nødt til at oprette et mellemrum og indsætte en række for at indtaste deres detaljer. I stedet for at indsætte række en efter en kan vi automatisere opgaven med at indsætte rækker ved hjælp af VBA og oprette makroer.

Der er mange måder at bruge, som vi kan indsætte rækkerne ved hjælp af VBA-kodning. Funktionen, der bruges til at indsætte en række i VBA, er:

Range (). Row (). EntireRow.Insert

Lad os overveje, at vi har et datasæt, der består af kolonner som kundenavn , produkt, salg, mængde, forsendelsesomkostninger, ordreprioritet.

Antag chancen for, at vi er nødt til at flytte kolonnerne ned for at indsætte en 3 ny række mellem 3 og 4 for at indsætte en ny manglende post. I stedet for at indsætte række en efter en, automatiserer vi dette for at indsætte alle de 3 rækker med et enkelt klik.

Sådan indsættes rækker i Excel VBA?

Nedenfor er de forskellige eksempler til indsættelse af rækker i Excel ved hjælp af VBA-kode.

Du kan downloade denne VBA Indsæt række Excel-skabelon her - VBA Indsæt række Excel-skabelon

Eksempel 1 - Brug af hele række

Følg nedenstående trin for at indsætte rækker i Excel ved hjælp af VBA-kode.

Trin 1: For at oprette en makro skal vi vælge fanen Udvikler.

Trin 2: Når fanen Udvikler er åbnet, skal du indsætte en knap fra gruppen Kontrol. Klik på Indsæt, og vælg den første mulighed fra ActiveX-kontroller. Som du kan se den kommandoknap .

Trin 3: Træk pilen til enhver celle for at oprette en kommandoknap.

Trin 4: For at åbne indsætfunktionen Højreklik på kommandoknappen, dvs. Indsæt 3 rækker og klik på Vis kode.

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

Kode:

 Privat underkommandoButton1_Klik () Slut sub

Trin 6: Vi skal skrive vores kode for INSERT ROW. Som nævnt tidligere skal vi bruge Rows.EntireRow-funktion med RANGE i VBA. I denne kode skal vi indsætte 3 mellem tredje og fjerde.

Kode:

 Privat underkommandoKnap1_Klik () Område ("A3"). Rækker ("3: 5"). HeleRow.Indtast slutund

I ovenstående kodelinie er A3 en kolonne, hvor vi skal indsætte række og rækker (3: 5) er vi nødt til at indsætte 3 nye rækker.

Trin 7: Kør koden ved at klikke på kommandoknappen Indsæt 3 rækker .

Eksempel 2 - Brug af rækkenumre

Tilsvarende vil vi skrive en kode for at indsætte 2 rækker med et klik på en knap.

I dette skal vi nævne række fra start række til slut række nummer ved hjælp af RANGE efterfulgt af INSERT, som vil indsætte rækkerne.

Kode:

 Privat underkommandoButton2_Klik () Område ("3: 4"). Indsæt slutunderdel

Når vi klikker på knappen "Indsæt 2 rækker", ser vi, at der er indsat 2 rækker i 3. og 4. række.

Tilsvarende kan vi tilpasse vores funktion til at indsætte så mange rækker, som vi kan.

Eksempel 3 - Brug af aktiv celle

Aktiv celle betyder den celle, der i øjeblikket er valgt. Vi bruger Aktiv celle til at indsætte rækker. Antag, at vi er på celle B3 og vil indsætte cellen over den, vi bruger aktiv celleegenskab. Vi bruger følgende kode til den aktive celle.

Kode:

 Privat underkommandoButton3_Klik () ActiveCell.EntireRow.Insert End Sub

Når vi klikker på knappen "Aktiv celleegenskab" ser vi, at der indsættes en celle over den valgte celle. Ovenstående har vi valgt B5, og nedenfor kan vi se, at der indsættes en række ovenover.

Eksempel 4 - Brug af aktiv celle med offset

Antag, at vi vil indsætte en række efter 3 rækker med den aktive celle, for dette vil vi bruge OFFSET-funktion. Antag, at vi er i celle B4 og skal indsætte række efter 2 rækker, vi bruger denne kode.

Kode:

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

Når vi klikker på knappen "Aktiv celle ved hjælp af offset" indsættes en række i B6.

Ting at huske

  • Det bruges til at indsætte rækker i Excel ved at automatisere det.
  • VBA Indsæt række bruges med RANGE-objekt i VBA.
  • Inden du arbejder skal du aktivere "Aktiver alle makroer" i makroindstillinger.

Anbefalede artikler

Dette er en guide til VBA Indsæt række. Her diskuterer vi, hvordan man indsætter række i Excel ved hjælp af VBA-kode sammen med praktiske eksempler og downloadbar excel-skabelon. Du kan også se på de følgende artikler for at lære mere -

  1. Eksempler på VBA GetObject-funktion
  2. Excel Indsæt flere rækker (Excel-skabelon)
  3. Sådan bruges VBA StrConv-funktion?
  4. Vejledning til Excel Indsæt rækkevej genvej

Kategori:

VBA