Konsolidace dat prostřednictvím aplikace Excel VBA

Anonim

V tomto článku se naučíme VBA, jak napsat makro ke konsolidaci dat v aplikaci Microsoft Excel.

Konsolidace dat: -Tato možnost se používá k shrnutí dat z různých rozsahů a konsolidaci výsledků do jednoho výstupu.

Uveďme si příklad, abychom pochopili, jak data kombinovat prostřednictvím VBA.

Máme 3 sešity aplikace Excel, pojmenované jako A, B a C. Každý sešit má list 1 s čísly v rozsahu A2: A4. Nyní chceme načíst součet do všech sešitů v souboru aplikace Excel se součtem čísel a názvu souboru.

Soubor A:-

Soubor B:-

Soubor C:-

Konsolidovat:-

Chcete-li konsolidovat data, postupujte podle níže uvedených kroků:-

  • Vložte uživatelský formulář, poté vložte 3 pole se štítky, 3 textová pole a jedno příkazové tlačítko.
  • Dvojitým kliknutím na příkazové tlačítko přiřadíte makro.
  • Napište níže uvedený kód:-
 Rozsah dílčí konsolidace () ("A1"). Vyberte ActiveCell.Value = "Název" Rozsah ("B1"). Vyberte ActiveCell.Value = "Částka" Rozsah ("A2"). Vyberte ActiveCell.Value = "A" rozsah ("A3"). Vyberte ActiveCell.Value = "B" Range ("A4"). Vyberte 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 "). 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 "), Funkce: = xlSum Windows (" A.xlsx "). Aktivujte ActiveWorkbook.Close Windows (" B.xlsx "). Aktivujte ActiveWorkbook.Close Windows (" C.xlsx "). Aktivujte ActiveWorkbook .Zavřít End Sub

Vysvětlení kódu:-Nejprve definujeme hodnoty rozsahu a poté definujeme cestu každého souboru. Poté definujeme, která funkce bude fungovat pro každý soubor a jaký výpočet chceme konsolidovat.
• Kód spustíte stisknutím klávesy F5.
• Budou otevřeny všechny soubory a poté VBA vrátí Součet všem souborům a poté umístí výsledek před název souboru.

Toto je způsob, jakým můžeme konsolidovat čísla a načítat je v jednom souboru z různých souborů v aplikaci Microsoft Excel prostřednictvím VBA.

Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám nae -mailový web