Abaixo, veremos um programa em Excel VBA que soma os números por cor.
Situação:
Você emprestou dinheiro a duas doze pessoas. Algumas pessoas o devolveram (em preto) e algumas ainda devem dinheiro a você (em vermelho). Você quer saber quanto dinheiro ainda recebe.
1. Primeiro, declaramos duas variáveis do tipo Integer. Um denominado toReceive e outro denominado i. Inicializamos a variável toReceive com valor 0.
Dim toReceive As Integer, i As Integer
toReceive = 0
2. Em segundo lugar, iniciamos um loop For Next.
Para i = 1 a 12
3. Agora verificamos cada número e apenas se a cor do número for vermelha, adicionamos o número a Receber.
If Cells (i, 1) .Font.Color = vbRed Then
toReceive = toReceive + Células (i, 1) .Valor
Fim se
4. Não se esqueça de fechar o loop.
Proximo eu
5. Finalmente, exibimos o dinheiro ainda a receber. Usamos o operador & para concatenar (juntar) duas strings. Embora toReceive não seja uma string, ele funciona aqui.
MsgBox "Ainda a receber" & a receber & "dólares"
6. Coloque sua macro em um botão de comando e teste-a.
Resultado: