Mai jos vom analiza un program în Excel VBA acea însumează numerele după culoare.
Situatie:
Ai împrumutat bani pentru douăsprezece persoane. Unii oameni l-au dat înapoi (în negru), iar alții încă îți datorează bani (roșu). Vrei să știi câți bani mai primești.
1. În primul rând, declarăm două variabile de tip Întreg. Unul numit toReceive și unul numit i. Inițializăm variabila pentru a primi cu valoarea 0.
Dim pentru a primi ca întreg, i ca întreg
toReceive = 0
2. În al doilea rând, începem o buclă For Next.
Pentru i = 1 până la 12
3. Verificăm acum fiecare număr și numai dacă culoarea numărului este roșie, adăugăm numărul pentru a primi.
Dacă celulele (i, 1) .Font.Color = vbRed Atunci
toReceive = toReceive + Celule (i, 1). Valoare
End If
4. Nu uitați să închideți bucla.
Apoi eu
5. În cele din urmă, afișăm banii încă de primit. Folosim operatorul & pentru a concatena (uni) două șiruri. Deși toReceive nu este un șir, acesta funcționează aici.
MsgBox „Încă de primit” & pentru a primi & „dolari”
6. Plasați macrocomanda într-un buton de comandă și testați-o.
Rezultat:
