Excel - výpočet jedné buňky

Problém
Řešení
Poznámka

Problém

Potřebujete program, který spočítá součet pokaždé, když vložím číslo do jedné buňky. Například v buňce A1 umístit číslo: 1, 1200, 0, 50 a v buňce B1 vypočítat součet (1, 1200, 0.50)

Kdyby mi někdo mohl pomoci,

Děkuji předem.

Řešení

Dokud jsou 3 čísla a konfigurace stejná

první číslo čárka mezera druhé číslo čárka mezera třetí číslo

pak následující makro vám přinese výsledek v B1

Vzorec lze vytvořit, ale pro mě to bude složité.

Makro je:

 Subtest () Dim j, j1, k, k1, m, m1, nj = InStr (rozsah ("a1"). Hodnota, ", ") j1 = Vlevo (rozsah ("A1"). Hodnota, j - 1 ) k = InStr (j + 1, rozsah ("A1"). Hodnota, ", ") k1 = střední (rozsah ("A1"). Hodnota, j + 2, k - 4) m1 = vpravo (rozsah (" A1, ) Hodnota, Len (Rozsah ("A1"). Hodnota) - k) n = WorksheetFunction.Sum (j1, k1, m1) 'Rozsah MsgBox n ("B1") = n Konec Sub