VBA Automatsko popunjavanje (Vodič korak po korak) - Primjeri korištenja automatskog popunjavanja u programu Excel VBA

Što radi automatsko popunjavanje u programu Excel VBA?

Vidjeli smo automatsko popunjavanje na radnom listu gdje se stanice automatski popunjavaju na temelju vrijednosti u prethodnim stanicama iznad njega, možemo koristiti VBA tako da Excel izvršava zadatak umjesto nas, a za to koristimo metodu Selection.Autofill i pružamo odredište, tj. do kojih ćelija treba popuniti vrijednosti.

Najbolja upotreba VBA automatskog popunjavanja dolazi kada moramo ispuniti formulu prve ćelije u ćeliju stupca. Formulu obično primjenjujemo u prvoj ćeliji. Ili ćemo kopirati i zalijepiti u posljednju ćeliju ili ćemo samo automatski ispuniti dvostrukim klikom na malu tipku sa strelicom. Još jedan najbolji primjer korištenja automatskog popunjavanja u Excelu je kada trebamo umetnuti serijske brojeve. Obično tipkamo prva tri broja; zatim povlačimo prema dolje do potrebne posljednje ćelije.

U VBA možemo izvršiti zadatak metode automatskog popunjavanja. U ovom ćemo vam članku pokazati kako možemo koristiti metodu automatskog popunjavanja i načine pisanja koda. Sad ćemo vidjeti kako možemo koristiti ovaj alat u VBA kodiranju.

Kako koristiti automatsko popunjavanje u VBA?

Da bismo koristili automatsko popunjavanje u VBA, moramo razumjeti sintaksu metode automatskog popunjavanja. Ispod je sintaksa automatskog popunjavanja.

  • Raspon ("A1"): Koje su ćelije za identificiranje uzorka niza ispuna.
  • Odredište: Do koje ćelije želite nastaviti obrazac serije popunjavanja. Ovdje moramo spomenuti čitav raspon stanica.
  • Upišite kao xlAutoFillType: Ovdje možemo odabrati vrstu popunjavanja serije. Ispod je popis stavki u ovom parametru - xlFillCopy, xlFillDays, xlFillDefault, xlFillFormats, xlFillMonths, xlFillSeries, xlFillValues, xlFillWeekdays, xlFillYears, xlFlashFill, xlGrowthTrendre xlGrowthTrendre xlGrowthTrendre.

Primjeri automatskog popunjavanja u programu Excel VBA

Pogledajmo nekoliko jednostavnih do naprednih primjera VBA AutoFill u Excelu.

Primjer # 1 - xlFillDefault

Prvo u prve tri ćelije unesite 3 serijska broja.

U VBA potpostupku navedite raspon VBA kao Raspon ("A1: A3")

Kodirati:

Sub AutoFill_Example1 () Raspon ("A1: A3"). Kraj pod

Sada pristupite metodi AutoFill.

Unesite odredište kao domet (“A1: A10”)

Kodirati:

Raspon ("A1: A3"). Odredište automatskog popunjavanja: = Raspon ("A1: A10")

Odaberite vrstu kao xlFillDefault .

Kodirati:

Raspon ("A1: A3"). Odredište automatskog popunjavanja: = Raspon ("A1: A10"), Tip: = xlFillDefault

Sada pokrenite kod, dobit ćemo serijske brojeve od 1 do 10.

Budući da smo krajnju odredišnu ćeliju spomenuli kao A10, tu se zaustavio i u odredišnu ćeliju možemo ući kao zadnja ćelija excela.

Primjer # 2 - xlFillCopy

Za iste ćemo brojeve koristiti tip kao xlFillCopy.

Kodirati:

Podopseg AutoFill_Example1 () Raspon ("A1: A3"). Odredište automatskog popunjavanja: = Raspon ("A1: A10"), Tip: = xlFillCopy End Sub

Imam kopiju prve tri stanice u preostale stanice.

Primjer # 3 - xlFillMonths

Za ovaj sam primjer ušla u prva tri mjeseca u prve 3 stanice.

Promijenite vrstu automatskog popunjavanja u xlFillMonths.

Kodirati:

Sub AutoFill_Example1 () Raspon ("A1: A3"). Odredište automatskog popunjavanja: = Raspon ("A1: A10"), Tip: = xlFillMonths End Sub

Ovo će ispuniti mjesečnu seriju.

Primjer # 4 - xlFillFormats

U ovom sam primjeru unio brojeve i primijenio oblikovanje na te ćelije.

Sada ću promijeniti tip u xlFillFormats.

Kodirati:

Podopseg Automatsko popunjavanje_Primjer1 () Raspon ("A1: A3"). Odredište automatskog popunjavanja: = Raspon ("A1: A10"), Tip: = xLFillFormats End Sub

Pokrenite ovaj kod i pogledajte što će se dogoditi.

Ispunio je formate prve tri stanice do sljedeće tri stanice i opet, sljedeće tri stanice i tako dalje.

Primjer # 5 - xlFlashFill

Za ovaj sam primjer unio nekoliko vrijednosti iz ćelije A1 do A10, kao što je prikazano na donjoj slici.

S ovog popisa želim izvući numerički dio. Da bih Excelu rekao o uzorku, u prvu ću ćeliju ručno unijeti numerički dio prve ćelije.

Sada ću napisati kod kao i obično i promijeniti tip u xlFlashFill. Ovaj put koristit ćemo raspon stupaca B.

Kodirati:

Sub AutoFill_Example1 () Raspon ("B1"). Odredište automatskog popunjavanja: = Raspon ("B1: B10"), Tip: = xlFlashFill End Sub

Ako pokrenem ovaj kod, dobit ćemo rezultat kao u nastavku.

Ovo je pregled metode VBA AutoFill. Nadam se da ste uživali.

Ovaj predložak VBA AutoFill Excel možete preuzeti ovdje - VBA AutoFill Excel predložak

Zanimljivi članci...