Formato de miles en un textbox en VBA

25/04/2007 - 16:10 por Don Juan | Informe spam
Hola a todos.
Estoy haciendo un formulario en VBA que recupera un valor en un TextBox, por
ejemplo, si tengo 2000, quisiera que aparezca algo así:
2'000.00 o solamente 2.000 (poco importa si el un punto o un apóstrofe, pero
me interesa mostrar la separación de miles, tampoco intenersa si muestra o
no los decimales, aunque sería un +).

Gracias de antemano.

Preguntas similare

Leer las respuestas

#1 David Ortiz
25/04/2007 - 20:45 | Informe spam
Hola Don Juan, pega y/ó adapta el siguiente código en el evento "exit" del
TextBox ó en un botón (como prefieras), fijate que el formato de miles es
con la coma y no con el apóstrofe pero si lo quieres cambiar solamente
sustituyela (la coma) en la cadena del formato, espero que te sirva.

If Me.TextBox1.Text <> "" Then
If IsNumeric(Me.TextBox1.Text) Then
Me.TextBox1.Text = Format(Me.TextBox1.Text, "#,##0.00")
Else
MsgBox "El valor ingresado debe ser numerico", vbCritical,
"Validación de Número"
End If
Else
Me.TextBox1.Text = Format(0, "#,##0.00")
End If

Saludos,

David Ortiz
El Salvador, C.A.

"Don Juan" wrote in message
news:
Hola a todos.
Estoy haciendo un formulario en VBA que recupera un valor en un TextBox,
por ejemplo, si tengo 2000, quisiera que aparezca algo así:
2'000.00 o solamente 2.000 (poco importa si el un punto o un apóstrofe,
pero me interesa mostrar la separación de miles, tampoco intenersa si
muestra o no los decimales, aunque sería un +).

Gracias de antemano.
Respuesta Responder a este mensaje
#2 Don Juan
26/04/2007 - 08:48 | Informe spam
Perfecto!

Muchísimas gracias

"David Ortiz" <rortizAQUILAARROBAswdeca.com> wrote in message
news:
Hola Don Juan, pega y/ó adapta el siguiente código en el evento "exit" del
TextBox ó en un botón (como prefieras), fijate que el formato de miles es
con la coma y no con el apóstrofe pero si lo quieres cambiar solamente
sustituyela (la coma) en la cadena del formato, espero que te sirva.

If Me.TextBox1.Text <> "" Then
If IsNumeric(Me.TextBox1.Text) Then
Me.TextBox1.Text = Format(Me.TextBox1.Text, "#,##0.00")
Else
MsgBox "El valor ingresado debe ser numerico", vbCritical,
"Validación de Número"
End If
Else
Me.TextBox1.Text = Format(0, "#,##0.00")
End If

Saludos,

David Ortiz
El Salvador, C.A.

"Don Juan" wrote in message
news:
Hola a todos.
Estoy haciendo un formulario en VBA que recupera un valor en un TextBox,
por ejemplo, si tengo 2000, quisiera que aparezca algo así:
2'000.00 o solamente 2.000 (poco importa si el un punto o un apóstrofe,
pero me interesa mostrar la separación de miles, tampoco intenersa si
muestra o no los decimales, aunque sería un +).

Gracias de antemano.




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