Řádek vložení Excel VBA

Protože v tomto slově jsou dvě věci, jedna je VBA a druhá je Vložit řádek. V tomto vysvětlím, jak vložit řádek v aplikaci Excel pomocí jazyka VBA (Visual Basic for Applications).

VBA - Jedná se o programovací jazyk pro ty, kteří pracují v Excelu a dalších Office programech, takže je možné automatizovat úkoly v Excelu psáním takzvaných maker. Pomocí kódování VBA můžeme provádět všechny všechny úkoly, které provádíme v Excelu, protože můžeme kopírovat, vkládat, mazat atd.

Vložit řádek - Slouží k vložení řádku v Excelu mezi další řádek pomocí automatizace, tj. Jedním kliknutím.

Předpokládejme, že zadáváme podrobnosti o zaměstnancích v Excelu a některé ze zaměstnanců jsme přeskočili a chceme mezi ně vložit podrobnosti o chybějících, takže musíme vytvořit mezeru a vložit řádek pro zadání jejich detailů. Namísto vkládání řádků jeden po druhém můžeme automatizovat úlohu vkládání řádků pomocí VBA a vytváření maker.

Existuje mnoho způsobů, jak můžeme vložit řádky pomocí VBA kódování. Funkce použitá pro vložení řádku do VBA je:

Range (). Row (). EntireRow.Insert

Uvažujme, že máme dataset, který se skládá ze sloupců jako jméno zákazníka , produkt, prodej, množství, náklady na dopravu, priorita objednávky.

Předpokládejme, že je třeba posunout sloupce dolů a vložit 3 nový řádek mezi 3 a 4, abychom vložili nový chybějící záznam. Namísto vkládání řádků jeden po druhém to automatizujeme, abychom vložili všechny 3 řádky na jedno kliknutí.

Jak vložit řádky do Excel VBA?

Níže jsou uvedeny různé příklady vkládání řádků v Excelu pomocí kódu VBA.

Tuto šablonu VBA Vložit řádek Excel si můžete stáhnout zde - VBA Vložit řádek Excel Excel

Příklad č. 1 - Použití celého řádku

Podle níže uvedených kroků vložte řádky do Excelu pomocí kódu VBA.

Krok 1: K vytvoření makra musíme vybrat kartu Vývojář.

Krok 2: Po otevření karty Developer vložte tlačítko ze skupiny Controls. Klikněte na Vložit a vyberte první možnost z ovládacích prvků ActiveX. Jak můžete vidět, že příkazové tlačítko .

Krok 3: Přetažením šipky v libovolné buňce vytvořte příkazové tlačítko.

Krok 4: Chcete-li zadat funkci Vložit, klikněte pravým tlačítkem myši na tlačítko Comand, tj. Vložte 3 řádky a klikněte na Zobrazit kód.

Krok 5: Když kliknete na kód Zobrazit, zobrazí se následující kód.

Kód:

 Private Sub CommandButton1_Click () End Sub

Krok 6: Musíme napsat náš kód INSERT ROW. Jak bylo uvedeno výše, musíme použít funkci Rows.EntireRow s RANGE ve VBA. Do tohoto kódu musíme vložit 3 mezi 3. a 4..

Kód:

 Private Sub CommandButton1_Click () Range ("A3"). Řádky ("3: 5"). EntireRow.Insert End Sub Sub

Ve výše uvedeném řádku kódu je A3 sloupec, do kterého musíme vložit řádek a řádky (3: 5) musíme vložit 3 nové řádky.

Krok 7: Spusťte kód kliknutím na příkazové tlačítko Vložit 3 řádky .

Příklad č. 2 - Použití čísel řádků

Podobně napíšeme kód, který vloží 2 řádky po kliknutí na tlačítko.

V tomto případě musíme zmínit řádek od počátečního řádku po číslo koncového řádku pomocí RANGE následovaného INSERT, který vloží řádky.

Kód:

 Private Sub CommandButton2_Click () Range ("3: 4"). Vložte End Sub

Když klikneme na tlačítko „Vložit 2 řádky“, uvidíme, že mezi 3. a 4. řádek byly vloženy 2 řádky.

Podobně můžeme přizpůsobit naši funkci tak, aby bylo možné vložit co nejvíce řádků.

Příklad č. 3 - Používání aktivní buňky

Aktivní buňka znamená buňku, která je v současné době vybrána. K vložení řádků použijeme aktivní buňku. Předpokládejme, že jsme na buňce B3 a chcete vložit buňku nad ni, použijeme aktivní vlastnost buňky. Pro aktivní buňku použijeme následující kód.

Kód:

 Private Sub CommandButton3_Click () ActiveCell.EntireRow.Insert End Sub

Když klikneme na tlačítko „Aktivní vlastnost buňky“, uvidíme, že jedna buňka je vložena nad vybranou buňku. Nahoře jsme vybrali B5 a níže vidíme, že nad ní je vložen jeden řádek.

Příklad č. 4 - Používání aktivní buňky s posunem

Předpokládejme, že chceme vložit řádek za 3 řádky aktivní buňky, k tomu použijeme funkci OFFSET. Předpokládejme, že jsme v buňce B4 a musíme vložit řádek za 2 řádky, použijeme tento kód.

Kód:

 Private Sub CommandButton4_Click () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub Sub

Když klikneme na tlačítko „Aktivní buňka pomocí ofsetu“, jeden řádek se vloží do B6.

Co si pamatovat

  • Používá se k vložení řádků do aplikace Excel automatizací.
  • Řádek vložení VBA se používá s objektem RANGE ve VBA.
  • Před zahájením práce povolte v nastavení maker možnost „Povolit všechna makra“.

Doporučené články

Toto je průvodce řádkem VBA Insert Row. Zde diskutujeme o tom, jak vložit řádek v Excelu pomocí kódu VBA spolu s praktickými příklady a šablonou Excel ke stažení. Další informace naleznete také v následujících článcích -

  1. Příklady funkce VBA GetObject
  2. Excel Vložit více řádků (Šablona Excel)
  3. Jak používat funkci VBA StrConv?
  4. Průvodce vložením řádku do Excelu

Kategorie:

VBA