none
TECLA DE ATALHO VBA RRS feed

  • Pergunta

  • Prezado bom dia.

    Tenho uma macro e gostaria de utilizar uma tecla de atalho utilizando o método application onkey().

    Preciso do processo passo a passo, pois já fiz vários testes mas não está rodando. Sei que existe uma forma mais prática utilizando macro -- opções, entretanto para o meu trabalho preciso do método na sub. A tecla de atalho deve ser Ctrl m.

    Poderiam me ajudar nesse assunto?

    Desde já muito grato

    Josenildo Almeida

    sexta-feira, 22 de janeiro de 2016 12:15

Respostas

  • Tente assim Josenildo:

    Sub ativarOnKey()
    
      Application.OnKey "^m", "subTeste"
      
    End Sub
    
    Sub desativarOnKey()
      
      Application.OnKey "^m", ""
    
    End Sub
    
    Sub subTeste()
      
      MsgBox "Método OnKey Ativado!"
    
    End Sub
    


    Natan

    • Marcado como Resposta JOSENILDO.ALMEIDA segunda-feira, 22 de fevereiro de 2016 23:21
    sexta-feira, 22 de janeiro de 2016 13:08
  • É possível programar o atalho que vc citou (Macro >> Opções) diretamente por uma "Sub":

    Sub DefinirAtalhosTeclado()
    
    Application.MacroOptions Macro:="NomeMacro", _
        Description:="Escreva o que quiser.", _
        ShortcutKey:="m"
    Abraço.


    Filipe Magno

    • Marcado como Resposta JOSENILDO.ALMEIDA segunda-feira, 22 de fevereiro de 2016 23:21
    sábado, 23 de janeiro de 2016 02:05

Todas as Respostas

  • Tente assim Josenildo:

    Sub ativarOnKey()
    
      Application.OnKey "^m", "subTeste"
      
    End Sub
    
    Sub desativarOnKey()
      
      Application.OnKey "^m", ""
    
    End Sub
    
    Sub subTeste()
      
      MsgBox "Método OnKey Ativado!"
    
    End Sub
    


    Natan

    • Marcado como Resposta JOSENILDO.ALMEIDA segunda-feira, 22 de fevereiro de 2016 23:21
    sexta-feira, 22 de janeiro de 2016 13:08
  • É possível programar o atalho que vc citou (Macro >> Opções) diretamente por uma "Sub":

    Sub DefinirAtalhosTeclado()
    
    Application.MacroOptions Macro:="NomeMacro", _
        Description:="Escreva o que quiser.", _
        ShortcutKey:="m"
    Abraço.


    Filipe Magno

    • Marcado como Resposta JOSENILDO.ALMEIDA segunda-feira, 22 de fevereiro de 2016 23:21
    sábado, 23 de janeiro de 2016 02:05