Az alábbiakban megnézzük a programot Excel VBA hogy összegezi a számokat szín szerint.
Helyzet:
Pénzt kölcsönzött két tizenkét embernek. Vannak, akik visszaadták (feketén), és vannak, akik még mindig tartoznak neked (piros). Szeretné tudni, hogy mennyi pénzt kap még.
1. Először két Integer típusú változót deklarálunk. Az egyik a toRecept, a másik az i. A toRecept változót 0 értékkel inicializáljuk.
Dim to Intere, i As Integer
toRecept = 0
2. Másodszor, elindítunk egy For Next cikket.
I = 1 és 12 között
3. Most minden számot ellenőrzünk, és csak akkor, ha a szám színe piros, hozzáadjuk a számot a Fogadáshoz.
Ha cellák (i, 1). Betűtípus.Szín = vbVörös Akkor
toReceived = toRecept + cellák (i, 1). Érték
Vége Ha
4. Ne felejtse el lezárni a hurkot.
Következő i
5. Végül megjelenítjük a még megkapandó pénzt. A & operátort használjuk két karakterlánc összefűzésére (összekapcsolására). Bár a toReceived nem karakterlánc, itt működik.
MsgBox "Még mindig kap" & toReception & "dollár"
6. Helyezze a makrót egy parancsgombba, és próbálja ki.
Eredmény: