Функција радног листа ЦОУНТА у програму Екцел ВБА
У нашем ранијем чланку „Екцел ЦОУНТА“ видели смо како да користимо функцију ЦОУНТ за бројање нумеричких вредности из опсега вредности. Шта кажете на израчунавање свих трошкова на пољу ћелија? Да, можемо и то да проценимо. Да бисмо избројали све вредности ћелија у опсегу ћелија, морамо да користимо формулу „ЦОУНТА“ у екцелу ВБА. У овом чланку ћемо вам показати како да користите функцију ЦОУНТА у ВБА за бројање свих вредности ћелија у испорученом опсегу.
Примери функције ЦОУНТА у ВБА
Једна од истина је да функција „ЦОУНТА“ није ВБА функција. Знам да је ваше питање, ако није ВБА функција, како да је користимо? Ништа не брине иако то није ВБА функција; ипак, можемо га користити у класи функције радног листа у ВБА кодирању.
Ок, напишимо код да применимо екцел ВБА ЦОУНТА.
Корак 1: Креирајте име потпроцедуре.
Корак 2: Прво, прво одлучите где ћемо сачувати резултат функције ВБА ЦОУНТА. У овом примеру желим да рад задржим у ћелији Ц2. Дакле, мој код ће бити опсег („Ц2“). Вредност.
Шифра:
Суб Цоунта_Екампле1 () Опсег ("Ц2"). Вредност = Крај Суб
Корак 3: У ћелији Ц2 потребна нам је вредност функције ВБА ЦОУНТА. Дакле, да бисмо применили екцел ВБА ЦОУНТА функцију, прво желимо да користимо класу функције радног листа.
Шифра:
Суб Цоунта_Екампле1 () Опсег ("Ц2"). Вредност = Суб Енд Ворк
Корак 4: Након примене класе функције радног листа, одаберите формулу ТАЧКА стављањем тачке.
Шифра:
Суб Цоунта_Екампле1 () опсег ("Ц2"). Валуе = ВорксхеетФунцтион.Цоунт Енд Суб
Корак 5: Сада морамо да понудимо опсег ћелија које се броје. У овом примеру морамо израчунати опсег ћелија од А1 до А11. Да би се обезбедиле ћелије помоћу објекта ВБА РАНГЕ.
Шифра:
Суб Цоунта_Екампле1 () Опсег ("Ц2"). Валуе = ВорксхеетФунцтион.ЦоунтА (Ранге ("А1: А11")) Крај Суб
Ок, покренимо код да бисмо добили резултат у ћелији Ц2.
Дакле, исти резултат је вратила и ВБА ЦОУНТА.
Овако, можемо да користимо ЦОУНТА за бројање непразних или непразних ћелија из испорученог опсега.
Кодирање променљивим
ВБА променљиве су кључ за изградњу пројекта. Сада за исте податке можемо прогласити ВБА променљиве и доћи до резултата.
На пример, погледајте доњи код.
Шифра:
Суб Цоунта_Екампле2 () Дим ЦоунтаРанге Ас Ранге Дим ЦоунтаРесултЦелл Ас Ранге Сет ЦоунтаРанге = Ранге ("А1: А11") Сет ЦоунтаРесултЦелл = Ранге ("Ц2") ЦоунтаРесултЦелл = ВорксхеетФунцтион.ЦоунтА (ЦоунтаРанге) Енд Суб СубРанге
Објаснимо сада горњи код.
Прво, прогласио сам променљиву „ЦоунтаРанге“ као опсег који упућује на опсег вредности.
Дим ЦоунтаРанге Ас Ранге
Даље, референцу сам поставио као опсег А1 на А11.
Постави ЦоунтаРанге = опсег ("А1: А11")
Друга променљива је референца на ћелију резултата ЦОУНТА.
Затамни ЦоунтаРесултЦелл Ас Ранге
За ову променљиву сам поставио ћелију као Ц2.
Постави ЦоунтаРесултЦелл = опсег ("Ц2")
Сада сам, као и обично, применио функцију ЦОУНТА користећи променљиве уместо кодираних опсега. Сада погледајте стари код и овај ВБА код.
Шифра 1:
Шифра 2:
У коду 1 имамо опсег Ц2. У коду 2 имамо име променљиве „ЦоунтаРесултЦелл.“ Овде је променљива „ЦоунтаРесултЦелл“ поставила референцу као Ц2 ћелију. Дакле, ова променљива је сада ћелија Ц2.
У коду 1, опсег функције ЦОУНТА је од А1 до А11. У правилу 2, то је променљива названа „ЦоунтаРанге“. Ова променљива садржи референцу на опсег од А1 до А11.
У томе је разлика између старог кода и кода са променљивим.
Дакле, функција ЦОУНТА помаже нам да избројимо све непразне ћелије из испорученог опсега, без обзира на податке које има.
