Excel VBA Umetni Red

Kako u ovoj riječi postoje dvije stvari, jedna je VBA, a druga je Umetni red. U ovome ću objasniti kako umetnuti redak u Excel pomoću VBA (Visual Basic za aplikacije).

VBA - To je programski jezik za one koji rade u Excelu i drugim Officeovim programima, pa se u Excelu mogu automatizirati zadaci pisanjem takozvanih Makronaredbi. Pomoću VBA kodiranja možemo obaviti sve većinu svih zadataka koje izvodimo u Excelu jer možemo kopirati, lijepiti, brisati itd.

Umetni redak - koristi se za umetanje retka u Excel između drugog retka uz pomoć automatizacije, tj. Jednim klikom.

Pretpostavimo da unesemo detalje o zaposleniku u Excel, a mi smo preskočili neke od zaposlenika i želimo umetnuti detalje onih koji nedostaju između njih pa moramo stvoriti razmak i umetnuti red za unos njihovih podataka. Umjesto umetanja retka jedan po jedan, možemo automatizirati zadatak umetanja redaka pomoću VBA i stvaranja makronaredbi.

Postoji mnogo načina pomoću kojih možemo umetnuti redove pomoću VBA kodiranja. Funkcija koja se koristi za umetanje retka u VBA je:

Raspon (). Row (). EntireRow.Insert

Razmotrimo da imamo skup podataka koji se sastoji od stupaca kao što su naziv kupca , proizvod, prodaja, količina, troškovi dostave, prioritet narudžbe.

Pretpostavimo šansu da trebamo pomaknuti stupce prema dolje da bismo umetnuli 3 nova retka između 3 i 4 da bismo umetnuli novi zapis koji nedostaje. Umjesto umetanja retka jedan po jedan, automatizirat ćemo to da u jedan red kliknemo sva 3 reda.

Kako umetnuti retke u Excel VBA?

Ispod su sljedeći primjeri za umetanje redaka u Excel pomoću VBA koda.

Možete preuzeti ovaj VBA uložak retka Excel predloška ovdje - VBA Umetni redak Excel predložak

Primjer br. 1 - Korištenje cijelog retka

Slijedite dolje navedene korake za umetanje redaka u excel pomoću VBA koda.

Korak 1: Za stvaranje makronaredbe moramo odabrati karticu Developer.

Korak 2: Nakon što se otvori kartica Developer, umetnite gumb iz grupe Controls. Kliknite Umetanje i odaberite prvu mogućnost iz ActiveX kontrola. Kao što možete vidjeti zapovjedni gumb .

Korak 3: Povucite strelicu u bilo kojoj ćeliji za stvaranje naredbenog gumba.

Korak 4: Za ulazak u funkciju Umetanje Desnom tipkom miša kliknite gumb Comand tj. Umetanje 3 reda i kliknite na View Code.

Korak 5: Kada kliknete na View code, pojavljuje se sljedeći kôd.

Kodirati:

 Privatni Sub CommandButton1_Click () Kraj Sub

Korak 6: Moramo napisati svoj kod INSERT ROW. Kao što smo prethodno spomenuli, moramo koristiti funkciju Rows.EntireRow s RANGE u VBA. U ovaj kôd moramo umetnuti 3 između 3 i 4.

Kodirati:

 Privatni raspon Sub CommandButton1_Click () ("A3"). Redaka ("3: 5"). CijeliRow.Insert End Sub

U gornjem retku koda, A3 je stupac u koji moramo umetnuti red, a Redovi (3: 5) je da moramo umetnuti 3 nova reda.

Korak 7: Pokrenite kod klikom na Umetni 3 redaka naredbenog gumba.

Primjer br. 2 - Upotreba brojeva redaka

Slično tome, napisat ćemo kôd za umetanje 2 reda na klik gumba.

U ovome, moramo spomenuti red od početnog retka do broja retka pomoću RANGE, a zatim INSERT koji će umetnuti retke.

Kodirati:

 Privatni raspon Sub CommandButton2_Click () ("3: 4"). Umetnite krajnji pod

Kada kliknemo na gumb "Umetni dva reda", vidimo da su dva reda umetnuta između 3. i 4. reda.

Slično tome, možemo prilagoditi svoju funkciju da umetnemo što više redaka.

Primjer 3 - Upotreba aktivne ćelije

Aktivna ćelija znači stanica koja je trenutno odabrana. Za umetanje redaka koristit ćemo aktivnu ćeliju. Pretpostavimo da smo na ćeliji B3 i da želimo umetnuti ćeliju iznad nje, upotrijebit ćemo aktivnu svojinu ćelije. Za aktivnu ćeliju upotrijebit ćemo slijedeći kod.

Kodirati:

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

Kada kliknemo na gumb "Aktivnost svojstva ćelije" vidimo da je jedna ćelija umetnuta iznad odabrane ćelije. U gore navedenom odabiru B5, a ispod možemo vidjeti da je jedan red umetnut iznad njega.

Primjer br. 4 - Korištenje aktivne ćelije s pomakom

Pretpostavimo da želimo umetnuti red nakon 3 reda aktivne ćelije, za to ćemo upotrijebiti OFFSET funkciju. Pretpostavimo da smo u ćeliji B4 i da moramo umetnuti redak nakon 2 reda, upotrijebit ćemo ovaj kôd.

Kodirati:

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

Kada kliknemo na gumb "Active Cell using Offset", jedan je red umetnut u B6.

Stvari koje treba zapamtiti

  • Koristi se za umetanje redaka u Excel automatizacijom.
  • VBA Insert Row koristi se s RANGE objektom u VBA.
  • Prije rada omogućite "Omogući sve makronaredbe" u makronaredbama.

Preporučeni članci

Ovo je vodič za VBA Insert Row. Ovdje smo raspravljali o tome kako umetnuti Row u Excel koristeći VBA kod zajedno sa praktičnim primjerima i download-om Excel predloška. Možete pogledati i sljedeće članke da biste saznali više -

  1. Primjeri VBA funkcije GetObject
  2. Excel Umetni više redova (Excel predložak)
  3. Kako se koristi VBA StrConv funkcija?
  4. Vodič za Excel Umetanje prečaca za retke

Kategorija:

VBA