............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

OBLIGAR DECIMALES EN TEXTBOX

Ver el tema anterior Ver el tema siguiente Ir abajo

OBLIGAR DECIMALES EN TEXTBOX

Mensaje por GalileoGali el Dom Mayo 04, 2008 6:50 pm

Si no se pone punto decimal al salir se lo coloca sobre las cifras significativas, Si hay decimal se deja como esta, si hay coma y se quiere punto se cambia, etc.
[Tienes que estar registrado y conectado para ver este vínculo]

<iframe title ="Preview" scrolling="no" marginheight="0" marginwidth="0" frameborder="0" style="width:98px;height:115px;padding:0;background-color:#fcfcfc;" src="http://cid-837b040e836e38b5.skydrive.live.com/embedicon.aspx/Xls%201/Obligar%20Decimales%20en%20TextBox.xls"></iframe>

Código:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If InStr(1, TextBox1, ",") Then
TextBox1 = Replace(TextBox1, ",", Application.DecimalSeparator): Exit Sub
End If
If InStr(1, TextBox1, Application.DecimalSeparator) Then
Else
TextBox1 = Application.Text(TextBox1, "0""" & Application.DecimalSeparator & """00")
End If
End Sub


Última edición por GalileoGali el Lun Nov 16, 2009 7:34 am, editado 2 veces

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.