Ką automatinis pildymas veikia „Excel VBA“?
Mes matėme automatinį pildymą darbalapyje, kur langeliai automatiškai užpildomi pagal ankstesnių langelių, esančių virš jo, reikšmes, mes galime naudoti VBA, kad „Excel“ atliktų mums užduotį, tai atlikdami mes naudojame „Selection“. paskirties vietą, ty iki kurių langelių reikia užpildyti reikšmes.
Geriausias VBA automatinio pildymo būdas yra tada, kai turime užpildyti pirmosios langelio formulę iki stulpelio langelio. Paprastai formulę taikome pirmoje langelyje. Arba mes nukopijuojame ir įklijuojame į paskutinį langelį, arba tiesiog automatiškai užpildome dukart spustelėdami mažą rodyklės klavišą. Kitas geriausias automatinio pildymo „Excel“ pavyzdys yra tada, kai turime įterpti serijos numerius. Mes paprastai įveskite tris pirmuosius skaičius; tada vilkime žemyn iki reikiamos paskutinės langelio.
VBA mes galime atlikti automatinio pildymo metodo užduotį. Šiame straipsnyje mes parodysime, kaip mes galime naudoti automatinio pildymo metodą ir kodo rašymo būdus. Dabar pamatysime, kaip galime naudoti šį įrankį VBA kodavimui.
Kaip naudoti automatinį pildymą VBA?
Norėdami naudoti automatinį pildymą VBA, turime suprasti automatinio pildymo metodo sintaksę. Žemiau yra automatinio pildymo sintaksė.
- Diapazonas („A1“): Kokios yra ląstelės užpildymo serijos modeliui nustatyti.
- Paskirtis: užpildykite langelį, kuriame norite tęsti užpildymo serijos modelį. Čia turime paminėti visą ląstelių diapazoną.
- Įveskite kaip xlAutoFillType: Čia mes galime pasirinkti serijos užpildymo tipą. Žemiau pateikiamas šio parametro elementų sąrašas - xlFillCopy, xlFillDays, xlFillDefault, xlFillFormats, xlFillMonths, xlFillSeries, xlFillValues, xlFillWeekdays, xlFillYears, xlFlashFill, xlGrowinTrend, xlFillFeet
Automatinio pildymo „Excel VBA“ pavyzdžiai
Pažiūrėkime keletą paprastų ir išplėstinių „VBA AutoFill“ pavyzdžių „Excel“.
1 pavyzdys - xlFillDefault
Pirmiausia į pirmąsias tris langelius įveskite 3 serijos numerius.
VBA antrinėje procedūroje paminėkite VBA diapazoną kaip diapazoną („A1: A3“)
Kodas:
Papildomo automatinio pildymo_pavyzdys1 () diapazonas („A1: A3“). Pabaigos sub
Dabar pasiekite automatinio pildymo metodą.
Įveskite tikslą kaip diapazoną („A1: A10“)
Kodas:
Diapazonas ("A1: A3"). Automatinio pildymo tikslas: = Diapazonas ("A1: A10") 
Pasirinkite „Type“ kaip xlFillDefault .
Kodas:
Diapazonas ("A1: A3"). Automatinio pildymo tikslas: = Diapazonas ("A1: A10"), Tipas: = xlFillDefault 
Dabar paleiskite kodą, kuriame gausime serijos numerius nuo 1 iki 10.
Kadangi mes paminėjome galutinę paskirties langelį kaip A10, jis ten sustojo ir mes galime įvesti paskirties langelį kaip paskutinę „Excel“ langelį.
2 pavyzdys - xlFillCopy
Tiems patiems numeriams tipą naudosime kaip xlFillCopy.
Kodas:
Automatinio pildymo_pavyzdys1 () diapazonas („A1: A3“). Automatinio pildymo paskirties vieta: = diapazonas („A1: A10“), tipas: = xlFillCopy End Sub
Turiu pirmųjų trijų langelių kopiją į likusias langelius.
3 pavyzdys - „xlFillMonths“
Šiame pavyzdyje aš įvedžiau pirmuosius tris mėnesius į pirmąsias 3 langelius.
Pakeiskite automatinio pildymo tipą į „ xlFillMonths“.
Kodas:
Automatinio pildymo_pavyzdys1 () diapazonas („A1: A3“). Automatinio pildymo paskirtis: = diapazonas („A1: A10“), tipas: = xlFillMonths End Sub
Tai užpildys mėnesio serijas.
4 pavyzdys - „xlFillFormats“
Šiame pavyzdyje aš įvedžiau skaičius ir pritaikiau formatą toms langeliams.
Dabar pakeisiu tipą į xlFillFormats.
Kodas:
Automatinio pildymo_pavyzdys1 () diapazonas („A1: A3“). Automatinio pildymo paskirtis: = diapazonas („A1: A10“), tipas: = xlFillFormats End Sub
Paleiskite šį kodą ir sužinokite, kas atsitiks.
Jis užpildė pirmųjų trijų langelių formatus iki kitų trijų langelių ir vėl, kitų trijų langelių ir pan.
5 pavyzdys - xlFlashFill
Šiame pavyzdyje aš įvedžiau keletą reikšmių nuo langelio A1 iki A10, kaip parodyta žemiau esančiame paveikslėlyje.
Iš šio sąrašo noriu išgauti skaitinę dalį. Norėdami pasakyti „Excel“ apie šabloną, pirmame langelyje aš rankiniu būdu įvesiu skaitmeninę pirmosios langelio dalį.
Dabar parašysiu kodą kaip įprasta ir pakeisiu tipą į xlFlashFill. Šį kartą naudosime B stulpelių diapazoną.
Kodas:
Automatinio pildymo_pavyzdys1 () diapazonas („B1“). Automatinio pildymo paskirtis: = diapazonas („B1: B10“), tipas: = xlFlashFill End Sub
Jei paleisiu šį kodą, gausime tokį rezultatą kaip žemiau.
Tai yra VBA automatinio pildymo metodo apžvalga. Tikiuosi, kad jums patiko.
Šį „VBA AutoFill Excel“ šabloną galite atsisiųsti iš čia - „VBA AutoFill Excel“ šablonas
