Format Textbox

[allard1]

Vrienden,

Ik heb even wat heen en weer gegoogled en wat op helpmij gezocht. Ik weet inmiddels hoe ik een textbox een bepaalde format kan geven zodat deze de juiste notatie gaat hanteren. Dit doe ik middels de volgende code:

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1.Value, "###,##%")
End Sub

Het enige wat nu gebeurd is dat er direct een % teken verschijnt (ja dit wil ik ook ) Maar direct verplaatst de cursor naar het eind van de reeks en vult hij alles aan. M.a.w als ik bijvoor beeld 1 intoets dan verschijnt er direct 100% en de cursor staat direct daarna
100%<--op deze plek......wat doe ik fout. Wat ik wil is dat je gewoon eerst je gehele getal kan intoetsen.

Voor de liefhebbers een bijlage

Ik hoop dat iemand mij kan helpen.

Groet,
Allard :thumb:

 

[Wigi]

Je kan een Exit statement gebruiken: de notatie wordt toegepast als je uit de Textbox bent:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1.Value, "###,##%")
End Sub

Wigi

 

[allard1]

Je kan een Exit statement gebruiken: de notatie wordt toegepast als je uit de Textbox bent:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1.Value, "###,##%")
End Sub

Wigi

Wigi,

Volgens mij is dit het goeie pad. Alleen gebeurt er toch iets vreemds. Als ik in 100 intik dan wordt er in de textbox 10.000% ingetikt. Tik ik 1000 in dan wordt 100.000%. Heb jij een idee wat er mis kan gaan ?

 

[Wigi]

Aangezien 1 gelijk staat aan 100%, staat 100 gelijk aan 100*100% = 10000%.

 

[allard1]

Aangezien 1 gelijk staat aan 100%, staat 100 gelijk aan 100*100% = 10000%.

:shocked: Ja precies. dat is hetgeen dat er gebeurd...............Dit is een cryptische tip volgens mij Maar ik moet voor elkaar zien te krijgen dat wat ik vul ook daadwerkelijk de waarde wordt 100 is 100% en verder geen nieuws Maar dat is denk ik te moeilijk.

 

[Wigi]

Te moeilijk :shocked:

TextBox1 = Format(TextBox1.Value[B]/100[/B], "###,##%")

 

[allard1]

Te moeilijk :shocked:

TextBox1 = Format(TextBox1.Value[B]/100[/B], "###,##%")

Ja te moeilijk.....het spijt me. Maar ja ik ben ook geen wiskundige of econoom :thumb: Toch bedankt voor je hulp want hij werkt..............Bijna...Nu rond hij alles af na de komma. m.a.w. als ik 85,5 intik dan wordt het 86%...........moet ik iets tussen haakjes zetten. Want 100,00 in de formule werkt niet natuurlijk.....

 

[Wigi]

Dit is het simpelste:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1 = Round(TextBox1.Value, 2) & "%"
End Sub

Wigi

 

[allard1]

Dit is het simpelste:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1 = Round(TextBox1.Value, 2) & "%"
End Sub

Wigi

Ik vind het toch bijzonder hoe zo´n vbacode evolueert naar een geheel andere code die wel dezelfde functie heeft....................... Hij werkt Wigi....Bedankt. Dan ga ik mij nu toch zo´´n boek aanschaffen dat jij in eerdere post al eens hebt aanbevolen

Wigi hij werkt verder prima. Alleen als ik de cel selecteer en vervolgens met een pijltoetsomhoog verder ga, krijg ik een foutmeldig...Voor mij een onbekende dat de type niet overeenkomt

 

[Wigi]

Ik vind het toch bijzonder hoe zo´n vbacode evolueert naar een geheel andere code die wel dezelfde functie heeft....................... Hij werkt Wigi....Bedankt. Dan ga ik mij nu toch zo´´n boek aanschaffen dat jij in eerdere post al eens hebt aanbevolen

En neem er de tijd voor om er veel uit te halen. Dit wil niet zeggen dat ik je wegstuur, verre van, maar zulke boeken hebben duidelijk meer waarde hoe meer tijd je er zelf in stopt.

Succes ermee.

Wigi