Contador funciona al oprimir una tecla?
Elsa buenos días, lo que tu colocaste me cae de perlas pero necesito acondicionarlo para que funcione al oprimir una tecla; hice un Excel que me trabaja con función aleatorio y me muestra varios numeros pero necesito contar la cantidad de veces que oprimo la tecla F9 para que funcione; te reitero mi agradecimiento
1 Respuesta
El ejemplo que coloco a continuación asigna una macro a la tecla F9 al entrar a cierta hoja... podrías colocarla en otro evento más apropiado.
Entonces necesitas colocar la siguiente macro en la hoja donde vayas a trabajar con la tecla F9:
Private Sub Worksheet_Activate()
'x Elsamatilde
Application.OnKey "{F9}", "miContador"
End SubY en un módulo colocarás la macro que llamé 'miContador' , donde también debes declarar la variable como pública:
Public conta As Integer Sub miContador() conta = conta + 1 'opcional: ir mostrando el resultado MsgBox conta End Sub
En algún momento querrás limpiar el contador ... y eso podría ser al salir de la hoja y quitarle la macro a la tecla F9. Entonces nuevamente en la hoja en cuestión coloca esto:
Private Sub Worksheet_Deactivate()
Application.OnKey "{F9}"
'limpia el contador
conta = 0
End SubRecordá que se activará al entrar a la hoja y desactivará al salir, limpiando la variable.
Hay otras variantes posibles: al abrir el libro, con otros botones o macros, etc.
Sdos. Si esto resuelve tu consulta no olvides valorarla (Excelente o Buena) para darla por cerrada.
