Nedan kommer vi att titta på ett program i Excel VBA det där summerar siffror efter färg.
Situation:
Du har lånat ut pengar till två tolv personer. Vissa människor har gett tillbaka det (i svart) och vissa är fortfarande skyldiga dig pengar (rött). Du vill veta hur mycket pengar du fortfarande får.
1. Först deklarerar vi två variabler av typen Heltal. En som heter toReceive och en som heter i. Vi initierar variabeln toReceive med värde 0.
Dim toReceive As Integer, i As Integer
toReceive = 0
2. För det andra startar vi en For Next loop.
För i = 1 till 12
3. Vi kontrollerar nu varje nummer och bara om siffrans färg är röd lägger vi till numret i toReceive.
If Cells (i, 1) .Font.Color = vbRed Then
toReceive = toReceive + Cells (i, 1) .Värde
Avsluta om
4. Glöm inte att stänga slingan.
Nästa i
5. Slutligen visar vi pengarna som återstår att ta emot. Vi använder operatorn & för att sammanfoga (sammanfoga) två strängar. Även om toReceive inte är en sträng fungerar den här.
MsgBox "Fortfarande att ta emot" och att ta emot & "dollar"
6. Placera ditt makro i en kommandoknapp och testa det.
Resultat:
