Key Code ?

[DaveUK]

Can someone please tell me the key codes for the numeric keys 0 - 9.

Ideally a link to a list would be ideal but if not just the codes for key 0-9.


Many thanks

 

[Norie]

What do you mean by the key codes?

Do you mean the ASCII codes?

They are for 48 to 57 for 0-9 respectively.

 

[CraigM]

For future reference, you can find this out quickly by using the Immediate Window, and the ASC function. Type:

?ASC("0")

in the immediate window, and hit enter. You can do this for all of the keys.

 

[DaveUK]

Thanks for the help.

I still can't use the Numeric keypad though.

I have this code:

Private Sub SurveyedTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)


' Allows Delete or Enter keys to be processed normally
If KeyCode > 31 Then


' If not 1, 2 or 3, or a number has already been
' entered, don't accept additional input


If KeyCode < 48 Or KeyCode > 57 Or Len(PolingTextBox.Text) > 3 Then
KeyCode = 0
End If


End If
End Sub

but only works on the Number keys NOT on the Numeric keypad numbers.

Any ideas?

 

[Norie]

Dave

What are you actually trying to do?

Is it some sort of validation/restriction on what the user enters in the textbox?

Perhaps you could use another event.

 

[Tom Urtis]

Those "10-key" numbers need to be addressed individually by their associated OnKey commands. Please specify if this textbox is in a userform or embedded on a worksheet.

 

[DaveUK]

Thanks again,

It is in a userform where only numbers are to be entered.

 

[Norie]

Dave

Why not use either the Change or Exit event to check the user has entered a number?

I prefer using Exit:

Private Sub SurveyedTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsNumeric(SurveyedTextBox.Value) Then
        MsgBox "Please enter a numeric value."
        Cancel = True
    End If
End Sub