Salir de control con ENTER

20/04/2004 - 18:27 por Lorenzo | Informe spam
Saludos compañeros.

Tengo una hoja de claculo con un control listbox (pero no del cuadro de
formulario, sino de controles) y me gustaria que tras poner un valor en
dicha lista y pulsar ENTER dicho control perdiera el foco y se situase en
otro control que es un boton, para tan solo con dar ENTER de nuevo pulsar
dicho boton. Con esto me ahorro tener que usar el raton para salir de dicho
control y pulsar el boton.

Gracias a todos por vuestra ayuda.-

Lorenzo / Malaga / España
 

Leer las respuestas

#1 Héctor Miguel
21/04/2004 - 09:20 | Informe spam
hola, Lorenzo !

... hoja ... con un control listbox ... del cuadro ... de controles)
... que tras poner un valor ... y pulsar ENTER ... perdiera el foco y se situase en ... un boton
para tan solo con dar ENTER de nuevo pulsar dicho boton.
... me ahorro ... usar el raton para salir de dicho control y pulsar el boton.



=> 'estando en modo de diseño' [y suponiendo que el boton es tambien del cuadro de controles] <en el modulo de codigo de 'la hoja'... en el evento '_KeyDown(ByVal KeyCode As .'
coloca la siguiente instruccion [modifica el nombre del 'siguiente' control como sea necesario]
If KeyCode = vbKeyReturn Then Me.OLEObjects("CommandButton1").Activate

=> no estoy muy seguro de que 'estando' en el boton, lo puedas 'accionar' con un {enter} <= :((
=> pero SI... con la barra espaciadora <= ;)

si estas usando excel '97... se ocupara un 'paso intermedio' :))
If KeyCode = vbKeyReturn Then
Selection.Activate
Me.OLEObjects("CommandButton1").Activate
End If

saludos,
hector.

Preguntas similares