Definir combinaciones de teclas en Excel y asignar funciones
En el siguiente ejemplo, la combinación de teclas Ctrl + ü se puede llamar a la calculadora desde los accesorios de Windows.
Utilice el siguiente procedimiento para configurar el método abreviado de teclado:
Configuración de atajos de teclado secundario ()
Application.OnKey "ü", "CallCalculator"
End Sub
La macro almacenada se ve así:
Sub callCalculator ()
Dim x como variante
x = shell ("calc.exe")
End Sub
Si la combinación de teclas ya no se va a utilizar, inicie el siguiente procedimiento:
Cancelar combinación de teclas secundarias ()
Application.OnKey "ü"
End Sub
Nota:
A menudo, la configuración de atajos de teclado se realiza al abrir un libro de trabajo en particular. Para hacer esto, haga doble clic en la entrada Este libro en el explorador de proyectos en el entorno de desarrollo y guarde el siguiente evento:
Private Sub Workbook_Open ()
Configuración de acceso directo
End Sub
El evento Workbook_Open se ejecuta automáticamente (si está configurado) cuando se abre el libro. En nuestro caso, aquí se llama al procedimiento Configuración de combinación de teclas.
Esto es útil si elimina la combinación de teclas configurada previamente al cerrar esta carpeta. El evento Workbook_BeforeClose se ejecuta automáticamente cuando se cierra la carpeta. En este caso, el procedimiento Desbloquear clave se llama:
Private Sub Workbook_BeforeClose (Cancelar como booleano)
Cancelar combinación de teclas
End Sub
Esto significa que siempre tiene sus atajos de teclado bajo control en Excel.