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 -tého riadku. Najprv si musíme 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ý riadok. Môžeme rovno použiť metódu „VLOŽIŤ“.
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 -tého riadku, musíme zvoliť 2 riadky a potom použiť metódu INSERT.
Sub InsertRow_Example3 () Range ("6: 7"). Vložte End Sub
To bude vložiť dva riadky pod 5 -tého riadku.
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 druhý 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
Bude vložený riadok po 6 -tého riadku.
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.
Tento riadok VBA na vloženie riadku programu Excel si môžete stiahnuť tu. VBA Vložiť riadok šablóny programu Excel
