Enter como Tab

21/08/2004 - 08:29 por MarianoH | Informe spam
Saludos nuevamente:

Quisiera hacer que al presionar la tecla enter en una hoja protegida, se
simula la tecla tab (o sea pasar a la próxima celda desbloqueada). Pero en
las hojas y el libro no tengo un evento Keypress, ni encontré nada que
capture las entradas de teclado.
¿Sería posible realizar esto de alguna manera?

Desde ya muchas gracias por su ayuda.

Mariano A. Hernández
 

Leer las respuestas

#1 Héctor Miguel
21/08/2004 - 10:42 | Informe spam
hola, Mariano !

... que al presionar la tecla enter en una hoja protegida ... pasar a la proxima celda desbloqueada
... en las hojas y el libro no tengo un evento Keypress, ni encontre nada que capture las entradas de teclado [...]



puedes usar el metodo/evento de la aplicacion ->OnKey Tecla/s, [Procedimiento]<-
[p.e. al activar/desactivar la hoja protegida]
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_Activate()
Application.OnKey "~", "Tabular"
Application.OnKey "{Enter}", "Tabular"
Application.OnKey "+~", "ReTabular"
Application.OnKey "+{Enter}", "ReTabular"
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "~"
Application.OnKey "{Enter}"
Application.OnKey "+~"
Application.OnKey "+{Enter}"
End Sub
en un modulo de codigo 'normal' ==Private Sub Tabular()
SendKeys "{Tab}"
End Sub
Private Sub ReTabular()
SendKeys "+{Tab}"
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
la tecla '~' es el 'enter' del teclado alfa-numerico
la tecla '{Enter}' es la del teclado numerico
el signo '+' [equivale a] 'es' la tecla 'mayusculas' [por si tambien quieres 'regresar' a la anterior] ;)
si se omite 'procedimiento' [evento '_deactivate']... se 'restablecen' las teclas a su comportamiento 'normal'

saludos,
hector.

Preguntas similares