По -долу ще разгледаме програма в Excel VBA че сумира числа по цвят.
Ситуация:
Заели сте пари на дванадесет души. Някои хора са го върнали (в черно), а някои все още ви дължат пари (червено). Искате да знаете колко пари все още получавате.
1. Първо, декларираме две променливи от тип Integer. Един с име toReceive и един с име i. Инициализираме променливата toReceive със стойност 0.
Dim toReceive As Integer, i As Integer
toReceive = 0
2. Второ, стартираме цикъл For Next.
За i = 1 до 12
3. Сега проверяваме всяко число и само ако цветът на номера е червен, добавяме номера към toReceive.
Ако клетки (i, 1). Font.Color = vbRed Тогава
toReceive = toReceive + клетки (i, 1)
Край Ако
4. Не забравяйте да затворите цикъла.
Следва i
5. Накрая показваме парите, които все още трябва да получите. Използваме оператора &, за да свържем (съединим) два низа. Въпреки че toReceive не е низ, той работи тук.
MsgBox "Все още да получавам" & toReceive & "долари"
6. Поставете вашия макрос в команден бутон и го тествайте.
Резултат: