< návrat zpět
MS Excel
Téma: sčítanie bunky 
Zaslal/a bekes14 13.12.2010 22:11
Ahojte, potreboval by som poradit ako scitat hodnoty v jednej bunke napr. 2+3+4+5 a vysledok bude v inej bunke. Viem to scitat ak tuto bunku skopirujem do bunky kde ma byt vysledok a dam pred vsetky cislice =2+3+4+5. Potrebujem to, len takto - nie je mozne mat hodnoty skryte, pripadne pod sebou.
Ukazka je v prilohe...
Dakujem
Příloha:
3504_sucet.rar (7kB, staženo 32x)
Vasey(23.12.2010 19:34)#003597 
aha, tak zkus fci >>
Function secti3(i)
Dim Text1 As String
Dim Start As Integer
Dim PozicePlus As Integer
Start = 1
Text1 = Replace(i, " ", "")
PozicePlus = InStr(Start, Text1, "+")
Do While PozicePlus > 0
secti3 = Val(Mid(Text1, Start, PozicePlus - Start)) + secti3
Start = PozicePlus + 1
PozicePlus = InStr(Start, Text1, "+")
Loop
secti3 = Val(Mid(Text1, Start, Len(Text1) - Start + 1)) + secti3
End FunctionPříloha:
3597_sucet-funkce.rar (18kB, staženo 27x) citovat
bekes14(26.12.2010 20:43)#003598 
Dakujem pani za pomoc.
Presne toto som potreboval... (Vasey)
citovat