Excel VBA Infoga rad

Eftersom det finns två saker i detta ord är den ena VBA och den andra är Insert Row. I det här kommer jag att förklara hur man sätter in rad i Excel med VBA (Visual Basic for Applications).

VBA - Det är ett programmeringsspråk för de som arbetar i Excel och andra Office-program, så man kan automatisera uppgifter i Excel genom att skriva så kallade makroer. Med VBA-kodning kan vi utföra alla de flesta uppgifter som vi utför i Excel eftersom vi kan kopiera, klistra in, radera etc.

Infoga rad - Det används för att infoga en rad i Excel mellan en annan rad med hjälp av automatisering, dvs med ett klick.

Anta att vi skriver in medarbetarinformationen i Excel och vi har hoppat över några av de anställda och vill infoga detaljerna om de saknade dem emellan så att vi måste skapa ett utrymme och infoga en rad för att ange deras detaljer. I stället för att infoga rad en efter en kan vi automatisera uppgiften att infoga rader med VBA och skapa makron.

Det finns många sätt att använda raderna med VBA-kodning. Funktionen som används för att infoga en rad i VBA är:

Range (). Row (). EntireRow.Insert

Låt oss överväga att vi har ett dataset som består av kolumner som kundnamn , produkt, försäljning, kvantitet, fraktkostnad, orderprioritet.

Anta om chansen att vi måste flytta kolumnerna ner för att infoga en 3 ny rad mellan 3 och 4 för att infoga en ny saknad post. Istället för att infoga rad en efter en automatiserar vi detta för att infoga alla 3 raderna med ett enda klick.

Hur sätter man in rader i Excel VBA?

Nedan följer de olika exemplen för att infoga rader i Excel med VBA-kod.

Du kan ladda ner denna VBA Infoga rad Excel-mall här - VBA Infoga rad Excel-mall

Exempel 1 - Använda hela raden

Följ stegen nedan för att infoga rader i Excel med VBA-kod.

Steg 1: För att skapa en makro måste vi välja fliken Utvecklare.

Steg 2: När fliken Utvecklare öppnas, sätt in en knapp från gruppen Kontroller. Klicka på Infoga och välj det första alternativet från ActiveX-kontroller. Som du kan se den kommandoknappen .

Steg 3: Dra pilen till valfri cell för att skapa en kommandoknapp.

Steg 4: För att gå till Infoga-funktionen Högerklicka på kommandoknappen, dvs. Infoga 3 rader och klicka på Visa kod.

Steg 5: När du klickar på Visa-kod visas följande kod.

Koda:

 Privat subkommandoButton1_Click () Avsluta sub

Steg 6: Vi måste skriva vår kod för INSERT ROW. Som tidigare nämnts måste vi använda Rows.EntireRow-funktionen med RANGE i VBA. I den här koden måste vi infoga 3 mellan tredje och fjärde .

Koda:

 Privat subkommandoKnapp1_Klicka () Område ("A3"). Rader ("3: 5"). HeltRow.Insert End Sub

I ovanstående kodrad är A3 en kolumn där vi måste infoga rad och rader (3: 5) måste vi infoga 3 nya rader.

Steg 7: Kör koden genom att klicka på kommandoknappen Infoga 3 rader .

Exempel 2 - Använda radnummer

På liknande sätt skriver vi en kod för att infoga två rader med ett klick på en knapp.

I detta måste vi nämna raden från startraden till slutradenumret med RANGE följt av INSERT som kommer att infoga raderna.

Koda:

 Privat subkommandoButton2_Klicka () Område ("3: 4"). Sätt in slutet Sub

När vi klickar på knappen "Infoga 2 rader" ser vi att två rader har satts in mellan 3: e och 4: e raden.

På samma sätt kan vi anpassa vår funktion för att infoga så många rader som vi kan.

Exempel 3 - Använda aktiv cell

Aktiv cell betyder den cell som för närvarande är vald. Vi kommer att använda Aktiv cell för att infoga rader. Antag att vi är på cell B3 och vill infoga cellen ovanför att vi kommer att använda aktiv cellegenskap. Vi kommer att använda följande kod för den aktiva cellen.

Koda:

 Privat subkommandoButton3_Click () ActiveCell.EntireRow.Insert End Sub

När vi klickar på knappen "Aktiv cellegenskap" ser vi att en cell är insatt ovanför den valda cellen. I det ovanstående har vi valt B5 och nedan ser vi att en rad är infogad ovanför.

Exempel 4 - Använda aktiv cell med förskjutning

Anta att vi vill infoga en rad efter 3 rader med den aktiva cellen, för detta kommer vi att använda OFFSET-funktionen. Anta att vi är i cell B4 och måste infoga rad efter 2 rader, vi kommer att använda den här koden.

Koda:

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

När vi klickar på knappen "Aktiv cell med offset" sätts en rad in i B6.

Saker att komma ihåg

  • Det används för att infoga rader i Excel genom att automatisera det.
  • VBA Insert Row används med RANGE-objekt i VBA.
  • Innan du arbetar ska du aktivera ”Aktivera alla makron” i makroinställningar.

Rekommenderade artiklar

Detta är en guide till VBA Insert Row. Här diskuterar vi hur man sätter in rad i Excel med hjälp av VBA-kod tillsammans med praktiska exempel och nedladdningsbar Excel-mall. Du kan också titta på följande artiklar för att lära dig mer -

  1. Exempel på VBA GetObject-funktion
  2. Excel Infoga flera rader (Excel-mall)
  3. Hur använder man VBA StrConv-funktion?
  4. Guide till Excel Infoga radgenväg

Kategori:

VBA