У овом чланку ћемо научити ВБА како написати макро за консолидацију података у Мицрософт Екцелу.
Обједињени подаци: -Ова опција се користи за сумирање података из засебних опсега, обједињавајући резултате у једном излазу.
Узмимо пример да бисмо разумели како комбиновати податке кроз ВБА.
Имамо 3 Екцел радне свеске, именоване као А, Б и Ц. Свака радна свеска има Схеет1 са бројевима у опсегу А2: А4. Сада желимо да дохватимо збир у све радне свеске у Екцел датотеци са сумом бројева и именом датотеке.
Датотека А:-
Датотека Б:-
Датотека Ц:-
Консолидујте:-
Да бисте консолидовали податке, следите доле наведене кораке:-
- Уметните кориснички образац, затим уметните 3 поља са ознакама, 3 поља за текст и једно командно дугме.
- Двапут кликните на дугме Цомманд да бисте доделили макро.
- Напишите доле наведени код:-
Опсег Суб Цонсолидате () ("А1"). Изаберите АцтивеЦелл.Валуе = "Име" Опсег ("Б1"). Изаберите АцтивеЦелл.Валуе = Опсег "Количина" ("А2"). Изаберите АцтивеЦелл.Валуе = "А" Опсег ("А3"). Изаберите АцтивеЦелл.Валуе = "Б" Распон ("А4"). Изаберите АцтивеЦелл.Валуе = "Ц" Распон ("Б2"). ИзаберитеВоркбоокс.ОпенФилеНаме: = "Д: \ Дата \ А.клск "Воркбоокс.ОпенФилеНаме: =" Д: \ Дата \ Б.клск "Воркбоокс.ОпенФилеНаме: =" Д: \ Дата \ Ц.клск "Виндовс (" Цонсолидате "). Активирајте Селецтион.Цонсолидате Соурцес: = Арраи (" 'Д : \ Подаци \ [А.клск] лист1 '! Р2Ц1: Р4Ц1 ", _"' Д: \ Подаци \ [Б.клск] лист1 '! Р2Ц1: Р4Ц1 ","' Д: \ Подаци \ [Ц.клск] схеет1 '! Р2Ц1: Р4Ц1 "), Функција: = клСум Виндовс (" А.клск "). Активирајте АцтивеВоркбоок.Затворите Виндовс (" Б.клск "). Активирајте АцтивеВоркбоок.Затворите Виндовс (" Ц.клск "). Активирајте АцтивеВоркбоок .Затвори Енд Суб
Шифра Објашњење:-Прво ћемо дефинисати вредности опсега, а затим ћемо дефинисати путању сваке датотеке. Затим ћемо дефинисати која ће функција радити за сваку датотеку и коју калкулацију желимо консолидовати.
• Да бисте покренули код, притисните тастер Ф5.
• Све датотеке ће се отворити, а затим ће ВБА вратити збир свим датотекама, а затим ће резултат ставити испред имена датотеке.
Ово је начин на који можемо консолидовати бројеве и преузети их у једну датотеку из различитих датотека у програму Мицрософт Екцел путем ВБА.
Ако вам се допадају наши блогови, поделите их са пријатељима на Фацебооку. Такође нас можете пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, реците нам како можемо побољшати, допунити или иновирати наш рад и учинити га бољим за вас. Пишите нам насајт е -поште