Excel 2007

dakle treba mi pomoć za sabiranje po principu a+b=b

dakle da a kad se sabere sa b daje rezultat koji je smješten u varijablu b

iko?

Ne mogu nikako skuziti sta hoces. Kako mislis da je smjesten u varijablu b?

Hmm, da sada kuzim sta je htio, ali kako kazes to je nemoguce, u biti to onda ispada, i kad bi se uspjelo nekako uraditi, beskonacna petlja.

E ovako...

zamislite sad neku prodavnicu, ta prodavnica ima potrebu da vodi invertar...

i ima 2 kolone, ulaz i stanje...

kada se u ulaz unese neka vrijednost stanje se poveca za tu vrijednost...

dakle

ulaz=0 stanje=0 pa slijedi

ulaz=3 -> stanje=3 dalje

ulaz=2 -> stanje=5 dalje

ulaz=4 -> stanje=9 itd...

shvatate?

dakle a je ulaz a b je stanje i po tome a+b=b' zatim a+b'=b'' gdje su b,b',b'' jedna te ista varijabla b...

nadam se da sam razjasnio sta me interesuje... 

e tako reci... ti zelis nekome sloziti skladiste! to ti je klasični problem koji se NE rješava u Excelu!

moraš koristiti relacijsku bazu (pa makar i Access)!!!!

onda imaš nekoliko tablica koje se povežu relacijama i stvar radi, ali ovako u Excelu.. NE!!!

ako si nekome zelio na brzinu pokupiti pare onda si se zeznuo, a ako ti je to neki kompic uvalio za svoju firmu onda mu reci neka kupi pravi software za upravljanje skladištem.

ja sam ti odmah napisao... a+b=b, akko a=0. to ti je cista algebra!

ovo sto si ti zadnje napisao te vodi do konstantne cirkularne greške, jer bi se Excel stalno vrtio u krug... to bi se dalo "rijesiti" da u opcijama excela stavis da je max broj iteracija konacna varijabla (npr. 5), ali to i dalje nije pravo rješenje za skladište.

@magicmist

to i nije rješenje za problem slaganja relacijske baze u Excelu....

Ako je za takve primjene, onda je Excel sasvim OK.

Imam jedan takav .xls primjer, pošalji mi u privatnoj poruci svoj e-mail pa ti ga pošaljem.

Nema takve formule, ali je možeš napraviti.

How to convert a numeric value into English words in Excel 

Ukratko:

Kada si u Excelu pritisni Alt+F11 kako bi pokrenuo Visual Basic Editor.

U novom prozoru klikni na insert->Module i zalijepi potom ovaj tekst:

Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert cents and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumber = Dollars & Cents
End Function

' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function

Engleske riječi možeš zamijeniti hrvatskim i prilagoditi još nešto ako ti treba (npr. izbaciti da ti piše "Dollars" i "Cents").

Možeš zatvoriti ovaj prozor od Visual Basic Editora i potom koristiti formulu =SpellNumber(neki_broj) za prevođenje brojeva u riječi.

Ova formula će raditi samo u ovom dokumentu, a dokument ćeš trebati spremiti kao "Excel Macro-Enabled Workbook".

imati će, vjerojatno, problema sa padežima/jednina i množina...

;-)

@Aron

kako misliš riješiti problem cirkularne reference, tj. kontinuiranog pračenja stanja na skladištu?

i još je i problem sa redunancijom podataka. iskreno, ne vidim kako to jednostavno riješiš bez relacijske baze?

Hmm, da - ceka me prepravljanje za hr verziju... Majke ti mile, tek sad vidim kolko tu posla ima...

pozdrav svima  potrebna mi je  pomoc oko IF funkcije  Tacnije logicki tes 

a zadatak  je :

[img]http://img27.imageshack.us/img27/7761/2861.png[img]

 Unaprijed hvala 

hvala  prijatelju 

Makronaredbe mi na jednom računalu rade a na drugom ne!?

Postavke makronaredbi su postavljene identične.

Kod ovog računala na komu ne radi javlja:

Sigurnosno upozorenje

Ova datoteka sadrži šifrirane makronaredbe koje su onemogućene jer nije instaliran

protuvirusni softver koji bi ih mogao skenirati. Za pokretanje ovih makronaredbi s

datoteke uklonite šifriranje ili ograničenje dozvola.

Put do datoteke:  C:\Users... \AA.xlsm

o  Pomoć u zaštiti od nepoznatog sadržaja (preporučeno)

Hvala unaprijed!

Ako znate neki program kojim ću moći automatski prebaciti sa Nokie ili nekog Androida dio nekog SMS-a (zapravo se radi o više Sms-a) u Excel 2007...Hitno mi je..... 

To sam već prije probavao i ne radi:

Click the Microsoft Office Button image, and then click Excel Options.

Click Trust Center, click Trust Center Settings, and then click Macro Settings.

Enable all macros

spremio i izašao pa ponovno otvorio file. I ništa.

Kada u izborniku izaberem Macros, ne da mi mogučnost da ih Editiram ili Brišem. Između imena filea i broja makronaredbe ubaci npr, Modul1 ili Modul2. ('Knjiga.xlsm'!Module1.Makronaredba1)

A na drugom PC-u na kom rade makroi, mogu ih editirat, brisat i nema Module1.

Bok forumasi...

imam pitance za sad jedno xD

neznam gdje bi mogao pronaci neki softver ili nesto sto bi pomoglo jednoj udruzi bez novaca :) da sortira svoje knjige.

znaci trebalo bi mi ovako nesto : šifra knjige 0000/1 ,0000/2,0000/100.....

                                                 ime knjige  petar pan

                                                 i sad mogucnost toga u bar kodu

znam da ce te mi reci kupi softver od neke firme,ali nema se novaca za to.

pa u koliko netko moze pomoci jedino sto mogu reci je HVALA.