Private Sub txt1_KeyPress(KeyAscii As Integer)
    
    Select Case KeyAscii
        
        Case 8
            MsgBox "BackSpace"
    
        Case 9
            MsgBox "Tab" 確認できず
    
        Case 13
            MsgBox "Enter" 確認できず
    
        Case 27
            MsgBox "Esc"
    
    End Select
    
    If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then MsgBox "0-9"
    
    If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Then MsgBox "A-Z"
    
    If KeyAscii >= Asc("a") And KeyAscii <= Asc("z") Then MsgBox "a-z"
    
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ