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: rar

3504_sucet.rar (7kB, staženo 32x)

Zaslat odpověď >

Strana: « předchozí 1 2

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 Function

Příloha: rar