¿Cómo sumar con decimales con comandos de un formulario?
Tengo un problema con una suma automática, cree un user_form y un modulo, en el modulo coloque: (Public Costo As Integer) y en el user_form coloque un label, 5 checkbox. Y a todos los checkbox le coloque el siguiente comando:
Costo = 0 If OptionButton1 = True Then If CheckBox1 = True Then Costo = Costo + 20 End If If CheckBox2 = True Then Costo = Costo + 30 End If If CheckBox3 = True Then Costo = Costo + 40 End If If CheckBox4 = True Then Costo = Costo + 50 End If If CheckBox5 = True Then Costo = Costo + 60 End If End If If OptionButton2 = True Then If CheckBox1 = True Then Costo = Costo + 120 End If If CheckBox2 = True Then Costo = Costo + 130 End If If CheckBox3 = True Then Costo = Costo + 140 End If If CheckBox4 = True Then Costo = Costo + 150 End If If CheckBox5 = True Then Costo = Costo + 160 End If End If If OptionButton3 = True Then If CheckBox1 = True Then Costo = Costo + 220 End If If CheckBox2 = True Then Costo = Costo + 230 End If If CheckBox3 = True Then Costo = Costo + 240 End If If CheckBox4 = True Then Costo = Costo + 250 End If If CheckBox5 = True Then Costo = Costo + 260 End If End If Label1 = Costo End Sub
La cual me mostraba en el label1 lo que sumo automáticamente, pero mi problema es que quiero los costos en decimales y que en el label1 me lo muestre en decimales y que lo sume todo, osea, que si le pongo a uno que si esta activo le sume a costo 20.5 y si el CheckBox2 esta activo que al costo le sume 30.45 y que en el label1 se muestre automáticamente el resultado la cual es 50.95.
¿Me podrian ayudae?
Cambia (Public Costo As Integer) por (Public Costo As single o double) tienes declarada la variable costo para solo aceptar números enteros con single la variable puede trabajar hasta con 6 decimales, double hasta con 14 decimales, ya depende cual quieras usar.
