Hieronder zullen we kijken naar een programma in Excel VBA Dat telt getallen op kleur op.
Situatie:
Je hebt geld uitgeleend aan twee twaalf mensen. Sommige mensen hebben het teruggegeven (in het zwart) en sommigen zijn je nog geld schuldig (rood). U wilt weten hoeveel geld u nog ontvangt.
1. Eerst declareren we twee variabelen van het type Integer. Een met de naam toReceive en een met de naam i. We initialiseren de variabele toReceive met waarde 0.
Dim toReceive As Integer, i As Integer
om te ontvangen = 0
2. Ten tweede starten we een For Next-lus.
Voor i = 1 tot 12
3. We controleren nu elk nummer en alleen als de kleur van het nummer rood is, voegen we het nummer toe aan Ontvangen.
If Cells(i, 1).Font.Color = vbRed Dan
toReceive = toReceive + Cells(i, 1).Waarde
Stop als
4. Vergeet niet de lus te sluiten.
volgende i
5. Ten slotte tonen we het nog te ontvangen geld. We gebruiken de operator & om twee strings samen te voegen (samen te voegen). Hoewel toReceive geen string is, werkt het hier wel.
MsgBox "Nog te ontvangen" & teOntvangen & "dollars"
6. Plaats uw macro in een opdrachtknop en test deze.
Resultaat:
