Di seguito vedremo un programma in Excel VBA che riassume i numeri in base al colore.

Situazione:

Hai lended soldi per due a dodici persone. Alcune persone hanno dato di nuovo (in nero) e alcuni ancora devi soldi (rosso). Volete sapere quanti soldi si continua a ricevere.

Sum by Color in Excel VBA

  1. In primo luogo, si dichiara due variabili di tipo Integer. Un nome ricevere e uno chiamato i. Abbiamo inizializzare la variabile ricevere con un valore 0.

Dim toReceive As Integer, i As

Integer

toReceive = 0

  1. In secondo luogo, iniziamo un ciclo For Next.

For i = 1 To 12

  1. Ora controllare ogni numero e solo se il colore del numero è rosso aggiungiamo il numero per ricevere.

If Cells(i, 1).Font.Color = vbRed Then

toReceive = toReceive + Cells(i, 1).Value

End If

  1. Non dimenticare di chiudere il ciclo.

Next i

  1. Infine, visualizziamo i soldi ancora di ricevere. Usiamo l’operatore & per concatenare (join) due stringhe. Anche se ricevere non è una stringa che lavora qui.

MsgBox "Still to receive " & toReceive & " dollars"

  1. Inserire la macro in un pulsante di comando e testarlo.

Risultato:

Sum by Color Result