Kaip automatiškai užpildyti langelius vertėmis per VBA
Norėdami greitai nukopijuoti formulę ar skaičių į visą „Excel“ diapazoną, naudokite automatinio pildymo funkciją. Tai yra galimybė nukopijuoti langelių diapazoną vilkiant pele.
Šią parinktį taip pat galite naudoti su „Excel“ makro kalba VBA. Ši makrokomanda parodo, kaip tai padaryti:
Papildomas automatinis pildymas ()
Su „ActiveSheet“
.Range ("a1"). FormulaLocal = "= atsitiktinis skaičius ()"
.Range ("A1: A10"). Užpildykite
Pabaiga su
Pabaiga Sub
Makrokomanda pirmiausia įrašo formulę RANDOM aktyvios lentelės A1 langelyje, o tada įtraukia šią formulę į visą langelių diapazoną A1: A10. Toliau pateiktame paveikslėlyje parodyta, kaip atrodo rezultatas:
Norėdami užpildyti kitomis kryptimis, pakeiskite Užpildykite pagal Pripildyti (užpildykite aukštyn), FillLeft (užpildykite kairėje) arba FillRight (užpildykite dešinėje).
Patarimas: Jei norite sužinoti, kaip naudotis makro kalba VBA ir kaip įvesti ir paleisti makrokomandas „Excel“, trumpą aprašymą rasite čia:
www.exceldaily.de/excel-makros-vba/artikel/d/
so-enter-macros-in-excel-a.html