У овом чланку ћемо створити прилагођену функцију за бројање броја ћелија у опсегу са дефинисаним бојама.
За овај пример, узорци података се састоје од опсега који има вредности у распону од 100 до 1000. Вредности у ћелијама су означене различитим бојама. Желимо да пронађемо број сваке боје.
Да бисмо израчунали број одређене боје, креирали смо прилагођену функцију „ЦоунтБиЦолор“. Ова функција узима два параметра распона као улаз. Параметар првог распона дефинира унутрашњу боју ћелије, а други параметар распона дефинира распон узорка.
Објашњење кода
Апплицатион.Волатиле се користи јер ће се поново израчунати сваки пут када се вредност ћелије промени у радној свесци.
ДефинедЦолорРанге.Интериор.ЦолорИндек
Горњи код се користи за добијање унутрашње боје дефинисаног опсега.
Молимо следите доле за код
Функција ЦоунтБиЦолор (ДефинедЦолорРанге Ас Ранге, ЦоунтРанге Ас Ранге) Апплицатион.Волатиле 'Декларисање променљивих Дим ИЦол Ас Интегер Дим ГЦелл Ас Ранге' Добијање унутрашње боје ћелије ИЦол = ДефинедЦолорРанге.Интериор.ЦолорИндек 'Пролаз кроз дефинисани опсег За сваку ГЦелл Ин ЦоунтРанге Иф ИЦол = ГЦелл.Интериор.ЦолорИндек Тхен 'Добијање броја одговарајућих обојених ћелија ЦоунтБиЦолор = ЦоунтБиЦолор + 1 Енд Иф Нект ГЦелл Енд Функција
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште