Poniżej przyjrzymy się programowi w Excel VBA że sumuje liczby według koloru.
Sytuacja:
Pożyczyłeś pieniądze dwóm dwunastu osobom. Niektórzy ludzie go oddali (na czarno), a niektórzy nadal są ci winni pieniądze (na czerwono). Chcesz wiedzieć, ile pieniędzy nadal otrzymujesz.
1. Najpierw deklarujemy dwie zmienne typu Integer. Jeden o nazwie toReceive, a drugi o nazwie i. Inicjujemy zmienną toReceive z wartością 0.
Dim toReceive As Integer, i As Integer
do odbioru = 0
2. Po drugie, uruchamiamy pętlę For Next.
Dla i = 1 do 12
3. Teraz sprawdzamy każdy numer i tylko jeśli kolor numeru jest czerwony, dodajemy numer do toReceive.
Jeśli Cells(i, 1).Font.Color = vbRed Wtedy
toReceive = toReceive + Cells(i, 1)).Wartość
Zakończ, jeśli
4. Nie zapomnij zamknąć pętli.
Dalej ja
5. Na koniec wyświetlamy pieniądze do otrzymania. Używamy operatora & do łączenia (połączenia) dwóch ciągów. Chociaż toReceive nie jest ciągiem, tutaj działa.
MsgBox "Wciąż do odbioru " i do odbioru i " dolarów"
6. Umieść swoje makro w przycisku polecenia i przetestuj je.
Wynik: