anoniem Geplaatst: 7 maart 2002 Delen Geplaatst: 7 maart 2002 Heeft iemand een idee hoe ik de invoer in tekstvakken op mijn formulier kan beperken (dus zonder achteraf te evalueren)? Ik wil dat er alleen maar getallen (tussen 0 en 100) ingevoerd kunnen worden. Ik dacht aan het gebruik van 'Onkey', maar dat werkt niet binnen formulieren. Verder zou ik graag willen weten of het mogelijk is om lijnen en rechthoeken op een formulier te trekken/plaatsen zonder 'groepsvak' te hoeven gebruiken. Quote Link naar reactie
anoniem Geplaatst: 8 maart 2002 Auteur Delen Geplaatst: 8 maart 2002 Ik gebruik in WORD de volgende code. Volgens mij moet dit in EXCEL ook wel kunnen. ' voor het tekstvak Private Sub tekstvak_keypress(ByVal keyascii As MSForms.ReturnInteger) ' controle op geldige invoer. Dit gaat per karakter If geengetal(keyascii) Then SendKeys "{BACKSPACE}" End If End Sub Private Function geengetal(ByVal keyascii As Long) As Boolean ' procedure die op getalkarakter controleert If (keyascii < 48 Or keyascii > 57) Then MsgBox "U dient een getal in te toetsen.", vbInformation, "" geengetal = True End If End Function Quote Link naar reactie
anoniem Geplaatst: 9 maart 2002 Auteur Delen Geplaatst: 9 maart 2002 Door de waarde keyascii op nul te zetten kan de invoer ook beperkt worden Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Val(TextBox1.Text + Chr(KeyAscii)) > 100 Then KeyAscii = 0 End If End Sub Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen