VBA Vložiť riadok (príklad, kód) | Top 5 Excel VBA metóda na vloženie riadku

Vloženie riadku do VBA sa trochu líši od vloženia stĺpca do VBA, v stĺpcoch sme použili celú metódu stĺpca, ale na vloženie riadkov používame metódu listu s príkazom vložiť na vloženie riadku, poskytujeme tiež odkaz na riadok, kam chceme vložiť ďalší riadok podobný stĺpcom.

Vložte riadok pomocou VBA Excel

S kódovaním VBA môžeme vykonávať všetky činnosti, ktoré robíme v exceli. Môžeme kopírovať, vkladať, mazať a môžeme robiť oveľa viac vecí prostredníctvom jazyka VBA. „Vkladanie riadkov“ je jednou z metód, ktorú často robíme v programe Excel. V tomto článku si ukážeme, ako vykonať metódu vkladania riadkov vo VBA.

Ako vložiť riadok do programu Excel VBA?

Nižšie uvádzame rôzne spôsoby použitia VBA na vloženie riadku do programu Excel.

Metóda č. 1 - Použitie metódy vloženia

Vo VBA na vloženie riadku musíme použiť podobnú techniku, akú sme použili v pracovnom hárku programu Excel. Vo VBA musíme na vloženie riadku použiť objekt range.

Napríklad si pozrite nasledujúci kód.

Kód:

 Sub InsertRow_Example1 () Range ("A1"). Vložte koncový sub 

Tento kód sa presunie nadol o bunku A1 do B1 a vloží jedinú bunku.

To spôsobí toľko problémov, pokiaľ ide o manipuláciu s údajmi. Týmto sa iba presunie spomínaná bunka dole a všetky ostatné pridružené stĺpce zostanú rovnaké.

Metóda č. 2 - Použitie celej vlastnosti riadka

Horný riadok vloženia môžeme skutočne použiť niekoľko metód. Metóda uvedená nižšie vloží celý riadok nad vybratú bunku.

Krok 1: Najskôr uveďte adresu bunky .

Kód:

Sub InsertRow_Example2 () Range ("A1"). Koniec Sub

Krok 2: Namiesto jednoduchého použitia vyberte vlastnosť „ Celý riadok “.

Kód:

Sub InsertRow_Example2 () Range ("A1"). EntireRow. Koniec Sub

Krok 3: Po prístupe k celej vlastnosti riadku použite metódu vloženia .

Kód:

 Sub InsertRow_Example2 () Range ("A1"). EntireRow.Insert End Sub 

Týmto sa vloží riadok nad bunkou A1. Pretože A1 je prvý riadok, presunie sa nadol o bunku A1 do B1.

Ako môžete na vyššie uvedenom obrázku, musí vložiť celý riadok, nie jednu bunku.

Metóda č. 3 - Používanie čísel riadkov

Vo vyššie uvedenom príklade sme práve použili adresu jednej bunky a vložili riadok. Môžeme ich však vložiť aj pomocou čísel riadkov.

Predpokladajme, že chcete vložiť riadok pod 5. riadok, najskôr je potrebné spomenúť čísla riadkov pomocou objektu RANGE.

Kód:

Sub InsertRow_Example3 () Range ("6: 6"). Koniec Sub

Pretože sme celý rad spomenuli ako 6: 6, musíme tu použiť vlastnosť celého riadku, môžeme teda rovno použiť metódu „INSERT“.

Kód:

 Sub InsertRow_Example3 () Range ("6: 6"). Vložte End Sub 

Týmto sa tiež vloží celý riadok, nie jedna bunka.

V prípade, že chcete vložiť dva riadky pod 5. riadok, musíme najskôr zvoliť 2 riadky a potom použiť metódu INSERT.

 Sub InsertRow_Example3 () Range ("6: 7"). Vložte End Sub 

Týmto sa vložia dva riadky pod 5. riadok.

Takto môžeme do hárka vložiť čo najviac riadkov.

Metóda č. 4 - Použitie aktívnej vlastnosti bunky

Na vkladanie riadkov môžeme použiť vlastnosť Active Cell VBA. Aktívna bunka nie je nič iné ako momentálne vybratá bunka.

Predpokladajme, že ste v bunke B5 a chcete vložiť riadok vyššie, môžete použiť aktívnu vlastnosť bunky.

 Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub 

Týmto sa vloží riadok nad aktívnu bunku.

Metóda č. 5 - Použitie aktívnej vlastnosti bunky s funkciou posunu

Predpokladajme, že chcete vložiť riadok za 2 riadky aktívnej bunky, na vyrovnanie počtu riadkov musíme použiť funkciu Offset.

Predpokladajme, že ste v bunke B5.

Ak chcete vložiť riadok za 2. riadok z aktívnej bunky, môžeme použiť nasledujúci kód.

Kód:

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

Týmto sa vloží riadok za 6. riadok.

Vložte alternatívne riadky

Vkladanie alternatívnych riadkov je často, s čím som sa mnohokrát stretol. Pre pohľad na nasledujúci dátový obrázok.

Teraz musíme vložiť alternatívne riadky. Musíme použiť slučky na vloženie každého alternatívneho riadku.

Kód:

 Sub InsertRow_Example6 () Dim K As Integer Dim X As Integer X = 1 For K = 1 To 4 Cells (X, 1). EntireRow.Insert X = X + 2 Next K End Sub 

Vložíte takto riadky.

Tu si môžete stiahnuť tento VBA vložený riadok programu Excel tu. VBA Vložiť riadok šablóny programu Excel