[Excel] Sabiranje iz tekstualnog izraza

[ BrackoNe @ 10.03.2007. 16:03 ] @

Nerviram se jer ne mogu da u nekoj ćeliji npr. A1 gde piše 34+32 da to saberem u ćeliji npr. A2...
Zna li neko kako to da rešim?!
Gledao sam teme po forumu i video sam temu sa fudbalskim rezultatima, pa sam pokušao sa left(a1;find(a1;"+")+right(a1), ali nisam uspo...
Može li pomoć?!

[ Jpeca @ 10.03.2007. 17:28 ] @

Kad kreiraš komplikovanije formule bolje da ih radiš deo po deo, pre nego što formiraš kompletnu i konačnu formulu.

Npr. deo tvoje formule find(a1;"+") prijavljuje grešku, a FIND("+";A1) daje 3 - to je pozicija na kojoj se u nizu znakova "34+32" nalazi znak +. Zbog toga će LEFT(a1;find("+";a1)) isto što i LEFT(A1,3) i daje tekst "34+" umesto samo 34!
Drugi deo formule mi nije jasan jer RIGHT(A1) će uvek vratiti samo jedan poslednji karakter. U navedenom primeru tvoj broj je dvocifren?
Ako su brojevi uvek dvocifreni (ili jednocifreni zameni 2 sa 1) onda ti find i ne treba nego:

Code:
=LEFT(A1;2)+RIGHT(A1;2)

Ako to nije slučaj formuli moraš dodati find:

Code:
=LEFT(A1;FIND("+";A1)-1)+RIGHT(A1;LEN(A1)-FIND("+";A1))

[ BrackoNe @ 11.03.2007. 09:35 ] @

E a kada bi bile tri cifre, stavio(J)o sam za srednji član ovako:

Code:
MID(E2;LEN(E2)-FIND("+";E2);LEN(E2)-LEN(RIGHT(E2;LEN(E2)-FIND("+";E2)+1))))

i to fino radi, ako su svi brojevi dvocifreni ili ako su svi brojevi jednocifreni, a ako se desi da je prvi dvocifren, a taj srednji jednocifren, imam grešku jer povuče i znak plus za sabiranje... Može li to kako da se ispravi..?

[ Brz_na_tastaturi @ 11.03.2007. 13:41 ] @

Možda ovako

MID(E2;LEN(E2)-FIND("+";E2)-1;LEN(E2)-LEN(RIGHT(E2;LEN(E2)-FIND("+";E2)+1)))

mada se meni čini da ti tu nešto nepotrebno komplikuješ.
Možeš li da zakačiš fajl sa primerom?

[ BrackoNe @ 11.03.2007. 15:10 ] @

Evo uploadovao sam na rapid, jer ne znam ovde...
nalaze se ovde dva fajla pošto sam radio u Ofisu '07...

File Desktop.rar (48 KB)
http://rapidshare.com/files/20511650/Desktop.Engleski.Help.rar

[ Brz_na_tastaturi @ 11.03.2007. 22:57 ] @

Ovo COUNTA("+";E2) ne može da se koristi tako kako ti pukušavaš (ili bar ne onako kako ja mislim da ti pokušavaš), koliko je meni poznato ne postoji excel funkcija koja prebrojava koliko se puta neki znak ponavlja u jednoj ćeliji jer to bi ti rešilo problem.
Jer u tvom slučaju je problem ima li u celiji ima dva ili tri sabirka, ako su uvek 3 sabirka (bez razlike da li je neki od njih dvocifren ili jednocifren) onda mislim da to moze da se reši 'kobasičastom' formulom (a bilo bi mnogo jednostavnije upotrebom pomoćnih kolona).

[ Jpeca @ 12.03.2007. 08:06 ] @

Problem se može rešiti uz dosta truda korišćenjem ćelija u kojima bi računao pomoćne vrednosti (prvo pojavljivanje znaka +, drugo pojavljivanje znaka + itd), pa na osnovu toga "isecao" parče po parče teksta i pravio formulu.
Druga varijanta je da napišeš korisničku funkciju koja će to da odradi:

Code:

Function Calculate(cl As Range) As Double
  Dim s1 As Single, s2   As Single
  Dim sum As Double
  s1 = 1
  Calculate = 0
  Do While True
     s2 = InStr(s1, cl.Text, "+", vbTextCompare) ' trazi znak + unutar teksta celije
     If s2 > 0 Then
        Calculate = Calculate + Val(Mid(cl.Text, s1, s2 - s1))
        s1 = s2 + 1
     Else
        Calculate = Calculate + Val(Right(cl.Text, Len(cl.Text) - s1 + 1))
        Exit Do
     End If
  Loop
End Function

Ustvari i sam koristim neku takvu radnu tabelu sa evidenciju i ocenjivanje ali je svaki domaci (seminarski) pišem u posebnu kolonu. To je mnogo lakše, a ako ti treba za štampu lako je da spojiš u tekstualni string 33+34+...

[ kajtel @ 17.05.2012. 05:40 ] @

cesto imam slucaj da u jednoj celiji moram da ispisem nacin kako je nesto racunato npr, A1 1*((3*2+2)*2+(4*2+1,8)*2
a drugoj da zaista to izracunam npr.B1 =1*((3*2+2)*2+(4*2+1,8)*2, da li je moguce da se vrednost iz A1 poveze sa B1 tako da izmene koje pravim u A1 automatski prebacuju u B1, jer to sada radim peske, ako u B1 stavim =A1 on ne prepoznaje da treba da uradi racunske operacije nego uradi ispis iz pozicije A1, kao da je rec od tekstu.

[ FOX028 @ 17.05.2012. 06:39 ] @

Imao sam slican problem, kada sam hteo da napravim jednostavan calkulator i izguglao ovo resenje. Potrebno je malo programiranja u VBA, kada otvoris Excel stisnes Alt+F11 videces Module Funkcija i u njemu kod, a prethodno je potrebno da aktiviras referencu na Tools=>References=>Microsoft Scripting Control 1.0, ako je nemas skini je sa sledeceg linka

http://www.microsoft.com/en-us/download/details.aspx?id=1949

u jednoj celiji upisujes izraz a u drugoj pises funkciju =Racunaj(celija u kojoj ti je izraz)

[ 3okc @ 17.05.2012. 07:04 ] @

U VBA već postoji funkcija Evaluate tako da je suvišno ovo referenciranje.

Code:

Private Function Sracunaj(Izraz As String) As Double
Sracunaj = Application.Evaluate(Izraz)
End Function

[ FOX028 @ 17.05.2012. 07:10 ] @

Nisam toliko istrazivao u Excelu ja sam prethodni primer koristio za Access, ali u svakom slucaju hvala na informaciji mozda ce i meni biti potrebna.