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