Nižšie sa pozrieme na program v Excel VBA že sčíta čísla podľa farby.
Situácia:
Požičali ste peniaze dvom dvanástim ľuďom. Niektorí ľudia to vrátili (v čiernom) a niektorí vám stále dlhujú peniaze (v červenom). Chcete vedieť, koľko peňazí stále dostávate.
1. Najprv deklarujeme dve premenné typu Integer. Jeden s názvom toReceive a jeden s názvom i. Inicializujeme premennú toReceive s hodnotou 0.
Dim toReceive As Integer, i As Integer
toReceive = 0
2. Po druhé, spustíme slučku For Next.
Pre i = 1 až 12
3. Teraz skontrolujeme každé číslo a iba vtedy, ak je farba čísla červená, pridáme číslo do priečinka Prijať.
If Cells (i, 1) .Font.Color = vbRed Then
toReceive = toReceive + Cells (i, 1). Hodnota
Koniec Ak
4. Nezabudnite uzavrieť slučku.
Ďalej i
5. Nakoniec zobrazíme peniaze, ktoré ešte máme prijať. Operátor & používame na zreťazenie (spojenie) dvoch reťazcov. Aj keď toReceive nie je reťazec, funguje tu.
MsgBox „Stále prijímať“ a Prijímať & „doláre“
6. Umiestnite makro do príkazového tlačidla a otestujte ho.
Výsledok: