Hice un botón en VBA. Presionarlo equivale a presionar F9.
1. Suponiendo que los botones que utiliza son botones en la barra de herramientas del formulario en Excel, primero configure la macro del botón.
Subconjunto de macro()
Atenuar Shp como forma
Para cada Shp en ActiveSheet.Shapes
Si Shp.Type = msoFormControl Luego
Shp.Name = Shp.DrawingObject.Caption
Shp.OnAction = "Establecer clave"
Finalizar si
Siguiente
End Sub
Sub Set Key()
Dim Gkey As String
Gkey = "{" amp Application.Caller amp; "}"
Application.SendKeys Gkey
End Sub
Para esta única pregunta
F1-F12 y Esc/ Teclas como Enter son claves especiales y deben estar encerradas entre {}
A-Z, 0-9 se escriben directamente.
Para obtener más información, puedes consultar la ayuda de SendKeys
También puedes usar números, por ejemplo, {120} es equivalente a {F9}
Puedes consultar esta publicación/pregunta/ 49668418.html
Puedes usar valores en lugar de descripciones,
2 Si deseas configurar todas las claves, primero crea una tabla de comparación, asumiendo A:B de SHeet1
Botón izquierdo del ratón 1
Botón derecho del ratón 2
CANCELAR 3
Botón central del ratón 4
RETROCESO 8
TAB 9
BORRAR 12
ENTER 13
MAYÚS 16
CTRL 17
Menú 18
PAUSA 19
BLOQ MAYÚS 20
ESC 27
BARRA ESPACIADORA 32
PÁGINA 33
ABAJO PÁGINA 34
FIN 35
INICIO 36
FLECHA IZQUIERDA 37
FLECHA ARRIBA 38
FLECHA DERECHA 39
FLECHA ABAJO 40
SELECCIONAR 41
IMPRIMIR PANTALLA 42
EJECUTAR 43
INSTANTÁNEA 44
INS 45
DEL 46
AYUDA 47
0 48
1 49
2 50
3 51
4 52
5 53
6 54
7 55
8 56
9 57
A 65
B 66
C 67
D 68
E 69
F 70
G 71
H 72
Yo 73
J 74
K 75
L 76
M 77
N 78
O 79
P 80
Q 81
R 82
S 83
T 84
U 85
p>V 86
W 87
X 88
Y 89
Z 90
Teclado numérico 0 96
Teclado numérico 1 97
Teclado numérico 2 98
Teclado numérico 3 99
Teclado numérico 4 100
Teclado numérico 2 98
Teclado numérico 3 99
Teclado numérico 4 100
p>Teclado numérico 5 101
Teclado numérico 6 102
Teclado numérico 7 103
Teclado numérico 8 104
Teclado pequeño 9 105
Signo de multiplicación 106
Signo más 107
Teclado ENTER 108
Signo menos 109
Punto decimal 110
Signo de división 111
F1 112
F2 113
F3 114
F4 115
F5 1
16
F6 117
F7 118
F8 119
F9 120
F10 121
F11 122
F12 123
F13 124
F14 125
F15 126
F16 127
BLOQ NUM 144
Revisar la macro
Sub Set Macro()
Atenuar Shp como forma
Para cada Shp en ActiveSheet.Shapes
Si Shp.Type = msoFormControl Entonces
Shp.Name = Shp.DrawingObject.Caption
Shp.OnAction = " Set key"
Finalizar si
Siguiente
End Sub
Sub set key()
Atenuar tecla G como Cadena
Gkey = Evaluate("=Text(vlookup(""" & Application.Caller & """,Sheet1!A1:B99,2,0),""{0}" ")" )
Application.SendKeys Gkey
End Sub
Luego inserte algunos botones de comando del formulario y cambie las etiquetas a las mismas que la columna A Nombre
Ejecutar "Establecer Macro".
Simplemente haz clic en el botón