Expresión del textbox tras una multiplicación
Expertos, espero vuestra valiosa cooperación con el siguiente problema. En una Userform tengo 3 textbox denominados como; valor1(número entero con separador de miles), valor2(valor expresado en %) y total (número entero con separador de miles). El textbox total entrega el resultado al multoplicar valor1 por valor2. El problema es que el resultado es expresado como si el separrdor de miles fuera decimal, por ejemplo; valor1 = 1.000, valor2 = 12%, resultado en textbox total 0,12 en vez de 120.
La rutina es la siguiente:
Private Sub valor1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
valor1 = Format(valor1.Value, "##,##")
End Sub
Private Sub valor2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
valor2 = Format(valor2 / 100, "percent")
End Sub
Private Sub valor2_change()
total.Value = Val(valor1) * Val(valor2) / 100
End Sub
Private Sub total_Exit(ByVal Cancel As MSForms.ReturnBoolean)
total = Format(total.Value, "##,##0,00")
End Sub
Saludos a todos
donghi
La rutina es la siguiente:
Private Sub valor1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
valor1 = Format(valor1.Value, "##,##")
End Sub
Private Sub valor2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
valor2 = Format(valor2 / 100, "percent")
End Sub
Private Sub valor2_change()
total.Value = Val(valor1) * Val(valor2) / 100
End Sub
Private Sub total_Exit(ByVal Cancel As MSForms.ReturnBoolean)
total = Format(total.Value, "##,##0,00")
End Sub
Saludos a todos
donghi
1 Respuesta
Respuesta de ifrancoz