Excel - Изчисление на една клетка

Проблем
Решение
Забележка

Проблем

Нуждаете се от програма, която изчислява сумата всеки път, когато сложа номер в една клетка. Например в клетка A1 се поставя числото: 1, 1200, 0.50 и в клетка B1 за изчисляване на сумата от (1, 1200, 0.50)

Ако някой може да ми помогне,

Благодаря ви предварително.

Решение

Докато има 3 числа и конфигурация същите

първи номер запетая пространство второ число запетая пространство трето число

след това следващият макрос ще ви даде резултат в B1

Може да се изгради формула, но за мен тя ще бъде сложна.

Макросът е:

 Подпроба () Dim j, j1, k, k1, m, m1, nj = InStr (Обхват ("a1"). Стойност ", ") j1 = Ляво (Обхват ("A1"). Стойност, j - 1 ) k = InStr (j + 1, Обхват ("A1"). Стойност ", ") k1 = Mid (Обхват ("A1"). Стойност, j + 2, k - 4) m1 = Дясно (Обхват (" Стойност, Лен (Обхват ("A1"). Стойност) - k) n = Работна таблицаFunction.Sum (j1, k1, m1) 'Обхват на MsgBox n ("B1") = n Край Sub