Šiame straipsnyje mes mokysimės VBA, kaip rašyti makrokomandą, kad būtų konsoliduoti „Microsoft Excel“ duomenys.
Konsoliduoti duomenis: -Ši parinktis naudojama apibendrinti atskirų diapazonų duomenis, konsoliduojant rezultatus vienoje išvestyje.
Paimkime pavyzdį, kad suprastume, kaip sujungti duomenis per VBA.
Turime 3 „Excel“ darbaknyges, pavadintas A, B ir C. Kiekvienoje darbaknygėje yra 1 lapas su skaičiais diapazone A2: A4. Dabar norime gauti sumą į visas „Excel“ failo darbaknyges su skaičių ir failo pavadinimo suma.
Failas A:-
B failas:-
C failas:-
Konsoliduoti:-
Norėdami konsoliduoti duomenis, atlikite toliau nurodytus veiksmus:-
- Įdėkite vartotojo formą, tada įterpkite 3 etikečių laukelius, 3 teksto laukelius ir vieną komandų mygtuką.
- Dukart spustelėkite komandų mygtuką, kad priskirtumėte makrokomandą.
- Parašykite žemiau nurodytą kodą:-
Sub Consolidate () Range ("A1"). Pasirinkite ActiveCell.Value = "Name" Diapazonas ("B1"). Pasirinkite ActiveCell.Value = "Amount" Diapazonas ("A2"). Pasirinkite ActiveCell.Value = "A" diapazonas ("A3"). Pasirinkite ActiveCell.Value = "B" diapazonas ("A4"). Pasirinkite ActiveCell.Value = "C" diapazonas ("B2"). PasirinkiteWorkbooks.OpenFileName: = "D: \ Data \ A.xlsx "Workbooks.OpenFileName: =" D: \ Data \ B.xlsx "Darbaknygės.OpenFileName: =" D: \ Data \ C.xlsx "Windows (" Konsoliduoti "). Suaktyvinkite pasirinkimą.Konsoliduoti šaltinius: = Array (" 'D : \ Data \ [A.xlsx] sheet1 '! R2C1: R4C1 ", _"' D: \ Data \ [B.xlsx] sheet1 '! R2C1: R4C1 ","' D: \ Data \ [C.xlsx] sheet1 '! R2C1: R4C1 "), Funkcija: = xlSum Windows (" A.xlsx "). Aktyvinti ActiveWorkbook.Uždaryti Windows (" B.xlsx "). Aktyvinti ActiveWorkbook.Uždaryti Windows (" C.xlsx "). Aktyvinti ActiveWorkbook. . Uždaryti pabaigos sub
Kodo paaiškinimas:-Pirma, mes nustatysime diapazono reikšmes ir tada nustatysime kiekvieno failo kelią. Tada mes nustatysime, kuri funkcija veiks kiekvienam failui ir kokį skaičiavimą norime konsoliduoti.
• Norėdami paleisti kodą, paspauskite F5 klavišą.
• Bus atidaryti visi failai, tada VBA grąžins sumą visiems failams ir tada rezultatą įrašys į failo pavadinimo priekį.
Taip mes galime konsoliduoti skaičius ir gauti juos iš vieno failo iš skirtingų „Microsoft Excel“ failų per VBA.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Rašykite mums adresupašto svetainę