saber cual tecla presiono

14/10/2003 - 02:45 por Christian Soto S. | Informe spam
Hola grupo:

tengo el siguiente problemita: Estoy haciendo una rutina en la que necesito
saber cual tecla estoy presionando, para asignarle una tarea a esa tecla,
por ejemplo, si presiono la tecla [ENTER], el cursor en excel debe saltar a
determinada celda pre definida por mi, espero haberme explicado bien

Por su colaboración gracias anticipadas.


Saludos
Christian Soto S.

Preguntas similare

Leer las respuestas

#1 Víctor
14/10/2003 - 15:42 | Informe spam
Una sugerencia: Inserta una hoja en blanco y en A1
introduce 'a', en B1 'c', y después asigna
hipervínculos a esas celdas.

Por ejemplo: Si pensabas, pulsando la tecla 'c', ir
a 'Hoja17!c1548', en la casilla donde hayas
introducido 'c', inserta ese hipervínculo (y así
sucesivamente). Te ahorrarás dolores de cabeza
programando en VBA, si no lo dominas (al igual que yo).

Espero haberte ayudado.

:-)


Hola grupo:

tengo el siguiente problemita: Estoy haciendo una rutina


en la que necesito
saber cual tecla estoy presionando, para asignarle una


tarea a esa tecla,
por ejemplo, si presiono la tecla [ENTER], el cursor en


excel debe saltar a
determinada celda pre definida por mi, espero haberme


explicado bien

Por su colaboración gracias anticipadas.


Saludos
Christian Soto S.


.

Respuesta Responder a este mensaje
#2 Christian Soto S.
14/10/2003 - 20:14 | Informe spam
Gracias por tu ayuda Víctor, pero no es lo que necesito, yo deseo
interceptar las teclas [enter], [return], flechas y tabulador

si alguien sabe como hacerlo se lo agradeceré...

Saludos
Christian Soto S.


"Víctor" escribió en el
mensaje news:056e01c39259$0832fdd0$
Una sugerencia: Inserta una hoja en blanco y en A1
introduce 'a', en B1 'c', y después asigna
hipervínculos a esas celdas.

Por ejemplo: Si pensabas, pulsando la tecla 'c', ir
a 'Hoja17!c1548', en la casilla donde hayas
introducido 'c', inserta ese hipervínculo (y así
sucesivamente). Te ahorrarás dolores de cabeza
programando en VBA, si no lo dominas (al igual que yo).

Espero haberte ayudado.

:-)


Hola grupo:

tengo el siguiente problemita: Estoy haciendo una rutina


en la que necesito
saber cual tecla estoy presionando, para asignarle una


tarea a esa tecla,
por ejemplo, si presiono la tecla [ENTER], el cursor en


excel debe saltar a
determinada celda pre definida por mi, espero haberme


explicado bien

Por su colaboración gracias anticipadas.


Saludos
Christian Soto S.


.

Respuesta Responder a este mensaje
#3 Héctor Miguel
14/10/2003 - 20:40 | Informe spam
Hola, Christian !

... deseo interceptar las teclas [enter], [return], flechas y tabulador [...]



la forma mas 'sencilla' seria por el metodo =>Application.OnKey "Tecla(s)", "Procedimiento"<con lo cual, su 'comportamiento normal' se 'direcciona' a algun procedmiiento, 'pero' ...
toma en cuenta que las teclas que deseas 'controlar' son de 'navegacion estandar' en la aplicacion
[te sugiero] 'detectarlas' al activarse 'cierta/s' hoja/s y 'regresarles' el comportamiento 'normal' al desactivarla/s
en el modulo de codigo de 'esa/s' hoja/s ==Private Sub Worksheet_Activate()
With Application
.OnKey "~", "Tecla_Enter"
.OnKey "{Enter}", "Tecla_Intro"
.OnKey "{Tab}", "Tecla_Tab"
.OnKey "{Left}", "Flecha_Izq"
.OnKey "{Right}", "Flecha_Derecha"
.OnKey "{Up}", "Flecha_Arriba"
.OnKey "{Down}", "Flecha_Abajo"
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.OnKey "~"
.OnKey "{Enter}"
.OnKey "{Tab}"
.OnKey "{Left}"
.OnKey "{Right}"
.OnKey "{Up}"
.OnKey "{Down}"
End With
End Sub
en un modulo de codigo 'normal' ==Option Private Module
Private Sub Tecla_Enter()
MsgBox "Se ha presionado la tecla ""{Enter}"""
End Sub
Private Sub Tecla_Intro()
MsgBox "Se ha presionado la tecla ""Intro"""
End Sub
Private Sub Tecla_Tab()
MsgBox "Se ha presionado la tecla ""{Tab}"""
End Sub
Private Sub Flecha_Izq()
MsgBox "Se ha presionado la flecha izquierda"
End Sub
Private Sub Flecha_Derecha()
MsgBox "Se ha presionado la flecha derecha"
End Sub
Private Sub Flecha_Arriba()
MsgBox "Se ha presionado la flecha arriba"
End Sub
Private Sub Flecha_Abajo()
MsgBox "Se ha presionado la flecha abajo"
End Sub

Saludos,
Héctor.
Respuesta Responder a este mensaje
#4 Christian Soto S.
14/10/2003 - 22:10 | Informe spam
Gracias Héctor. es precisamente lo que necesitaba

Saludos
Christian Soto S.



"Héctor Miguel" escribió en el mensaje
news:
Hola, Christian !

> ... deseo interceptar las teclas [enter], [return], flechas y tabulador


[...]

la forma mas 'sencilla' seria por el metodo =>Application.OnKey


"Tecla(s)", "Procedimiento"<> con lo cual, su 'comportamiento normal' se 'direcciona' a algun
procedmiiento, 'pero' ...
toma en cuenta que las teclas que deseas 'controlar' son de 'navegacion


estandar' en la aplicacion
[te sugiero] 'detectarlas' al activarse 'cierta/s' hoja/s y 'regresarles'


el comportamiento 'normal' al desactivarla/s
en el modulo de codigo de 'esa/s' hoja/s ==> Private Sub Worksheet_Activate()
With Application
.OnKey "~", "Tecla_Enter"
.OnKey "{Enter}", "Tecla_Intro"
.OnKey "{Tab}", "Tecla_Tab"
.OnKey "{Left}", "Flecha_Izq"
.OnKey "{Right}", "Flecha_Derecha"
.OnKey "{Up}", "Flecha_Arriba"
.OnKey "{Down}", "Flecha_Abajo"
End With
End Sub
Private Sub Worksheet_Deactivate()
With Application
.OnKey "~"
.OnKey "{Enter}"
.OnKey "{Tab}"
.OnKey "{Left}"
.OnKey "{Right}"
.OnKey "{Up}"
.OnKey "{Down}"
End With
End Sub
en un modulo de codigo 'normal' ==> Option Private Module
Private Sub Tecla_Enter()
MsgBox "Se ha presionado la tecla ""{Enter}"""
End Sub
Private Sub Tecla_Intro()
MsgBox "Se ha presionado la tecla ""Intro"""
End Sub
Private Sub Tecla_Tab()
MsgBox "Se ha presionado la tecla ""{Tab}"""
End Sub
Private Sub Flecha_Izq()
MsgBox "Se ha presionado la flecha izquierda"
End Sub
Private Sub Flecha_Derecha()
MsgBox "Se ha presionado la flecha derecha"
End Sub
Private Sub Flecha_Arriba()
MsgBox "Se ha presionado la flecha arriba"
End Sub
Private Sub Flecha_Abajo()
MsgBox "Se ha presionado la flecha abajo"
End Sub

Saludos,
Héctor.


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida