Excel - ühe raku arvutamine

Probleem
Lahendus
Märge

Probleem

Vajad programmi, mis arvutab summa iga kord, kui panen ühe lahtrisse numbri. Näiteks lahtris A1 arv: 1, 1200, 0, 50 ja lahtrisse B1, et arvutada summa (1, 1200, 0, 50)

Kui keegi võiks mind aidata,

Ette tänades.

Lahendus

Niikaua kui on 3 numbrit ja konfiguratsiooni

esimene number komaga tühiku teine number komaga ruum kolmas number

siis saadab järgmine makro tulemuseks B1

Valemit saab üles ehitada, kuid minu jaoks on see keeruline.

Makro on:

 Alamtest () Dim j, j1, k, k1, m, m1, nj = InStr (vahemik ("a1"). Väärtus, ", j1 = vasak (vahemik (" A1 "). Väärtus, j - 1 ) k = InStr (j + 1, vahemik ("A1"). Väärtus, ", k1 = keskmine (vahemik (" A1 "). Väärtus, j + 2, k - 4) m1 = parem (vahemik (" Väärtus, Len (vahemik ("A1"). Väärtus) - k) n = WorksheetFunction.Sum (j1, k1, m1) 'MsgBox n Range ("B1") = n Lõpeta alam