U ovom ćemo članku naučiti VBA kako napisati makro za konsolidaciju podataka u programu Microsoft Excel.
Objedinjeni podaci: -Ova se opcija koristi za sažimanje podataka iz zasebnih raspona, konsolidiranje rezultata u jednom izlazu.
Uzmimo primjer kako bismo razumjeli kako kombinirati podatke kroz VBA.
Imamo 3 Excel radne knjige, nazvane A, B i C. Svaka radna knjiga ima Sheet1 s brojevima u rasponu A2: A4. Sada želimo dohvatiti zbroj u sve radne knjige u Excel datoteci sa zbrojem brojeva i nazivom datoteke.
Datoteka A:-
Datoteka B:-
Datoteka C:-
Konsolidirajte:-
Za objedinjavanje podataka slijedite dolje navedene korake:-
- Umetnite korisnički obrazac, zatim umetnite 3 okvira s oznakama, 3 okvira s tekstom i jedan naredbeni gumb.
- Dvaput kliknite tipku Command za dodjeljivanje makronaredbi.
- Napišite dolje navedeni kod:-
Raspon podskupine Consolidate () ("A1"). Odaberite ActiveCell.Value = "Naziv" Raspon ("B1"). Odaberite ActiveCell.Value = Raspon "Iznos" ("A2"). Odaberite ActiveCell.Value = "A" Raspon ("A3"). Odaberite ActiveCell.Value = "B" Raspon ("A4"). Odaberite ActiveCell.Value = "C" Raspon ("B2"). OdaberiteWorkbooks.OpenFileName: = "D: \ Data \ A.xlsx "Workbooks.OpenFileName: =" D: \ Data \ B.xlsx "Workbooks.OpenFileName: =" D: \ Data \ C.xlsx "Windows (" Konsolidiraj "). Aktivirajte odabir. Konsolidirajte izvore: = niz (" 'D : \ Podaci \ [A.xlsx] list1 '! R2C1: R4C1 ", _"' D: \ Podaci \ [B.xlsx] list1 '! R2C1: R4C1 ","' D: \ Podaci \ [C.xlsx] sheet1 '! R2C1: R4C1 "), Funkcija: = xlSum Windows (" A.xlsx "). Aktivirajte ActiveWorkbook.Zatvorite Windows (" B.xlsx "). Aktivirajte ActiveWorkbook.Zatvorite Windows (" C.xlsx "). Aktivirajte ActiveWorkbook .Zatvori Sub Sub
Šifra Objašnjenje:-Prvo ćemo definirati vrijednosti raspona, a zatim ćemo definirati put svake datoteke. Zatim ćemo definirati koja će funkcija raditi za svaku datoteku i koji izračun želimo konsolidirati.
• Za pokretanje koda pritisnite tipku F5.
• Sve će se datoteke otvoriti, a zatim će VBA vratiti zbroj svim datotekama, a zatim će rezultat staviti ispred naziva datoteke.
Ovo je način na koji možemo konsolidirati brojeve i dohvatiti ih u jednoj datoteci iz različitih datoteka u programu Microsoft Excel putem VBA.
Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam naweb mjesto e -pošte