V tomto článku sa naučíme VBA, ako napísať makro na konsolidáciu údajov v programe Microsoft Excel.
Konsolidácia údajov: -Táto možnosť sa používa na sumarizáciu údajov z oddelených rozsahov a konsolidáciu výsledkov do jedného výstupu.
Vezmime si príklad, aby sme pochopili, ako kombinovať údaje prostredníctvom VBA.
Máme 3 zošity programu Excel, pomenované ako A, B a C. Každý zošit má list 1 s číslami v rozsahu A2: A4. Teraz chceme načítať súčet do všetkých zošitov v súbore Excel so súčtom čísel a názvu súboru.
Súbor A:-
Súbor B:-
Súbor C:-
Konsolidovať:-
Na konsolidáciu údajov postupujte podľa nižšie uvedených krokov:-
- Vložte užívateľský formulár, potom vložte 3 polia s menovkami, 3 textové polia a jedno príkazové tlačidlo.
- Makro priradíte dvojitým kliknutím na príkazové tlačidlo.
- Napíšte nižšie uvedený kód:-
Rozsah čiastočnej konsolidácie () („A1“). Vyberte ActiveCell.Value = „Názov“ Rozsah („B1“). Vyberte ActiveCell.Value = rozsah „Suma“ („A2“). Vyberte ActiveCell.Value = rozsah „A“ ("A3"). Vyberte ActiveCell.Value = "B" rozsah ("A4"). Vyberte ActiveCell.Value = "C" rozsah ("B2"). VyberteWorkbooks.OpenFileName: = "D: \ Data \ A.xlsx "Workbooks.OpenFileName: =" D: \ Data \ B.xlsx "Workbooks.OpenFileName: =" D: \ Data \ C.xlsx "Windows (" Consolidate "). Activate Selection.Consolidate Sources: = Array (" 'D : \ Data \ [A.xlsx] sheet1 '! R2C1: R4C1 ", _"' D: \ Data \ [B.xlsx] sheet1 '! R2C1: R4C1 ","' D: \ Data \ [C.xlsx] sheet1 '! R2C1: R4C1 "), Funkcia: = xlSum Windows (" A.xlsx "). Aktivujte ActiveWorkbook.Close Windows (" B.xlsx "). Aktivujte ActiveWorkbook.Close Windows (" C.xlsx "). Aktivujte ActiveWorkbook .Zatvoriť koniec podč
Vysvetlenie kódu:-Najprv definujeme hodnoty rozsahu a potom definujeme cestu každého súboru. Potom definujeme, ktorá funkcia bude fungovať pre každý súbor a aký výpočet chceme konsolidovať.
• Kód spustíte stlačením klávesu F5.
• Otvoria sa všetky súbory a potom VBA vráti súčet všetkým súborom a potom umiestni výsledok pred názov súboru.
Toto je spôsob, akým môžeme konsolidovať čísla a načítať ich do jedného súboru z rôznych súborov v programe Microsoft Excel prostredníctvom VBA.
Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám nae -mailová stránka