Како прегледати ћелије помоћу макроа
Да ли желите да процените ћелије и утврдите колико је ћелија попуњено у опсегу, а колико није? Следећа слика приказује пример:
Маркер А1: Б7 садржи неке празне ћелије и неке испуњене ћелије. Ако ово желите да процените у макроу, можете користити следећи програмски код:
Суб ЦоунтсФилледЦеллс ()
Дим Нумбер Ас Лонг
Дим Нумбер2 Ас Лонг
Дим ареа Ас Ранге
Дим а Ас Стринг
Подручје подешавања = Избор
Нумбер = Апплицатион.ЦоунтА (ареа)
Цоунт2 = ареа.Целлс.Цоунт - број
а = МсгБок ("У тренутном избору су" _
& Број & "ћелије испуњене и" & број2 _
& "Ћелије су празне.", ВбОКСамо, "процени ћелије")
Енд Суб
Макро поставља функцију ЦоунтА за пребројавање броја празних ћелија у опсегу. Резултат чува променљиву број. Да би се одредио број испуњених ћелија, ова вредност се одузима од броја укупно прегледаних ћелија. Макро чува ову вредност у Број 2.
Након почетка, програмски код одређује број испуњених и празних ћелија у активној ознаци и приказује резултат у прозору:
Ако желите да обрадите опсег по свом избору, а не тренутни избор, прилагодите додељивање вредности променљивој области ат. Користи се у макроу са својством Избор повезан. Ако уместо тога желите сами да дефинишете опсег, замените комплет-Додељивање променљивој области изразом следећег облика:
Опсег подешавања = Опсег ("А1: Б5")
Спецификација опсега се увек односи на активни радни лист. Ако желите да се обратите другом радном листу, ставите испред ДометНаредите референце методама Радне свеске и Листови фиксно.
