Excel-VBA-formulieren

[anoniem]

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.

[anoniem]

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

[anoniem]

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