Šajā rakstā mēs iemācīsimies VBA, kā rakstīt makro, lai konsolidētu datus programmā Microsoft Excel.
Konsolidēt datus: -Šo iespēju izmanto, lai apkopotu datus no atsevišķiem diapazoniem, apvienojot rezultātus vienā izvadē.
Ņemsim piemēru, lai saprastu, kā apvienot datus, izmantojot VBA.
Mums ir 3 Excel darbgrāmatas ar nosaukumu A, B un C. Katrai darbgrāmatai ir 1. lapa ar skaitļiem diapazonā A2: A4. Tagad mēs vēlamies iegūt summu visās darbgrāmatās Excel failā ar ciparu summu un faila nosaukumu.
Fails A:-
B fails:-
Fails C:-
Konsolidēt:-
Lai konsolidētu datus, rīkojieties šādi:-
- Ievietojiet lietotāja veidlapu, pēc tam ievietojiet 3 etiķešu lodziņus, 3 tekstlodziņus un vienu komandu pogu.
- Veiciet dubultklikšķi uz komandas pogas, lai piešķirtu makro.
- Ierakstiet zemāk minēto kodu:-
Apakškonsolidējiet () diapazonu ("A1"). Atlasiet ActiveCell.Value = "Nosaukums" Diapazons ("B1"). Atlasiet ActiveCell.Value = "Amount" diapazons ("A2"). Atlasiet ActiveCell.Value = "A" Diapazons ("A3"). Atlasiet diapazonu ActiveCell.Value = "B" ("A4"). Atlasiet ActiveCell.Value = "C" diapazons ("B2"). SelectWorkbooks.OpenFileName: = "D: \ Data \ A.xlsx "Darbgrāmatas.OpenFileName: =" D: \ Data \ B.xlsx "Darbgrāmatas.OpenFileName: =" D: \ Data \ C.xlsx "Windows (" Konsolidēt "). Aktivizēt atlasi. Konsolidēt avotus: = Array (" 'D : \ Data \ [A.xlsx] sheet1 '! R2C1: R4C1 ", _"' D: \ Data \ [B.xlsx] sheet1 '! R2C1: R4C1 "," "D: \ Data \ [C.xlsx] sheet1 '! R2C1: R4C1 "), Funkcija: = xlSum Windows (" A.xlsx "). Aktivizēt ActiveWorkbook. Aizvērt Windows (" B.xlsx "). Aktivizēt ActiveWorkbook. Aizvērt Windows (" C.xlsx "). Aktivizēt ActiveWorkbook. . Aizvērt apakšdaļu
Koda skaidrojums:-Pirmkārt, mēs definēsim diapazona vērtības un pēc tam definēsim katra faila ceļu. Tad mēs definēsim, kura funkcija darbosies katram failam un kādu aprēķinu mēs vēlamies konsolidēt.
• Lai palaistu kodu, nospiediet taustiņu F5.
• Visi faili tiks atvērti, un pēc tam VBA atgriezīs summu visos failos un pēc tam rezultātu ievietos faila nosaukuma priekšā.
Tādā veidā mēs varam konsolidēt skaitļus un izgūt vienā failā no dažādiem Microsoft Excel failiem, izmantojot VBA.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums uze -pasta vietne