Nedenfor ser vi på et program i Excel VBA at summer tall etter farge.
Situasjon:
Du har lånt ut penger til to tolv personer. Noen har gitt den tilbake (i svart), og noen skylder deg fortsatt penger (rødt). Du vil vite hvor mye penger du fortsatt mottar.
1. Først deklarerer vi to variabler av typen Heltall. En som heter toReceive og en som heter i. Vi initialiserer variabelen toReceive med verdien 0.
Dim toReceive As Integer, i As Integer
toReceive = 0
2. For det andre starter vi en For Next loop.
For i = 1 til 12
3. Vi sjekker nå hvert nummer, og bare hvis fargen på nummeret er rød, legger vi nummeret til toReceive.
If Cells (i, 1) .Font.Color = vbRed Then
toReceive = toReceive + Cells (i, 1) .Værdi
Slutt om
4. Ikke glem å lukke sløyfen.
Neste jeg
5. Til slutt viser vi pengene som fortsatt er å motta. Vi bruker operatøren & til å sammenkoble (sammenføye) to strenger. Selv om toReceive ikke er en streng, fungerer det her.
MsgBox "Fortsatt å motta" og å motta og "dollar"
6. Plasser makroen i en kommandoknapp og test den.
Resultat:
