Di seguito vedremo un programma in Excel VBA Quello somma i numeri per colore.
Situazione:
Hai prestato soldi a due dodici persone. Alcune persone lo hanno restituito (in nero) e alcuni ti devono ancora dei soldi (in rosso). Vuoi sapere quanti soldi ricevi ancora.
1. Innanzitutto, dichiariamo due variabili di tipo Integer. Uno chiamato per ricevere e uno chiamato i. Inizializziamo la variabile toReceive con valore 0.
Dim toReceive As Integer, i As Integer
ricevere = 0
2. In secondo luogo, avviamo un ciclo For Next.
Per i = da 1 a 12
3. Ora controlliamo ogni numero e solo se il colore del numero è rosso aggiungiamo il numero a Ricevi.
If Cells(i, 1).Font.Color = vbRed Then
toReceive = toReceive + Cells(i, 1).Value
Finisci se
4. Non dimenticare di chiudere il ciclo.
Avanti io
5. Infine, mostriamo i soldi ancora da ricevere. Usiamo l'operatore & per concatenare (unire) due stringhe. Sebbene toReceive non sia una stringa, qui funziona.
MsgBox "Ancora da ricevere " & per ricevere & " dollari"
6. Inserire la macro in un pulsante di comando e verificarlo.
Risultato: