Programación General > VBA

 Txt Con Formato Para Dinero

(1/1)

sndr82:
Hola amigos!

Tengo un txt donde me introducen una cantidad de dinero y me gustaria que conforme vayan ingresando digitos se vayan poniendo los puntos.
Ejemplo:
     1.000
    10.000
   100.000
 1.000.000
   etc...

Espero haverme explicado.....
Supongo que habrá algun control o funcion... si la sabeis por favor me hariais un gran favor!!

Muchasss graciasss!!!

shakka:
pruaba esto...

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, "#,##0")
End Sub

RadicalEd:
Asi para que se te vaya al final del texto.

--- Código: Text ---Private Sub TextBox1_Change()x = Len(TextBox1.Text)TextBox1.Text = Format(TextBox1, "#,###")TextBox1.SelStart = x + 1End Sub Usa las etiquetas code mbrenes por fa' para que se vea mas bonito. :P

sndr82:
Muchas graciasss chicoss me ha ido de maravilla!!!!

Navegación

[0] Índice de Mensajes