Alla tarkastelemme ohjelmaa Excel VBA että summaa numerot värin mukaan .
Tilanne:
excel näyttää kaavan arvon sijaan
Olet lainannut rahaa kahdelle kaksitoista henkilölle. Jotkut ihmiset ovat antaneet sen takaisin (mustana) ja jotkut ovat vielä 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.
Ei mitäänsaadaKuten Kokonaisluku, iKuten Kokonaisluku
vastaanottaa = 0
2. Toiseksi aloitamme For For Next -silmukan.
Varteni = 1Vastaanottaja123. Tarkistamme nyt jokaisen numeron ja vain jos numeron väri on punainen, lisäämme numeron vastaanottoon.
JosSolut (i, 1) .Font.Color = vbRedSittenvastaanottaa = vastaanottaa + solut (i, 1)
Loppu Jos
4. Älä unohda sulkea silmukkaa.
Seuraavai5. 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ä' ja vastaanottaa & 'dollareita'6. Aseta makro komentopainikkeeseen ja testaa se.
Tulos:
muuntaa tunnit lukuksi Excelissä
Siirry seuraavaan lukuun: Silmukka
