Umetanje retka u VBA ponešto se razlikuje od umetanja stupca u VBA, u stupcima smo koristili cijelu metodu stupaca, ali za umetanje redaka koristimo metodu radnog lista s naredbom insert za umetanje retka, pružamo i referencu na red gdje želimo umetnuti drugi redak sličan stupcima.
Umetnite red s VBA Excelom
Sve većinu svih radnji koje radimo u excelu možemo izvesti s VBA kodiranjem. Možemo kopirati, zalijepiti, izbrisati i učiniti još mnogo toga putem VBA jezika. "Umetanje reda" jedna je od takvih metoda koju često radimo u excelu. U ovom ćemo vam članku pokazati kako izvršiti metodu umetanja retka u VBA.
Kako umetnuti redak u Excel VBA?
Ispod su razne metode upotrebe VBA za umetanje reda u excel.
1. metoda - Korištenje metode umetanja
Da bismo umetnuli redak u VBA, moramo koristiti sličnu tehniku koju smo koristili u radnom listu Excel. U VBA, za umetanje retka trebamo koristiti objekt range.
Na primjer, pogledajte donji kod.
Kodirati:
Sub InsertRow_Example1 () Raspon ("A1"). Umetni kraj Sub
Ovaj će se kôd pomaknuti niz ćeliju A1 do B1 i umetnuti jedinu ćeliju.
To će uzrokovati toliko problema u pogledu rukovanja podacima. Ovo će samo pomaknuti spomenutu ćeliju prema dolje, a svi ostali pridruženi stupci ostaju isti.
Metoda # 2 - Korištenje cijelog svojstva reda
Gornji redak za umetanje, zapravo možemo koristiti nekoliko metoda. Metoda u nastavku umetnut će cijeli redak iznad odabrane ćelije.
Korak 1: Prvo spomenite adresu stanice .
Kodirati:
Pod InsertRow_Example2 () Raspon ("A1"). Kraj pod
Korak 2: Umjesto da samo koristite, odaberite svojstvo " Cijeli red ".
Kodirati:
Sub InsertRow_Example2 () Raspon ("A1"). EntireRow. Kraj pod
Korak 3: Nakon pristupa cijelom svojstvu retka, upotrijebite metodu umetanja .
Kodirati:
Pod InsertRow_Example2 () Raspon ("A1"). EntireRow.Insert End Sub
Ovo će umetnuti redak iznad ćelije A1. Budući da je A1 prvi redak, pomaknut će se niz A1 ćeliju do B1.
Kao što možete na gornjoj slici, ona mora umetnuti cijeli redak, a ne jednu ćeliju.
3. metoda - Korištenje brojeva redaka
U gornjem primjeru upravo smo upotrijebili adresu jedne ćelije i umetnuli redak. Međutim, možemo ih umetnuti i pomoću brojeva redaka.
Pretpostavimo da želite umetnuti redak ispod 5 -og reda. Prvo moramo spomenuti brojeve redaka pomoću objekta RANGE.
Kodirati:
Pod InsertRow_Example3 () Raspon ("6: 6"). Kraj pod
Budući da smo cijeli red spomenuli kao 6: 6, ovdje moramo koristiti svojstvo Cijeli red. Možemo izravno koristiti metodu "INSERT".
Kodirati:
Pod InsertRow_Example3 () Raspon ("6: 6"). Umetni Kraj Sub
Ovo će također umetnuti cijeli redak, a ne jednu ćeliju.
U slučaju da želite umetnuti dva reda ispod 5 -tog reda, moramo odabrati 2 reda, a zatim koristiti metodu umetnuti.
Pod InsertRow_Example3 () Raspon ("6: 7"). Umetni Kraj Sub
To će umetnuti dva reda ispod 5 -og reda.
Ovako, u radni list možemo umetnuti što više redaka.
Metoda # 4 - Korištenje svojstva aktivne stanice
Za umetanje redaka možemo koristiti svojstvo Active Cell VBA. Aktivna stanica nije ništa drugo nego trenutno odabrana stanica.
Pretpostavimo da ste u ćeliji B5 i želite umetnuti redak gore, možete koristiti aktivno svojstvo ćelije.
Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub
Ovo će umetnuti redak iznad aktivne ćelije.
5. metoda - Korištenje aktivnog svojstva stanice s funkcijom pomaka
Pretpostavimo da želite umetnuti redak nakon 2 retka aktivne ćelije, trebamo upotrijebiti funkciju Offset za pomicanje broja redaka.
Pretpostavimo da ste u ćeliji B5.
Ako želite umetnuti redak nakon 2. retka iz aktivne ćelije, tada možemo koristiti donji kod.
Kodirati:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub
To će umetnuti redak nakon 6 -og reda.
Umetnite zamjenske redove
Često sam nailazio na umetanje alternativnih redova. Za pogled na donju sliku podataka.
Sada moramo umetnuti alternativne retke. Moramo koristiti petlje za umetanje svakog zamjenskog retka.
Kodirati:
Sub InsertRow_Example6 () Zatamni K kao cjeloviti Zatamni X kao cjeloviti X = 1 za K = 1 do 4 ćelije (X, 1) .EntireRow.Insert X = X + 2 Sljedeći K Kraj Sub
Ovo će umetnuti ovakve retke.
Ovdje možete preuzeti ovaj VBA Insert Row Excel. VBA umetanje retka u Excel predložak
