Cuadro de texto con 2 decimales (formato)
Tengo una consulta sobre poner formato con 2 decimales a un cuadro de texto, pero nada,, me explico,, tengo un formulario vb con excel,,, y un cuadro de texto llamado Pago y quisiera cuando ponga por ejemplo,, en el cuadro de texto 600 automáticamente se agregue 2 decimales 600.00 y cuando ponga 650.5 aparezca 650.50,,,, he internado varias formas como:
Pago.Value = Format(Pago, "#,##0.00") y nada ,,,,
hasta vi por la web que ponian algo asi
Private Sub Pago_Change()
Dim val As Decimal = 0
If Pago.TryParse(Pago.Text, val) Then
Pago.Text = val.ToString("N2")
Else
Pago.Text = ""
End If
End Sub
aqui me marca error en la fila Dim val As Decimal = 0 y no se por que,,.
2 Respuestas
Esta instrucción que te está enviando error
Dim val As Decimal = 0
Es por las siguientes causas
1. El tipo de dato "Decimal" no existe en VBA en Excel, tal vez tomaste el código de alguna otra versión de VB. Para utilizar decimales puedes declarar una variable como tipo "Single" o como tipo "Double".
2. La palabra "val" es una palabra reservada para VBA, por lo tanto, no te recomiendo que la utilices.
3. Cuando declaras una variable en VBA no puedes igualarla o ponerle un valor.
4. Por último, te recomiendo que no declares las variables, VBA declara todas las variables como tipo "Variant", sólo en algunos casos es preciso declararlas, pero cuando el código que utilizas es muy simple no te preocupes por declarar la variable, VBA lo hace por ti.
El formato del textbox Pago, no lo pongas en el evento Change, te va a dificultar la captura, es mejor que lo pongas en el evento Exit, puede ser así:
Private Sub Pago_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Por.DAM Pago = Format(Pago, "#,##0.00") End Sub
De esta forma terminas la captura y cuando pasas a otro control el formato se pone en automático.
Otra cosa que te recomiendo es poner una validación en el control Pago, para que solamente acepte números y el punto; de esta forma el formato se pueda apreciar mejor. Pon lo siguiente en el código de tu formulario:
Private Sub pago_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Por.Dante Amor Select Case KeyAscii Case 46, 48 To 57 'números (.0123456789) Case Else: KeyAscii = 0 End Select End Sub
Saludos.Dante Amor
No olvides valorar la respuesta.
Las instrucciones para un Textbox1, que te colocará el pto de miles y la coma decimal (aunque en la instrucción veas los separadores al revés)
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1 = Format(TextBox1, "#,##0.00") End Sub
Luego, para pasar el contenido del control a la hoja y que sea dato numérico válido, debes utilizar la función de conversión CDbl. Por ej:
Private Sub CommandButton1_Click() ActiveCell = CDbl(TextBox1.Value) End Sub
Sdos
Elsa