Excel - En celleberegning

Utgave
Løsning
Merk

Utgave

Trenger et program som beregner sum hver gang jeg legger inn en celle et tall. For eksempel, i celle A1 for å sette tallet: 1, 1200, 0, 50 og i celle B1 for å beregne summen av (1, 1200, 0, 50)

Hvis noen kunne hjelpe meg,

Takk på forhånd.

Løsning

Så lenge det er 3 tall og konfigurasjon samme

første nummer komma plass andre nummer komma plass tredje nummer

da vil følgende makro få deg resultatet i B1

En formel kan bygges opp, men for meg blir det komplisert.

Makroen er:

 Subtest () Dim j, j1, k, k1, m, m1, nj = InStr (Range ("a1"). Verdi, ", ") j1 = Venstre (Range ("A1"). Verdi, j - 1 ) k = InStr (j + 1, Range ("A1"). Verdi, ", ") k1 = Mid (Range ("A1"). Verdi, j + 2, k - 4) m1 = Høyre A1 "). Verdi, Len (Range (" A1 "). Verdi) - k) n = Arbeidsark.Funksjon.Sum (j1, k1, m1) 'MsgBox n Range (" B1 ") = n End Sub