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