Nedenfor ser vi på et program i Excel VBA at summer tal efter farve.
Situation:
Du har lånt penge til to tolv mennesker. Nogle mennesker har givet det tilbage (i sort), og nogle skylder dig stadig penge (rødt). Du vil vide, hvor mange penge du stadig modtager.
1. For det første erklærer vi to variabler af typen Integer. En navngivet til Modtag og en ved navn i. Vi initialiserer variablen toReceive med værdien 0.
Dim toReceive As Integer, i As Integer
toReceive = 0
2. For det andet starter vi en For Next loop.
For i = 1 til 12
3. Vi kontrollerer nu hvert nummer, og kun hvis nummeret er rødt, tilføjer vi tallet til toReceive.
Hvis celler (i, 1) .Font.Color = vbRed Herefter
toReceive = toReceive + Cells (i, 1) .Værdi
Afslut Hvis
4. Glem ikke at lukke sløjfen.
Næste i
5. Endelig viser vi de penge, der stadig er til at modtage. Vi bruger operatøren & til at sammenkoble (forbinde) to strenge. Selvom toReceive ikke er en streng, fungerer det her.
MsgBox "Stadig at modtage" og at modtage og "dollars"
6. Placer din makro i en kommandoknap, og test den.
Resultat:
