[ neptuncokg @ 15.10.2009. 15:08 ] @
Ponovo sam u problemu sa formatima textboxa. U Formi1 imam Textbox2 i TextBox3, ciji proizvod je u TextBoxu4.

Private Sub CommandButton2_Click()
TextBox4.Value = TextBox2.Value * TextBox3.Value
End Sub

Za TextBox4 imam dodeljen format broja sa dve decimale:

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox4.Text = FormatNumber(TextBox4.Text, 2)
End Sub

Medjutim, ako je proizvod okrugli broj (200*30=6000) tako se i upisuje - 6000 (bez ,00).
Ako je prizvod sa 4 decimale onda se tako i upisuje (11.33*12.44=140.9452).
I NIKAKO sa dve decimale. Ne razumem zasto. Probao sam TextBox2 i TextBox3 da formatiram na dve decimale i to se postuje kod unosa, ali samo kad unosim dvocifrene brojeve. Za brojeve sa tri i vise cifara automatski ih deli sa 1000 (npr. unesem 2000, a upise se 2). Definitivno imam problem sa formatiranjemTextBoxova u UserFormu, ali ne znam da ga prevazidjem. Pozdrav
[ mirko1949 @ 16.10.2009. 18:22 ] @
Potrebno ti je jos jedan red u prvom kodu tako da glasi:

Private Sub CommandButton2_Click()
TextBox4.Value = TextBox2.Value * TextBox3.Value
TextBox4 = Format(Val(TextBox3) * Val(TextBox2), "0.00")
End Sub

Evo i prilog
pozdrav
[ neptuncokg @ 16.10.2009. 19:15 ] @
Hvala Mirko, to je to - RADI kako sam hteo. Da li je sustina sto je u dogadjaju CommandButon_click, odnosno da li bi radilo i ako isti kod stavim u ovaj donji dogadjaj. Svakako HVALA na pomoci. Pozdrav
[ mirko1949 @ 16.10.2009. 19:56 ] @
Neznam sto bi bilo pogodnije za donji dogadjaj jer vec imas CommandButton. Probao sam i neradi. Pozdrav
[ neptuncokg @ 16.10.2009. 20:36 ] @
O.K. Svakako hvala. Taj problem sam odavno "vukao" Pozdrav
[ Gix_ @ 16.10.2009. 22:39 ] @
Re,
nekapiram o cemuse radi bas najbolje, bezobzira evo jednog nacina
dase resi problem sa jednom linijom.

Private Sub CommandButton2_Click()
TextBox4.Value = Format(TextBox2 * TextBox3.Value, "#,##0.00")
End Sub

Pozrav za sve
[ neptuncokg @ 16.10.2009. 23:06 ] @
Pozdrav za Lion. Nazalost tvoja verzija ne funkcionise. Odnosno, funkcionise kao i moja prvobitna - samo kad se u Box1 i Box2 unesu dvocifreni brojevi. Za trocifrene i vise, daje rezultat podeljen sa 10000 (300*200=6). Mirkova definitivno RADI.
Hvala na podrsci. Pozdrav.
[ Gix_ @ 17.10.2009. 22:08 ] @
Izvini mozdasam malo dosadan samo nesrazumem sta to neradi kod tebe,
jer kod mene sve funkcionise dvocifreni ili trocifreni sa zarezom ili bez nemam problema.

Mozes napisati i ovako : TextBox4.Value = Format(CDbl(TextBox2) * CDbl(TextBox3.Value), "#,##0.00")

pozdrav
[ neptuncokg @ 17.10.2009. 23:41 ] @
Pozdrav za Lion. RADI i tvoja verzija! Kada sam video fajl koji si okacio, ukapirao sam u cemu je stvar. Meni je Regional options podeseno na "Serbian(latin)". Kad sam prebacio na "English(U.S.)", proradilo je. Eto, ponekad slika govori vise od reci. Hvala na trudu i pozdrav.