Excel - Egy cellás számítás

Probléma
Megoldás
jegyzet

Probléma

Szüksége van egy olyan programra, amely minden alkalommal kiszámítja az összeget, amikor egy cellába helyezek egy számot. Például az A1 cellában az 1, 1200, 0, 50 és a B1 cellában a (1, 1200, 0, 50) összeg kiszámításához

Ha bárki segítene nekem,

Előre is köszönöm.

Megoldás

Mindaddig, amíg 3 szám és konfiguráció azonos

első szám vesszőterület második szám vesszős tér harmadik szám

ekkor a következő makró megkapja az eredményt a B1-ben

Egy képlet felépíthető, de számomra bonyolult lesz.

A makró a következő:

 Sub teszt () Dim j, j1, k, k1, m, m1, nj = InStr (tartomány ("a1"). Érték, ", " j1 = bal (tartomány ("A1"). Érték, j - 1 ) k = InStr (j + 1, tartomány ("A1"). Érték, ", " k1 = közép (tartomány ("A1"). Érték, j + 2, k - 4) m1 = jobb (tartomány (" Érték, Len (tartomány ("A1"). Érték) - k) n = WorksheetFunction.Sum (j1, k1, m1) 'MsgBox n Tartomány ("B1") = n Végsáv