Private Sub TextBox39_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox39 = Format(TextBox39, "$#,##0.00")
End Sub
Private Sub TextBox39_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
sCar = Chr(KeyAscii)
If sCar = "," Then
KeyAscii = IIf(sDecimal = ".", 46, 44)
sCar = Chr(KeyAscii)
If (InStr(TextBox39, sCar) > 0) Then
KeyAscii = 0
Exit Sub
End If
ElseIf InStr("0123456789." & Chr(8), sCar) = 0 Then
KeyAscii = 0
Exit Sub
End If
End Sub
Al momento de ingresar el dato, es conforme, por ejemplo $ 5,749.10, sin embargo al momento de retornar a este para actualizarlo el valor que lanza es $5,7491.00 no se cual pueda ser el error, por ello recurro a usdes, yo no manejo VBA, por ello que el codigo me lo paso un aigo.
Espero puedan apoyarme.
Muchas Gracias,
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a Todos,
Tengo un textbox con el siguiente codigo:
Private Sub TextBox39_AfterUpdate()
TextBox39 = Format(TextBox39, "$#,##0.00")
End Sub
Private Sub TextBox39_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox39 = Format(TextBox39, "$#,##0.00")
End Sub
Private Sub TextBox39_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
sCar = Chr(KeyAscii)
If sCar = "," Then
KeyAscii = IIf(sDecimal = ".", 46, 44)
sCar = Chr(KeyAscii)
If (InStr(TextBox39, sCar) > 0) Then
KeyAscii = 0
Exit Sub
End If
ElseIf InStr("0123456789." & Chr(8), sCar) = 0 Then
KeyAscii = 0
Exit Sub
End If
End Sub
Al momento de ingresar el dato, es conforme, por ejemplo $ 5,749.10, sin embargo al momento de retornar a este para actualizarlo el valor que lanza es $5,7491.00 no se cual pueda ser el error, por ello recurro a usdes, yo no manejo VBA, por ello que el codigo me lo paso un aigo.
Espero puedan apoyarme.
Muchas Gracias,