VBA automatinis pildymas (žingsnis po žingsnio vadovas) Automatinio pildymo naudojimo „Excel VBA“ pavyzdžiai
Ką automatinis pildymas veikia „Excel VBA“?
Mes matėme automatinį pildymą darbalapyje, kur langeliai automatiškai užpildomi pagal ankstesnių langelių vertes virš jo, 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 pirmame langelyje arba 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. Paprastai mes įveskite tris pirmuosius skaičius, tada vilkite žemyn iki reikalingos paskutinės langelio.
VBA taip pat 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, kad būtų galima nustatyti užpildymo serijos modelį.
- 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, kuriame jis sustojo, 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
Pirmųjų trijų langelių kopiją turiu į 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 į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 į kitas tris langelius ir vėl tris kitas langelius 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