In dit artikel gaan we VBA leren hoe de macro te schrijven om de gegevens in Microsoft Excel te consolideren.
Gegevens consolideren: -Deze optie wordt gebruikt om gegevens uit afzonderlijke bereiken samen te vatten, waarbij de resultaten in één uitvoer worden geconsolideerd.
Laten we een voorbeeld nemen om te begrijpen hoe de gegevens via VBA kunnen worden gecombineerd.
We hebben 3 Excel-werkmappen, genaamd A, B en C. Elke werkmap heeft Blad1 met de getallen in het bereik A2:A4. Nu willen we de som van alle werkmappen in een Excel-bestand ophalen met ook de som van getallen en bestandsnaam.
Dien een … in:-
Bestand B:-
Bestand C:-
Consolideren:-
Volg de onderstaande stappen om de gegevens te consolideren: -
- Voeg een gebruikersformulier in en voeg vervolgens 3 labelvakken, 3 tekstvakken en één opdrachtknop in.
- Dubbelklik op de Command-knop om de macro toe te wijzen.
- Schrijf de onderstaande code: -
Sub Consolidate() Range("A1").Select ActiveCell.Value = "Name" Range("B1").Select ActiveCell.Value = "Amount" Range("A2").Select ActiveCell.Value = "A" Range ("A3").Selecteer ActiveCell.Value = "B" Range("A4").Select 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]blad1'!R2C1:R4C1", _ "'D:\Data\[B.xlsx]blad1'!R2C1:R4C1", "'D:\Data\[C.xlsx] sheet1'!R2C1:R4C1"), Function:=xlSum Windows("A.xlsx").Activate ActiveWorkbook.Close Windows("B.xlsx").Activate ActiveWorkbook.Close Windows("C.xlsx").Activate ActiveWorkbook .Sluiten Einde Sub
Code Verklaring:-Eerst zullen we de bereikwaarden definiëren en vervolgens zullen we het pad van elk bestand definiëren. Vervolgens bepalen we welke functie voor elk bestand werkt en welke berekening we willen consolideren.
• Om de code uit te voeren, drukt u op de F5-toets.
• Alle bestanden worden geopend en VBA retourneert de som naar alle bestanden en plaatst het resultaat voor de bestandsnaam.
Dit is de manier waarop we de cijfers kunnen consolideren en in één bestand kunnen ophalen uit verschillende bestanden in Microsoft Excel via VBA.
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons ope-mailsite