Сумма по цвету в Excel VBA
Ниже мы рассмотрим программу в Excel VBA, который суммирует число по цвету.
Ситуация:
Вы lended деньги на два двенадцать человек. Некоторые люди дали его обратно (в черном), а некоторые все еще должны вам деньги (красный). Вы хотите знать, сколько денег вы все равно получите.
-
Во-первых, мы объявляем две переменные типа Integer. Один названный toReceive и один с именем I. Мы инициализируем переменную toReceive со значением 0.
Dim toReceive As Integer, i As Integer toReceive = 0
-
Во-вторых, мы начинаем для следующего цикла.
For i = 1 To 12
-
Теперь мы проверяем каждый номер и только тогда, когда цвет номера красного цвета мы добавить номер toReceive.
If Cells(i, 1).Font.Color = vbRed Then toReceive = toReceive + Cells(i, 1).Value End If
-
Не забудьте закрыть петлю.
Next i
-
И, наконец, мы выводим деньги еще получить. Мы используем и оператор для конкатенации (объединение) двух строк. Хотя toReceive не строка работает здесь.
MsgBox "Still to receive " & toReceive & " dollars"
-
Поместите макрос в командной кнопке и протестировать его.
Результат:
