Completare automată VBA (Ghid pas cu pas) - Exemple de utilizare a completării automate în Excel VBA

Ce face umplerea automată în Excel VBA?

Am văzut completarea automată în foaia de lucru în care celulele sunt completate automat pe baza valorilor din celulele anterioare de deasupra ei, putem folosi VBA astfel încât excel să facă sarcina pentru noi, pentru a face acest lucru folosim metoda Selecție. Autofill și oferim destinație, adică până la ce celule trebuie completate valorile.

Cea mai bună utilizare a completării automate VBA vine atunci când trebuie să completăm formula primei celule până la celula coloanei. De obicei, aplicăm formula în prima celulă. Fie copiem și lipim în ultima celulă, fie completăm automat, făcând dublu clic pe tasta săgeată mică. Un alt cel mai bun exemplu de utilizare a completării automate în Excel este atunci când trebuie să inserăm numere de serie. De obicei, tastăm primele trei numere; apoi, tragem în jos până la ultima celulă necesară.

În VBA, putem efectua sarcina metodei de completare automată. În acest articol, vă vom arăta cum putem folosi metoda de completare automată și modalități de a scrie codul. Acum vom vedea cum putem folosi acest instrument în codarea VBA.

Cum se folosește completarea automată în VBA?

Pentru a utiliza completarea automată în VBA, trebuie să înțelegem sintaxa metodei completării automate. Mai jos este sintaxa completării automate.

  • Gama („A1”): Care sunt celulele pentru a identifica modelul seriei de umplere.
  • Destinație: Până la ce celulă doriți să continuați modelul seriei de umplere. Aici trebuie să menționăm întreaga gamă de celule.
  • Tastați ca xlAutoFillType: Aici putem selecta tipul de umplere în serie. Mai jos sunt lista articolelor din acest parametru - xlFillCopy, xlFillDays, xlFillDefault, xlFillFormats, xlFillMonths, xlFillSeries, xlFillValues, xlFillWeekdays, xlFillYears, xlFlashFill, xlGrowthTrend.

Exemple de completare automată în Excel VBA

Să vedem câteva exemple simple sau avansate de completare automată VBA în excel.

Exemplul # 1 - xlFillDefault

Mai întâi, introduceți 3 numere de serie în primele trei celule.

În subprocedura VBA, menționați gama VBA ca Range („A1: A3”)

Cod:

Sub Completare automată_Exemplu1 () Interval („A1: A3”). Sfârșitul Sub

Acum accesați metoda Completare automată.

Introduceți destinația ca Range („A1: A10”)

Cod:

Interval („A1: A3”). Destinație de completare automată: = Interval („A1: A10”)

Selectați Tipul ca xlFillDefault .

Cod:

Range („A1: A3”). Destinație de completare automată: = Range („A1: A10”), tip: = xlFillDefault

Acum rulați codul, vom obține numerele de serie de la 1 la 10.

De când am menționat celula de destinație finală ca A10, aceasta s-a oprit acolo și putem introduce celula de destinație ca ultima celulă a excelului.

Exemplul # 2 - xlFillCopy

Pentru aceleași numere, vom folosi tipul ca xlFillCopy.

Cod:

Sub AutoFill_Example1 () Range ("A1: A3"). AutoFill Destination: = Range ("A1: A10"), Type: = xlFillCopy End Sub

Am o copie a primelor trei celule în celulele rămase.

Exemplul # 3 - xlFillMonths

Pentru acest exemplu, am introdus primele trei luni în primele 3 celule.

Schimbați tipul de completare automată la xlFillMonths.

Cod:

Sub AutoFill_Example1 () Range ("A1: A3"). Destinație AutoFill: = Range ("A1: A10"), Type: = xlFillMonths End Sub

Aceasta va umple seria lunii.

Exemplul # 4 - xlFillFormats

Pentru acest exemplu, am introdus numere și am aplicat formatarea acelor celule.

Acum voi schimba tipul în xlFillFormats.

Cod:

Sub AutoFill_Example1 () Range ("A1: A3"). Destinație AutoFill: = Range ("A1: A10"), Type: = xlFillFormats End Sub

Rulați acest cod și vedeți ce se întâmplă.

A completat formate ale primelor trei celule până la următoarele trei celule și din nou, următoarele trei celule și așa mai departe.

Exemplul # 5 - xlFlashFill

Pentru acest exemplu, am introdus câteva valori de la celula A1 la A10, așa cum se arată în imaginea de mai jos.

Din această listă, vreau să extrag partea numerică. Pentru a spune excel despre model, în prima celulă, voi introduce manual partea numerică a primei celule.

Acum voi scrie codul ca de obicei și voi schimba tipul în xlFlashFill. De data aceasta vom folosi gama de coloane B.

Cod:

Sub AutoFill_Example1 () Range ("B1"). Destinație AutoFill: = Range ("B1: B10"), Tastați: = xlFlashFill End Sub

Dacă rulez acest cod, vom obține rezultatul ca cel de mai jos.

Aceasta este prezentarea generală a metodei de completare automată VBA. Sper că ți-a plăcut.

Puteți descărca acest șablon Excel VBA AutoFill de aici - Șablon Excel VBA AutoFill

Articole interesante...