Spodaj si bomo ogledali program v Excel VBA to sešteje številke po barvah.
Situacija:
Posojili ste denar dvema dvanajstim ljudem. Nekateri so ga vrnili (v črni barvi), nekateri pa vam še vedno dolgujejo denar (rdeči). Želite vedeti, koliko denarja še prejemate.
1. Najprej razglasimo dve spremenljivki tipa Integer. Ena z imenom toReceive in ena z imenom i. Spremenljivko inicializiramo naReceive z vrednostjo 0.
Dim toReceive As Integer, i As Integer
toReceive = 0
2. Drugič, zaženemo zanko For Next.
Za i = 1 do 12
3. Zdaj preverimo vsako številko in le, če je barva številke rdeča, dodamo številko toReceive.
Če so celice (i, 1). Font.Color = vbRed Potem
toReceive = toReceive + Cells (i, 1) .Vrednost
Konec Če
4. Ne pozabite zapreti zanke.
Naprej i
5. Nazadnje prikažemo denar, ki ga je še treba prejeti. Operater & uporabljamo za združevanje (združevanje) dveh nizov. Čeprav toReceive ni niz, tukaj deluje.
MsgBox "Še prejeti" & toReceive & "dolarji"
6. Makro postavite v ukazni gumb in ga preizkusite.
Rezultat:
