У наставку ћемо погледати програм у Екцел ВБА то сабира бројеве по боји.
Ситуација:
Посудили сте новац за дванаест људи. Неки људи су га вратили (у црном), а неки вам и даље дугују новац (црвени). Желите да знате колико новца још увек примате.
1. Прво, декларишемо две променљиве типа Интегер. Један по имену тоРецеиве и један по имену и. Иницијализујемо променљиву тоРецеиве са вредношћу 0.
Дим тоРецеиве Ас Интегер, и Ас Интегер
тоРецеиве = 0
2. Друго, започињемо петљу Фор Нект.
За и = 1 до 12
3. Сада проверавамо сваки број и само ако је боја броја црвена, додајемо број тоРецеиве.
Ако су ћелије (и, 1). Фонт.Цолор = вбРед Тада
тоРецеиве = тоРецеиве + Целлс (и, 1) .Вредност
Крај Ако
4. Не заборавите да затворите петљу.
Затим сам
5. На крају, приказујемо новац који још треба примити. Оператор & користимо за спајање (спајање) два низа. Иако тоРецеиве није стринг, он овде ради.
МсгБок "Још се примају" и примају и "долари"
6. Поставите свој макро у командно дугме и тестирајте га.
Резултат: