Excel - En cellberäkning

Problem
Lösning
Notera

Problem

Behöver ett program som beräknar summan varje gång jag lägger in en cell ett tal. Till exempel i cell A1 för att ange talet: 1, 1200, 0, 50 och i cell B1 för att beräkna summan av (1, 1200, 50, 50)

Om någon kunde hjälpa mig,

Tack på förhand.

Lösning

Så länge det finns 3 nummer och konfiguration samma

första nummer kommatecken andra nummer kommatecken tredje nummer

då kommer följande makro att få dig resultatet i B1

En formel kan byggas upp men för mig blir det komplicerat.

Makroet är:

 Subtest () Mått j, j1, k, k1, m, m1, nj = InStr (Område ("a1"). Värde, ", ") j1 = Vänster ) k = InStr (j + 1, Range ("A1"). Värde, ", ") k1 = Mid (Område ("A1"). Värde, j + 2, k - 4) m1 = Höger Värden) - k) n = Arbetsbladsfunktion.Sum (j1, k1, m1) 'MsgBox n Område ("B1") = n Slut Sub