Excel - En celleberegning

Problem
Opløsning
Bemærk

Problem

Har brug for et program, der beregner sum hver gang jeg sætter i en celle et nummer. For eksempel i celle A1 for at sætte tallet: 1, 1200, 0, 50 og i celle B1 for at beregne summen af (1.1200, 0.50)

Hvis nogen kunne hjælpe mig,

Tak på forhånd.

Opløsning

Så længe der er 3 tal og konfiguration samme

første nummer komma plads andet nummer komma plads tredje nummer

så får du følgende resultat i B1

En formel kan opbygges, men for mig bliver det kompliceret.

Makroen er:

 Subtest () Dim j, j1, k, k1, m, m1, nj = InStr (Område ("a1"). Værdi, ", ") j1 = Venstre (Range ("A1"). Værdi, j - 1 ) k = InStr (j + 1, Range ("A1"). Værdi, "" "k1 = Mid (Range (" A1 "). Værdi, j + 2, k - 4) m1 = Højre A1 "). Værdi, Len (Range (" A1 "). Værdi) - k) n = Arbejdsarksfunktion.Sum (j1, k1, m1) 'MsgBox n Område (" B1 ") = n Slut Sub