getalnotatie kassa

[Spiesse]

goedenamiddag forumgangers,

hoe bekom ik het volgende:

als ik 1 typ in een textbox van een userform, dat er automatisch 1,00 verschijnt.
als ik 1050 typ, dat er automatisch 10,50 verschijnt

ik wil proberen om een kassasysteem te 'versnellen'

groeten,
spiesse

 

[hoogteijling]

Private Sub TextBox1_LostFocus()
TextBox1.Value = Format(TextBox1.Value, "0.00")
End Sub

Groeten Marcel

 

[Spiesse]

hoi marcel,

ik bekijk dit zeker eens. het is geen noodzaak maar zou het wel leuk maken voor mijn bestand in wording

 

[hoogteijling]

Hierbij een voorbeeldje en mijn eerder antwoord(en) heb ik aangepast/verwijderd zodat het duidelijker is.
Bekijk bijlage Notatie.xlsm

Groeten Marcel

 

[Spiesse]

nog niet helemaal, ofwel ben ik verkeerd

als ik 350 typ, zou ik 3.50 willen zien...

lukt dit?

 

[hoogteijling]

Dan zou er iets in de code moeten komen te staan wanneer het rechtse getal een 0 is dat er dan ,50 komt te staan.
Iemand anders met meer VBA kennis heeft dat zo voor elkaar maar voor mij is dat te lastig.

Groeten Marcel

 

[popipipo]

Hier staat juist de omgekeerde vraag.
http://www.helpmij.nl/forum/showthr...automatisch-getal-quot-2-achter-de-komma-quot
Ik heb een formulier die ik regelmatig gebruikt.
Nu ineens maakt hij, automatisch, als ik getal invoer een getal met 2 decimalen van.
Dus 2 wordt 0,02
Celeigenschappen staan op getal.
Wat zal dat kunnen zijn?

Ps dit juist toe op jou vraag.

 

[snb]

Private Sub TextBox1_LostFocus()
      TextBox1.Value = FormatCurrency(TextBox1.Value)
End Sub

 

[Spiesse]

goedemorgen SNB,

uw regel voegt het € teken toe aan de textbox, maar ik ben er nog niet... wordt lastig vermoed ik...

stel: ik ontvang van iemand 3,35 €. Als ik 335 intik zou ik 3,35 € willen zien staan...

mijn hoop is groot

 

[snb]

Natuurlijk had je deze zelf al getest...

Private Sub TextBox1_LostFocus()
    TextBox1.Value = FormatCurrency(TextBox1.Value / 100)
End Sub

 

[Spiesse]

tuurlijk had ik deze al getest euh not... man man, niet ingezien dat het so easy was...

Ik kan hier mee verder

thx again!

deze gaat op slot