Pular para o conteúdo

Rodar macro ao pressionar tecla no teclado

Rodar macro ao pressionar tecla no teclado

Diferente da maioria do conteúdo presente no Função Excel (até agora), este é um post mais avançado, para aqueles que já tem um conhecimento em programação VBA e estão em busca de executar certa macro quando alguma tecla ou botão do mouse é pressionado.

Se você está em busca de macros que são executadas automaticamente após dado evento, veja o artigo deste link aqui.

Como utilizar o código para rodar uma macro ao pressionar uma tecla

Todos os códigos mostrados aqui devem ser utilizados em uma evento KeyDown ou KeyUp de algum objeto presente dentro de um Formulário (UserForm).


Exemplo Geral de como rodar uma macro ao pressionar uma tecla

O exemplo geral que utilizarei será um caixa de texto dentro de um Formulário. O nome desta caixa de texto é TextBox1.

Todos os códigos exibidos aqui terão a estrutura básica idêntica aos exemplos abaixo, apenas alterando as KeyCodes de acordo com o desejado.

Os exemplos abaixo tem exatamente o mesmo comportamento/função, porém no primeiro utilizamos o KeyCode e no segundo o Valor do KeyCode.

Exemplo genérico utilizando o KeyCode

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = vbKeyReturn Then MsgBox "Função Excel"
End Sub

Exemplo genérico utilizando o Valor do KeyCode

Private Sub TextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then MsgBox "Função Excel"
End Sub

Ambos os código de exemplo acima, exibem uma caixa de mensagem escrito “Função Excel” quando a tecla ENTER é pressionada no TextBox1.

Este foi apenas um exemplo geral, você pode utilizar os eventos de pressionar tecla de outras formas, seguindo esta mesma linha de raciocínio.


KeyCodes de teclas especiais para Excel

KeyCode Valor Tecla Correspondente
vbKeyLButton 1 BOTÃO ESQUERDO DO MOUSE
vbKeyRButton 2 BOTÃO DIREITO DO MOUSE
vbKeyCancel 3 Tecla CANCEL
vbKeyMButton 4 BOTÃO DO MEIO DO MOUSE
vbKeyBack 8 Tecla BACKSPACE
vbKeyTab 9 Tecla TAB
vbKeyClear 12 Tecla CLEAR
vbKeyReturn 13 Tecla ENTER
vbKeyShift 16 Tecla SHIFT
vbKeyControl 17 Tecla CTRL
vbKeyMenu 18 Tecla MENU
vbKeyPause 19 Tecla PAUSE
vbKeyCapital 20 Tecla CAPS LOCK
vbKeyEscape 27 Tecla ESC
vbKeySpace 32 Tecla SPACEBAR
vbKeyPageUp 33 Tecla PAGE UP
vbKeyPageDown 34 Tecla PAGE DOWN
vbKeyEnd 35 Tecla END
vbKeyHome 36 Tecla HOME
vbKeyLeft 37 Tecla SETA PRA ESQUERDA
vbKeyUp 38 Tecla SETA PRA CIMA
vbKeyRight 39 Tecla SETA PRA DIREITA
vbKeyDown 40 Tecla SETA PRA BAIXO
vbKeySelect 41 Tecla SELECT
vbKeyPrint 42 Tecla PRINT SCREEN
vbKeyExecute 43 Tecla EXECUTE
vbKeySnapshot 44 Tecla SNAPSHOT
vbKeyInsert 45 Tecla INS
vbKeyDelete 46 Tecla DEL
vbKeyHelp 47 Tecla HELP
vbKeyNumlock 144 Tecla NUM LOCK

KeyCodes de teclas do alfabeto para Excel

KeyCode Valor Tecla Correspondente
vbKeyA 65 A
vbKeyB 66 B
vbKeyC 67 C
vbKeyD 68 D
vbKeyE 69 E
vbKeyF 70 F
vbKeyG 71 G
vbKeyH 72 H
vbKeyI 73 I
vbKeyJ 74 J
vbKeyK 75 K
vbKeyL 76 L
vbKeyM 77 M
vbKeyN 78 N
vbKeyO 79 O
vbKeyP 80 P
vbKeyQ 81 Q
vbKeyR 82 R
vbKeyS 83 S
vbKeyT 84 T
vbKeyU 85 U
vbKeyV 86 V
vbKeyW 87 W
vbKeyX 88 X
vbKeyY 89 Y
vbKeYz 90 Z

KeyCodes de teclas numéricas para Excel

KeyCode Valor Tecla Correspondente
vbKey0 48 0
vbKey1 49 1
vbKey2 50 2
vbKey3 51 3
vbKey4 52 4
vbKey5 53 5
vbKey6 54 6
vbKey7 55 7
vbKey8 56 8
vbKey9 57 9

KeyCodes para teclas numéricas do teclado numérico para Excel

KeyCode Valor Tecla Correspondente
vbKeyNumpad0 96 0
vbKeyNumpad1 97 1
vbKeyNumpad2 98 2
vbKeyNumpad3 99 3
vbKeyNumpad4 100 4
vbKeyNumpad5 101 5
vbKeyNumpad6 102 6
vbKeyNumpad7 103 7
vbKeyNumpad8 104 8
vbKeyNumpad9 105 9
vbKeyMultiply 106 Multiplicação (*)
vbKeyAdd 107 Soma (+)
vbKeySeparator 108 Enter
vbKeySubtract 109 Subtração (-)
vbKeyDecimal 110 Ponto Decimal (.)
vbKeyDivide 111 Divisão (/)

KeyCodes para teclas de função para Excel

KeyCode Valor Tecla Correspondente
vbKeyF1 112 F1
vbKeyF2 113 F2
vbKeyF3 114 F3
vbKeyF4 115 F4
vbKeyF5 116 F5
vbKeyF6 117 F6
vbKeyF7 118 F7
vbKeyF8 119 F8
vbKeyF9 120 F9
vbKeyF10 121 F10
vbKeyF11 122 F11
vbKeyF12 123 F12
vbKeyF13 124 F13
vbKeyF14 125 F14
vbKeyF15 126 F15
vbKeyF16 127 F16

Acompanhe o Função Excel
   

Deixe um comentário ou uma dúvidaCancelar resposta

Sair da versão mobile