U nastavku ćemo pogledati program u Excel VBA da zbraja brojeve po boji.
Situacija:
Posudili ste novac za dvanaest ljudi. Neki su ga ljudi vratili (u crnom), a neki vam još uvijek duguju novac (crveno). Želite znati koliko novca još primate.
1. Prvo deklariramo dvije varijable tipa Integer. Jedan po imenu toReceive i jedan po imenu i. Varijablu inicijaliziramo naReceive s vrijednošću 0.
Dim toReceive As Integer, i As Integer
toReceive = 0
2. Drugo, započinjemo petlju For Next.
Za i = 1 do 12
3. Sada provjeravamo svaki broj i samo ako je boja broja crvena, dodajemo broj toReceive.
Ako su ćelije (i, 1). Font.Color = vbRed Tada
toReceive = toReceive + Cells (i, 1) .Vrijednost
Završi ako
4. Ne zaboravite zatvoriti petlju.
Sljedeći i
5. Konačno, prikazujemo novac koji još treba primiti. Operator & koristimo za spajanje (spajanje) dva niza. Iako toReceive nije niz, ovdje radi.
MsgBox "Još se prima" & toReceive & "dolara"
6. Postavite svoj makro u naredbeni gumb i testirajte ga.
Proizlaziti: