Excel - um cálculo de célula

Questão
Solução
Nota

Questão

Precisa de um programa que calcule soma toda vez que eu colocar em uma célula um número. Por exemplo, na célula A1 para colocar o número: 1, 1200, 0, 50 e na célula B1 para calcular a soma de (1, 1200, 0.50)

Se alguém pudesse me ajudar,

Agradeço antecipadamente.

Solução

Contanto que haja 3 números e configuração iguais

primeiro número espaço de vírgula segundo número vírgula espaço terceiro número

então a macro a seguir você obterá o resultado em B1

Uma fórmula pode ser construída, mas para mim será complicada.

A macro é:

 Subteste () Dim j, j1, k, k1, m, m1, nj = InStr (Faixa ("a1"). Valor, ", ") j1 = Esquerda (Faixa ("A1"). Valor, j - 1 ) k = InStr (j + 1, Faixa ("A1"). Valor, ", ") k1 = Médio (Faixa ("A1"). Valor, j + 2, k - 4) m1 = Direita (Range (" A1 "). Valor, Len (Range (" A1 "). Valor) - k) n = WorksheetFunction.Sum (j1, k1, m1) 'MsgBox n Faixa (" B1 ") = n End Sub