Alla tarkastelemme ohjelmaa Excel VBA että summaa numerot värin mukaan.
Tilanne:
Olet lainannut rahaa kahdelle kaksitoista henkilölle. Jotkut ihmiset ovat antaneet sen takaisin (mustana) ja jotkut ovat edelleen velkaa sinulle (punainen). Haluatko tietää, kuinka paljon rahaa saat vielä.
1. Ilmoitamme ensin kaksi Integer -tyyppistä muuttujaa. Yksi nimetty vastaanottamaan ja toinen nimeltään i. Alustamme muuttujan toRecept arvolla 0.
Dim toVastaanota kokonaislukuna, ja kokonaislukuna
vastaanottaa = 0
2. Toiseksi aloitamme For For Next -silmukan.
I = 1-12
3. Tarkistamme nyt jokaisen numeron ja vain jos numeron väri on punainen, lisäämme numeron vastaanottoon.
Jos Solut (i, 1) .Font.Color = vbPunainen Sitten
vastaanottaa = vastaanottaa + solut (i, 1)
Loppu Jos
4. Älä unohda sulkea silmukkaa.
Seuraavaksi minä
5. Lopuksi näytämme vielä saamamme rahat. Käytämme & -operaattoria kahden merkkijonon ketjutukseen (yhdistämiseen). Vaikka toReceived ei ole merkkijono, se toimii täällä.
MsgBox "Vastaanottaa vielä" & vastaanottaa & "dollareita"
6. Aseta makro komentopainikkeeseen ja testaa se.
Tulos: