Usuário com melhor resposta
keyascii=13 não funciona??

Pergunta
-
Respostas
-
Verdade, ele não entende o Enter como Asc no UserForm.
Use o evento KeyDown:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And Shift = 0 Then
MsgBox "OK"
End If
End Sub
Todas as Respostas
-
Funciona só se o formulário tiver o foco.
Se ele possuir controles que recebam o foco, eles é que deverão ter o evento KeyPress.
No Access e no VB, a propriedade KeyPreview serve para que o formulário receba o evento antes do controle.
No Excel, esta dica deve lhe ajudar a usar um mesmo procedimento para todos os controles:
http://j-walk.com/ss/excel/tips/tip44.htm
-
-
Verdade, ele não entende o Enter como Asc no UserForm.
Use o evento KeyDown:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And Shift = 0 Then
MsgBox "OK"
End If
End Sub -