Pomoč pri izdelavi makrov
BJ
Prispevkov: 170 Pridružen: Sr Okt 26, 2005 5:46 pm
Odgovor
Napisal/-a BJ » Sr Sep 05, 2007 1:58 pm
En lep pozdrav!
V TextBox vnesem neko število (znesek v SIT). S klikom na ukazni gumb pa naj bi se to število v TextBoxu delilo s tečajem Eura (npr.: 239,64). Rezultat naj bi bil viden v TextBox- u.
Hvala!
LPB!
admin
Site Admin
Prispevkov: 3692 Pridružen: Sr Jul 20, 2005 10:06 pm
Odgovor
Napisal/-a admin » Sr Sep 05, 2007 2:02 pm
Koda: Izberi vse
TextBox1.Text = CStr(CDbl(TextBox1.Text) / 239.64))
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170 Pridružen: Sr Okt 26, 2005 5:46 pm
Odgovor
Napisal/-a BJ » Sr Sep 05, 2007 2:28 pm
Super ekspres odgovor. Vendar oćitno nekaj manjka. Javi napako "Expected:End of statement". Moja koda izgleda tekole:
Koda: Izberi vse
Private Sub cmdEuro_Click()
TextBox1.Text = CStr(CDbl(TextBox1.Text) / 239.64))
End Sub
admin
Site Admin
Prispevkov: 3692 Pridružen: Sr Jul 20, 2005 10:06 pm
Odgovor
Napisal/-a admin » Sr Sep 05, 2007 2:31 pm
En zaklepaj je preveč.
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170 Pridružen: Sr Okt 26, 2005 5:46 pm
Odgovor
Napisal/-a BJ » Sr Sep 05, 2007 2:49 pm
Najlepša hvala! Res ekspress Help!
B
BJ
Prispevkov: 170 Pridružen: Sr Okt 26, 2005 5:46 pm
Odgovor
Napisal/-a BJ » Sr Sep 05, 2007 3:33 pm
Še ena težavica. Preveč decimalnih mest. Potreboval bi samo 2,
Hvala
admin
Site Admin
Prispevkov: 3692 Pridružen: Sr Jul 20, 2005 10:06 pm
Odgovor
Napisal/-a admin » Sr Sep 05, 2007 5:18 pm
Koda: Izberi vse
TextBox1.Text = CStr(Round(CDbl(TextBox1.Text) / 239.64, 2))
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170 Pridružen: Sr Okt 26, 2005 5:46 pm
Odgovor
Napisal/-a BJ » Če Sep 06, 2007 6:24 am
Hvala!
LPB
Zadnjič spremenil
BJ , dne Ne Sep 09, 2007 7:40 am, skupaj popravljeno 1 krat.
BJ
Prispevkov: 170 Pridružen: Sr Okt 26, 2005 5:46 pm
Odgovor
Napisal/-a BJ » Ne Sep 09, 2007 7:40 am
Še eno vprašanje imam: Kakšen stavek bi bil potreben, da bi v TextBox-u zapis izgledal v obliki "#,##0.00", torej kot število z loćili za tisočice.
Ali bo potem, ko zapis prenesem v izbrano celico (ki ima obliko določeno z ločili) imel enako obliko?
admin
Site Admin
Prispevkov: 3692 Pridružen: Sr Jul 20, 2005 10:06 pm
Odgovor
Napisal/-a admin » Po Sep 10, 2007 7:10 am
Koda: Izberi vse
TextBox1.Text = format(Round(CDbl(TextBox1.Text) / 239.64, 2), "#,##0.00")
Kar pa se tiče oblikovanja znotraj celice, pa morate v celico vpisati rezultat, oblikovanje pa je odvisno od celice; zatorej:
Koda: Izberi vse
Range("a1").Value = CDbl(TextBox1.Text) / 239.64
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170 Pridružen: Sr Okt 26, 2005 5:46 pm
Odgovor
Napisal/-a BJ » Po Sep 10, 2007 7:57 am
Najlepša hvala!
LPB