Бројач у Екцелу ВБА
У МС Екцел-у постоје разни начини бројања. Можемо користити уграђене функције као што су Цоунт, ЦоунтИф, ЦоунтА, ЦоунтБланк које се налазе у Екцелу. Али ове функције неће радити исправно у ВБА и имају ограничења. Да бисмо то превазишли, имамо много функција и наредби и поступак помоћу којег можемо извршити ВБА Цоунтер. ВБА бројач користи се за бројање ћелије, бројање ћелијског садржаја и такође се користи као тајмер одбројавања времена када можемо имплементирати временски лист за мерење било којег задатка.
Уз помоћ ВБА Цоунтер-а можемо ћелије пребројати и њиховим индексима боја. Овај индекс боја може такође да садржи фонт боје или позадине ћелије и подебљане вредности.
Како створити бројач у Екцелу ВБА?
Испод су различити примери за креирање бројача у Екцелу помоћу ВБА кода.
Можете преузети овај ВБА Цоунтер Екцел образац овде - ВБА Цоунтер Екцел предложакВБА бројач - пример бр. 1
У колони А. имамо неке податке о случајним бројевима. Све наведене вредности су случајне и немају везу, као што су низ или низ. Сада ћемо уз помоћ ВБА бројача рачунати бројеве највиших и највећих вредности и добити излаз у ћелији Д2 и Д3.
Бројат ћемо и истовремено их обојати према тексту боје у ћелији Ц2 и Ц3.
За то следите следеће кораке:
Корак 1: Направите командно дугме које је доступно на картици Девелопер под активном Кс контролом у менију као што је приказано испод.
Корак 2: Сада направите дугме као што је приказано у наставку.
Корак 3: Кликните десним дугметом десно и идите на опцију Својства .
Корак 4: Промените наслов дугмета који подразумевано представља ЦоммандБуттон2 на било које жељено име. Овде смо то променили у „ Бројање ћелија по вредности “.
Корак 5: Када завршите, кликните десним тастером миша на створени тастер и изаберите опцију Прикажи код да бисте добили прозор ВБА.
Висуал Басиц Едитор је отворен сада и подразумевано је већ створен потпрограм за командно дугме.
Шифра:
Привате Суб ЦоммандБуттон2_Цлицк () Енд Суб
Корак 6: Сада морамо прогласити 3 променљиве. Означите прву променљиву где ћемо чувати бројеве и другу променљиву помоћу које ћемо бројач користити као цео бројеве, као што је приказано у наставку. А трећа варијабла ће бити дугачка да броји бројеве похрањене у сваком реду.
Шифра:
Приватни Суб ЦоммандБуттон2_Цлицк () Дим А као цео број Дим Број као цео дим Дим ЛРов Ас Лонг Енд Суб
Корак 7: Сада ћемо одабрати прву ћелију листа која је А1 као наш домет. Одавде ћемо бирати ћелије све док не добију бројеве.
Шифра:
Приватни Суб ЦоммандБуттон2_Цлицк () Дим А као цели број Дим Број као цео број Дим ЛРов Ас Лонг ЛРов = Опсег ("А1"). ЦуррентРегион.Енд (клДовн) .Ров Енд Суб
Корак 8: Сада ћемо отворити и уписати стање у Фор петљи за, ако ћелија има вредност већу од 10, тада ће се боја фонта ћелије променити у Жута, а за вредност мања од 10, боја фонта ћелије ће се променити у Плава са индексима боја 44, односно 55 .
Шифра:
Приватни Суб ЦоммандБуттон2_Цлицк () Дим А као цели број Дим као цео број Дим ЛРов ас Лонг ЛРов = домет ("А1"). ЦуррентРегион.Енд (клДовн) .Ров Фор А = 1 то ЛАРов Иф Целлс (А, 1). 10 Затим пребројите = Број + 1 ћелија (А, 1). Фон.ЦолорИндек = 44 Друге ћелије (А, 1) .Фонт.ЦолорИндек = 55 Крај Ако је следећи А Крај Под
Корак 9: Сада да видимо излаз вредности из ћелије А1 до краја, ми ћемо изабрати ћелије као што је горе наведено у коду доле.
Шифра:
Приватни Суб ЦоммандБуттон2_Цлицк () Дим А као цели број Дим као цео број Дим ЛРов ас Лонг ЛРов = домет ("А1"). ЦуррентРегион.Енд (клДовн) .Ров Фор А = 1 то ЛАРов Иф Целлс (А, 1). 10 Затим пребројите = Број + 1 ћелија (А, 1). Фон.КолорИндек = 44 Друге ћелије (А, 1). КопирањеЦолорИндек = 55 Крај Ако су следеће А станице (2, 4). Валуе = Број ћелија (3 4) .Валуе = 12 - Цоунт Енд Суб
Корак 10: Сада покрените код притиском на дугме.
Видећемо, ћелије које садрже бројеве мање од 10 означене су плавом бојом. А онај већи од 10 је означен жутом бојом.
ВБА бројач - пример бр. 2
У овом примјеру, ми ћемо користити ВБА бројач за мјерење времена до којег можемо мјерити потрошњу коју обављамо. Претпоставимо, ако треба да одмеримо време потребно за довршавање било којег задатка, тада је поступак који ћемо овде видети најбоље применити.
За то следите следеће кораке:
Корак 1: Направите 2 картице било којег облика из опције Уметање опција у облику менија као што је приказано у наставку. Бирамо Правокутник: Роундер Цорнерс .
Корак 2: Направите 2 дугмета и именовајте их Старт и Ресет помоћу којих ћемо покренути тајмер и очистити време.
Корак 3: Сада идите на ВБА и отворите модул из менија Уметање.
Корак 4: У то напишите подкатегорију Старт тајмер као што је приказано у наставку.
Шифра:
Под Старт () Крај Суб
Корак 5: Размотрите реч за Следећи ред, као што је НектРов, где ћемо одабрати радни лист у који желимо да имплементирамо код. Ево, наш лист је Схеет2 . И овде ћемо бројати редове од +1 ћелије која је ћелија А2 док не добијемо вредност курсора.
Шифра:
Под Старт () НектРов = ТхисВоркбоок.Схеетс ("Схеет2"). Ћелије (Ровс.Цоунт, 1) .Енд (клУп) .Ров + 1 Енд Суб
Корак 6: Сада да уђемо у следећи ред користићемо вертек формат где је 1 у загради за И-ос.
Шифра:
Под Старт () НектРов = ТхисВоркбоок.Схеетс ("Схеет2"). Ћелије (Ровс.Цоунт, 1) .Енд (клУп) .Ров + 1 ћелије (НектРов, 1) = Податковни крај
Корак 7: Напишите код за ресетовање испод истог почетног кода.
Шифра:
Суб Ресет () Крај Суб
Корак 8: Сада ћемо за ресетирање задржати исти код као и Старт, али кључна реч ће се променити у ЛастРов и уклонићемо +1 само да не морамо ући у други ред.
Шифра:
Суб Ресет () ластров = ТхисВоркбоок.Схеетс ("Схеет2"). Ћелије (Ровс.Цоунт, 1) .Енд (клУп) .Ров Енд Суб
Корак 9: Сада да бисте очистили податке из последње ћелије колоне А, прво одаберите опсег ћелија са функцијом ЦлеарЦонтентс .
Шифра:
Суб ресет () ластров = ТхисВоркбоок.Схеетс ("Схеет2"). Ћелије (Ровс.Цоунт, 1) .Енд (клУп) .Ров Ранге ("А2: А" & ластров) .ЦлеарЦонтентс Енд Суб
Сада затворите ВБА прозор.
Корак 10: Десном типком миша кликните картицу Старт и одаберите опцију Додели макро .
Корак 11: Изаберите Старт подкодирање које смо претходно урадили.
12. корак: Исто урадите и за дугме Ресет. Доделите Ресет под-код тастеру Ресет и кликните на Ок и изађите из режима дизајна да бисте извршили код.
Корак 13: Сада прво притисните дугме Старт . Вријеме почетка ћемо добити као 3:51:33.
Корак 14: Сада поново кликните на дугме Старт 2-3 пута да добијете више времена. Видећемо, у свакој итерацији постоји јаз од неколико секунди.
Корак 15: Сада након тога тестираћемо тастер Ресет . Кликните на Ресетуј. Видећемо, подаци су сада очишћени и спремни за још један број рачуна.
Предности Екцел ВБА Цоунтер-а
- Врло је лако имплементирати бројач временских кругова као што смо видели у примеру 2.
- ВБА Цоунтер има много врста имплементације, а то се не ограничава само на примере које смо видели.
Ствари које треба запамтити
- Увек је боље доделити код било ком тастеру када смо извели 2 или више врста кода у једном процесу.
- Изађите из начина дизајнирања након што се додјела и извршавање кода изврши на картици Девелопер.
- Такође можемо да направимо бројач времена на коме можемо видети одбројавање времена или реално гледати време.
- Спремите макронаредбу у макронаредбени формат екцел формата датотеке како не бисмо изгубили код.
Препоручени чланци
Ово је водич за ВБА Цоунтер. Овде смо расправљали о томе како креирати ВБА бројач у Екцелу користећи ВБА код заједно са практичним примерима и довнлоад-ом Екцел предлошка. Такође можете погледати следећи чланак да бисте сазнали више -
- Употреба грешке ВБА Оверловлов у Екцелу
- Примери грешке ВБА 1004
- Како се користи ВБА ДоЕвентс?
- Методе за сакривање колона у ВБА