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