V tem članku se bomo VBA naučili, kako napisati makro za konsolidacijo podatkov v programu Microsoft Excel.
Konsolidirani podatki: -Ta možnost se uporablja za povzemanje podatkov iz ločenih območij in konsolidacijo rezultatov v enem samem izhodu.
Vzemimo primer, da razumemo, kako združiti podatke prek VBA.
Imamo 3 Excelove delovne zvezke, imenovane A, B in C. Vsak delovni zvezek ima List1 s številkami v obsegu A2: A4. Zdaj želimo vsoto vnesti v vse delovne zvezke v Excelovi datoteki z vsoto številk in imenom datoteke.
Datoteka A:-
Datoteka B:-
Datoteka C:-
Utrdi:-
Za konsolidacijo podatkov sledite spodnjim korakom:-
- Vstavite uporabniški obrazec, nato vstavite 3 polja z oznakami, 3 besedilna polja in en ukazni gumb.
- Dvokliknite gumb Command, da dodelite makro.
- Napišite spodnjo kodo:-
Podskupina Consolidate () ("A1"). Izberite ActiveCell.Value = "Name" Range ("B1"). Izberite ActiveCell.Value = "Amount" Range ("A2"). Izberite ActiveCell.Value = "A" Range ("A3"). Izberite ActiveCell.Value = "B" Range ("A4"). Izberite ActiveCell.Value = "C" Range ("B2"). SelectWorkbooks.OpenFileName: = "D: \ Data \ A.xlsx "Workbooks.OpenFileName: =" D: \ Data \ B.xlsx "Workbooks.OpenFileName: =" D: \ Data \ C.xlsx "Windows (" Consolidate "). Aktivirajte izbor. Konsolidirajte vire: = Array (" 'D : \ Podatki \ [A.xlsx] list1 '! R2C1: R4C1 ", _"' D: \ Podatki \ [B.xlsx] list1 '! R2C1: R4C1 ","' D: \ Podatki \ [C.xlsx] sheet1 '! R2C1: R4C1 "), Funkcija: = xlSum Windows (" A.xlsx "). Aktivirajte ActiveWorkbook.Zaprite Windows (" B.xlsx "). .Zapri konec podp
Koda Pojasnilo:-Najprej bomo opredelili vrednosti obsega, nato pa pot vsake datoteke. Nato bomo opredelili, katera funkcija bo delovala za vsako datoteko in kateri izračun želimo konsolidirati.
• Za zagon kode pritisnite tipko F5.
• Vse datoteke se odprejo, nato pa VBA vrne vsoto vsem datotekam, nato pa rezultat postavi pred ime datoteke.
To je način, kako lahko združimo številke in jih v eni datoteki pridobimo iz različnih datotek v programu Microsoft Excel prek VBA.
Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam nae -poštno mesto