Jump to content

Archived

This topic is now archived and is closed to further replies.

Lucasig

Aplicar formato en varios textbox

Recommended Posts

Buenos días,

Tengo una pequeña consulta, sencilla.

Tengo 80 textbox en un UserForm y quisiera aplicarle el formato moneda a todos ellos.

Como podría hacerlo sin tener que nombrar un evento por cada uno.

PD: Obvie de subir el archivo porque creo que es algo sencillo y no hace falta alguna muestra.

Saludos!

Share this post


Link to post
Share on other sites

________________________________________________________

Suponiendo que tus textbox se llamen TextBox1, TextBox2,......TextBox80:

Private Sub Formatear(): On Error Resume Next
For x = 1 To 80
Controls("TextBox" & x) = FormatNumber(CCur(Controls("TextBox" & x)))
Next
End Sub
[/CODE]

______________________________________________________________

Si lo que quieres es un solo evento para todos los controles del mismo tipo, en el adjunto encontrarás un formulario de ejemplo.

______________________________________________________________

.

Macrocontroles.xls

Share this post


Link to post
Share on other sites

Que tal Macro Antonio,

Muchas gracias por la respuesta y disculpame la ignorancia, pero introduzco el código que has expresado y los TextBox siguen sin aparecer con el formato $.

Lo que yo quiero es :

Private Sub TextBox45_AfterUpdate()
TextBox45.Text = Format(TextBox45, "$#,##0.00")
End Sub[/CODE]

Pero aplicado a los 80 Text sin tener que hacer procedimiento por procedimiento.

Gracias!!

Share this post


Link to post
Share on other sites

En el archivo que he adjuntado hay un formulario de ejemplo de como usar un único evento para un grupo de controles sean del tipo que sean.

Si subes un archivo con el formulario y una pequeña explicación, a lo mejor lo vemos mas claro.

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy