VBA automatikus kitöltés (lépésről lépésre) - Példák az Automatikus kitöltés használatára az Excel VBA alkalmazásban

Mit csinál az automatikus kitöltés az Excel VBA-ban?

Láttuk az automatikus kitöltést a munkalapon, ahol a cellák automatikusan kitöltődnek a fölötte lévő előző cellák értékei alapján. Használhatjuk a VBA-t, hogy az excel elvégezze helyettünk a feladatot, ehhez a Selection alkalmazást használjuk. rendeltetési hely, azaz mely cellákig kell kitölteni az értékeket.

A VBA automatikus kitöltését akkor lehet a legjobban használni, ha ki kell töltenünk az első cella képletét az oszlop cellájáig. A képletet általában az első cellában alkalmazzuk. Vagy átmásoljuk és beillesztjük az utolsó cellába, vagy csak automatikusan kitöltjük duplán kattintva a kis nyílgombra. Egy másik legjobb példa az automatikus kitöltés használatára az excelben, amikor sorszámokat kell beillesztenünk. Az első három számot általában beírjuk; majd lehúzunk a kívánt utolsó celláig.

A VBA-ban elvégezhetjük az AutoFill módszer feladatát. Ebben a cikkben megmutatjuk, hogyan használhatjuk az automatikus kitöltési módszert és a kód megírásának módjait. Most meglátjuk, hogyan használhatjuk ezt az eszközt a VBA kódolásban.

Hogyan kell használni az automatikus kitöltést a VBA-ban?

Az automatikus kitöltés VBA használatához meg kell értenünk az automatikus kitöltés módszer szintaxisát. Az alábbiakban található az automatikus kitöltés szintaxisa.

  • Tartomány („A1”): Melyek a cellák a kitöltési sorozat mintázatának azonosításához.
  • Cél: Add meg, hogy melyik cellába kívánja folytatni a kitöltési sorozat mintázatát. Itt meg kell említenünk a cellák teljes körét.
  • Írja be xlAutoFillType névként: Itt választhatjuk ki a sorozat kitöltési típusát. Az alábbiakban a paraméterek listája látható - xlFillCopy, xlFillDays, xlFillDefault, xlFillFormats, xlFillMonths, xlFillSeries, xlFillValues, xlFillWeekdays, xlFillYears, xlFlashFill, xlGrowthearTrend.

Példák az automatikus kitöltésre az Excel VBA-ban

Lássunk néhány egyszerű és haladó példát a VBA AutoFill-ről az excelben.

1. példa - xlFillDefault

Először írjon be 3 sorozatszámot az első három cellába.

A VBA alfolyamatban említse meg a VBA tartományt tartományként („A1: A3”)

Kód:

Automatikus kitöltés_példa1 () tartomány ("A1: A3"). End Sub

Most nyissa meg az automatikus kitöltés módszert.

Adja meg az úti célt tartományként („A1: A10”)

Kód:

Tartomány ("A1: A3"). Automatikus kitöltési cél: = Tartomány ("A1: A10")

Válassza a Típust xlFillDefault néven .

Kód:

Tartomány ("A1: A3"). Automatikus kitöltési cél: = Tartomány ("A1: A10"), Típus: = xlFillDefault

Most futtassa a kódot, így megkapjuk a sorozatszámokat 1-től 10-ig.

Mivel a végcél cellát A10 néven említettük, ott megállt, és megadhatjuk a cél cellát az excel utolsó cellájaként.

2. példa - xlFillCopy

Ugyanazokhoz a számokhoz a típust xlFillCopy néven fogjuk használni .

Kód:

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

Van egy példányom az első három cellából a többi cellába.

3. példa - xlFillMonths

Ennél a példánál az első három hónapot beírtam az első 3 cellába.

Az automatikus kitöltés típusát állítsa xlFillMonths értékre.

Kód:

Automatikus kitöltés_példa1 () tartomány ("A1: A3"). Automatikus kitöltési cél: = Tartomány ("A1: A10"), típus: = xlFillMonths End Sub

Ez kitölti a havi sorozatot.

4. példa - xlFillFormats

Ebben a példában számokat írtam be, és formázást alkalmaztam ezekre a cellákra.

Most megváltoztatom a típust xlFillFormats-ra.

Kód:

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

Futtassa ezt a kódot, és nézze meg, mi történik.

Az első három cella formátumát kitölti a következő három cellába, és újra, a következő három cellába és így tovább.

5. példa - xlFlashFill

Ehhez a példához néhány értéket adtam meg az A1 és A10 cellák közül, amint az az alábbi képen látható.

Ebből a listából ki akarom vonni a numerikus részt. Ahhoz, hogy az excellel elmeséljem a mintát, az első cellában kézzel fogom beírni az első cella numerikus részét.

Most a szokás szerint megírom a kódot, és a típust xlFlashFill-re változtatom . Ezúttal a B oszloptartományt fogjuk használni.

Kód:

Automatikus kitöltés_Example1 () tartomány ("B1"). Automatikus kitöltési cél: = tartomány ("B1: B10"), típus: = xlFlashFill End Sub

Ha futtatom ezt a kódot, akkor az alábbihoz hasonló eredményt kapunk.

Ez a VBA AutoFill módszer áttekintése. Remélem, élvezted.

Innen töltheti le ezt a VBA AutoFill Excel sablont - VBA AutoFill Excel Template

érdekes cikkek...