macro y cuadro de texto

31/03/2009 - 14:15 por VIC | Informe spam
He insertado en una hoja un cuadro de texto para aclarar algunas dudas sobre
los datos. Querría (si se puede) hacer una macro para que me mostrara dicho
cuadro de texto o me lo ocultara. ¿Es posible aplicar macros a las formas
insertadas? Si no puede ser, ¿cómo podría hacerlo?.
Saludos.
 

Leer las respuestas

#1 Juan Español
01/04/2009 - 01:11 | Informe spam
Casi seguro que el código expuesto es válido para 2007 también.
Pero bueno, si te apetece mejor como tu quieres, teniendo es cuenta que
tendrás que dejar el TextBox enabled
(es decir se podrá editar siempre, aún con la hoja protegida) para poder
picar en él.

Empecemos por el principio, es decir el final de tu repregunta.

Y otra cuestión si no te importa :) Cómo identifico el cuadro de
texto.



Estando en el modo de diseño (primer botón de la Barra de Herramientas
llamada Cuadro de Controles)
con el botón derecho del ratón pica sobre el cuadro de texto que pretendas
ocultar/visualizar
En la barra de fórmulas, a la izquierda, te pone el nombre de cuadro de
texto.

Ya tenemos el nombre del cuadro de texto.
(Por defecto excel pone nombre a los cuadros de texto del tipo TextBox1,
TextBox2)

Si a lo que tu llamas icono es un botón de comando, entonces pon estos
códigos en la hoja que sea

Private Sub NOMBREDETUBOTON_Click()
ActiveSheet.NOMBREDETUCUADRODETEXTO.Visible = True
End Sub

Private Sub NOMBREDETUCUADRODETEXTO_DblClick(ByVal Cancel As
MSForms.ReturnBoolean)
ActiveSheet.NOMBREDETUCUADRODETEXTO.Visible = False
End Sub

El TextBox se "cerrará" con doble click.

Saludos.-

"VIC" escribió en el mensaje de noticias
news:
Hola Juan, agradezco enormemente tu ayuda pero no me funciona. Utilizo
excel 2007 y las teclas de función no obedecen a la macro y ejecutan las
funciones que tienen establecidas. Yo había pensado aplicar la macro de
la siguiente forma.
Tengo un icono en la celda A1 en forma de interrogante. Cuando lo
selecciono que aparezca el cuadro de texto y una vez aparezca el cuadro
texto, cuando haga click con el ratón en él pues que desaparezca.
Y otra cuestión si no te importa :) Cómo identifico el cuadro de
texto. Dónde pongo su nombre. ???
Muchas gracias de nuevo.
**************************


"Juan Español" escribió en el mensaje de
noticias:#
Hola VIC:
Si en un módulo del libro pones esta macro


Sub Macro10()
If [IV1] = "" Then
ActiveSheet.TextBox1.Visible = True
' puedes poner los cuadros de texto que te interesen
[IV1] = 1
Else
ActiveSheet.TextBox1.Visible = False
' puedes poner los cuadros de texto que te interesen
[IV1] = ""
End If
End Sub


Y en la hoja donde tengas el cuadro de texto pones esto


Private Sub Worksheet_Activate()
Application.OnKey "{F10}", "Macro10"
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "{F10}"
End Sub

Al pulsar F10 se verán/ocultarán alternatitivamente los cuad. de texto.

Saludos.-


"VIC" escribió en el mensaje de noticias
news:
He insertado en una hoja un cuadro de texto para aclarar algunas dudas
sobre los datos. Querría (si se puede) hacer una macro para que me
mostrara dicho cuadro de texto o me lo ocultara. ¿Es posible aplicar
macros a las formas insertadas? Si no puede ser, ¿cómo podría
hacerlo?.
Saludos.



Preguntas similares