Excel - yhden solun laskenta

Ongelma
Ratkaisu
Huomautus

Ongelma

Tarvitsetko ohjelman, joka laskee summan joka kerta, kun laitan yhden solun numeroon. Esimerkiksi solussa A1 asetetaan numero 1, 1200, 0, 50 ja soluun B1 laskettaessa summa (1, 1200, 0, 50)

Jos joku voisi auttaa minua,

Kiitos jo etukäteen.

Ratkaisu

Niin kauan kuin 3 numeroa ja konfiguraatiota on sama

ensimmäinen numero pilkkuavaruuden toinen numero pilku-avaruuden kolmas numero

sitten seuraava makro saa sinut tulokseen B1

Kaava voidaan rakentaa, mutta minulle se on monimutkainen.

Makro on:

 Sub-testi () Dim j, j1, k, k1, m, m1, nj = InStr (alue ("a1"). Arvo, ", " j1 = vasen (alue ("A1"). Arvo, j - 1 ) k = InStr (j + 1, Range ("A1"). Arvo, ", " k1 = Keski (alue ("A1"). Arvo, j + 2, k - 4) m1 = Oikea (alue (" Arvo "Len" (Alue ("A1"). Arvo) - k) n = WorksheetFunction.Sum (j1, k1, m1) 'MsgBox n Alue ("B1") = n End Sub