Single declaratie met Format

[DutchOirs]

Goedenavond allen,

Zit met een vraag:

Als men een variabele wilt declareren doe je dit middels de "Dim" functie

Een getal met 2 decimale achter de komma declareer je met een single.

Loop ik tegen het probleem op dat als het bedrag bv. 125,00 is er alleen niets achter de komma wordt neergezet.

Normaal kan men dit oplossen met Format, maar dit gaat helaas niet op voor getallen die gedimensioneerd zijn als een Single.

Wil graag dat het er netjes uitziet dus bedrag zou dan 125,00 moeten worden.

Kom hier ff niet uit. Heeft iemand hier een oplossing voor.

Many thanks already.

Vr. Gr.

Dutch

 

[edmoor]

Zoiets:

Dim Getal As Single
Getal = 125
[A1] = Getal
[A1].NumberFormat = "0.00"

 

[DutchOirs]

Hoi Edmoor,

Had:

Dim getal as single

Getal = 7,25
Wordt nu in een textbox als 7,25 neergezet

Getal wordt nu 7,00 zet dan in de textbox 7 neer

Vervolgens als ik Getal = Format(Getal, "0.00) gebruik gaat ie de fout in omdat het een single is???

Heb nu iets gevonden op : http://www.h2o-betterwin.nl/know-how/tutorials/vba-variabelen-declareren/#type alwaar men zegt dat je het moet declareren als variant en vervolgens met CDEC.

Ben er mee aan het stoeien en het werkt, maar wel omslachtig

 

[edmoor]

Dit zal al een compiler error geven:
Getal = Format(Getal, "0.00)

Maak er dit van:
TextBox1.Text = Format(Getal, "#0.00")

 

[snb]

Vergeet dat declareren. Dat levert alleen maar verwarring op.

Gebruik F1 in de VBEditor en de msgbox om wijzer te worden:

Sub M_snb()
    MsgBox Format(7)
    MsgBox Format(7.12)
    MsgBox Format(7, "@")
    MsgBox Format(7, "0")
    MsgBox Format(7, "0.0")
    MsgBox Format(7, "0.00")
    MsgBox Format(7, "00.00")
    MsgBox Format(7, "000.00")
    MsgBox Format(7, "#.##")
    MsgBox Format(7, "#0.00")
End Sub

 

[DutchOirs]

Edmoor & snb bedankt voor het meedenken.

Heb geheel aangepast zodat de waarde appart staat in een aparte TextBox
Stond eerst nog wat tekst voor, gaf alleen problemen.

Nu kan ik de TextBox Format geven ipv. de variabele..

Many Thanks
Vr. Gr.
Dutch