Allpool vaatame programmi Exceli VBA seda summeerib numbreid värvi järgi.
Olukord:
Olete laenanud raha kahele kaheteistkümnele inimesele. Mõned inimesed on selle tagasi andnud (mustana) ja mõned on teile endiselt võlgu (punane). Tahad teada, kui palju raha sa veel saad.
1. Esiteks deklareerime kaks Integer tüüpi muutujat. Üks nimega toRecept ja teine nimega i. Initsialiseerime muutuja toRecept väärtusega 0.
Dim, et saada täisarvuna ja i täisarvuna
vastu võtma = 0
2. Teiseks alustame For For Next tsüklit.
I = 1 kuni 12
3. Nüüd kontrollime iga numbrit ja ainult siis, kui numbri värv on punane, lisame numbri vastuvõtuks.
Kui lahtrid (i, 1). Font.Värv = vbPunane Siis
toReceived = toRecept + lahtrid (i, 1) .Väärtus
Lõpp Kui
4. Ärge unustage silmust sulgeda.
Edasi i
5. Lõpuks kuvame veel laekuva raha. Kasutame operaatorit & kahe stringi ühendamiseks (ühendamiseks). Kuigi toReceived pole string, töötab see siin.
MsgBox "Ikka saab" ja vastu võtma & "dollareid"
6. Asetage oma makro käsunuppu ja katsetage seda.
Tulemus:
