Defina as combinações de teclas no Excel e atribua funções
No exemplo a seguir, a combinação de teclas Ctrl + ü a calculadora pode ser chamada a partir dos acessórios do Windows.
Use o seguinte procedimento para definir o atalho de teclado:
Configuração de atalho de sub teclado ()
Application.OnKey "ü", "CallCalculator"
End Sub
A macro armazenada se parece com isto:
Sub callCalculator ()
Dim x como variante
x = shell ("calc.exe")
End Sub
Se a combinação de teclas não for mais usada, inicie o seguinte procedimento:
Combinação de sub-tecla Cancelar ()
Application.OnKey "ü"
End Sub
Observação:
Freqüentemente, a configuração de atalhos de teclado é feita ao abrir uma pasta de trabalho específica. Para fazer isso, clique duas vezes na entrada Esta pasta de trabalho no explorador de projetos no ambiente de desenvolvimento e salve o seguinte evento:
Sub Workbook_Open ()
Atalho de configuração
End Sub
O evento Workbook_Open é executado automaticamente (se estiver definido) quando a pasta de trabalho é aberta. Em nosso caso, o procedimento Configuração da combinação de teclas é chamado aqui.
Isso é útil se você excluir a combinação de teclas configurada anteriormente ao fechar esta pasta. O evento Workbook_BeforeClose é executado automaticamente quando a pasta é fechada. Neste caso, a chave de desbloqueio do procedimento é chamada:
Private Sub Workbook_BeforeClose (Cancelar como Booleano)
Combinação de teclas Cancelar
End Sub
Isso significa que você sempre tem seus atalhos de teclado sob controle no Excel.