Нижче ми розглянемо програму в Excel VBA що підсумовує числа за кольором.
Ситуація:
Ви позичили гроші двом дванадцяти особам. Деякі люди повернули його (у чорному кольорі), а деякі все ще винні вам гроші (червоні). Ви хочете знати, скільки грошей ви все ще отримуєте.
1. Спочатку ми оголошуємо дві змінні типу Integer. Один з іменем toReceive та один з і. Ми ініціалізуємо змінну 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 + Cells (i, 1). Значення
Закінчити Якщо
4. Не забудьте закрити цикл.
Далі i
5. Нарешті, ми показуємо гроші, які ще потрібно отримати. Ми використовуємо оператор & для об'єднання (з'єднання) двох рядків. Хоча toReceive не є рядком, він працює тут.
MsgBox "Все ще отримувати" & toReceive & "долари"
6. Помістіть свій макрос у командну кнопку та протестуйте його.
Результат: