Como multiplicar fracción con decimal y entero

[jose lopez contreras]

Hola amigos tengo un userform con 4 texbox, en el texbox1 coloco un numero entero , en el texbox2 un numero decimal y en el texbox3 un numero en fracción, algo parecido a esto: 2 x 1.5 x 1/2 y cuyo resultado lo debe dar en el texbox4 (el resultado seria en este caso 1.5) estoy usando esta macro pero me marca error. Alguien podra ayudarme de favor.

Private Sub CommandButton1_Click()
TextBox4.Value = CDbl(TextBox1) * CDbl(TextBox2) * CDbl(TextBox3)
End Sub

 

[Dr Hyde]

prueba con esta macro, el valor que pones e fraccion Excel lo toma como un 1, asi que opte por usar un split para conseguir el valor en decimales de esa fraccion

Private Sub CommandButton1_Click()
TextBox4.Text = (Val(TextBox1.Text) * Val(TextBox2.Text))
valor = Split(TextBox3, "/")
resultado = valor(0) / valor(1)
TextBox4.Text = (Val(TextBox1.Text) * Val(TextBox2.Text)) * resultado
End Sub

 

[Antoni]

 

TextBox4 = Evaluate("=" & TextBox1 & "*" & TextBox2 & "*" & TextBox3)

 

[jose lopez contreras]

Hace 16 horas, Dr Hyde dijo:

prueba con esta macro, el valor que pones e fraccion Excel lo toma como un 1, asi que opte por usar un split para conseguir el valor en decimales de esa fraccion

Private Sub CommandButton1_Click()
TextBox4.Text = (Val(TextBox1.Text) * Val(TextBox2.Text))
valor = Split(TextBox3, "/")
resultado = valor(0) / valor(1)
TextBox4.Text = (Val(TextBox1.Text) * Val(TextBox2.Text)) * resultado
End Sub

Hace 5 horas, Antoni dijo:

TextBox4 = Evaluate("=" & TextBox1 & "*" & TextBox2 & "*" & TextBox3)

Muchas gracias a ambos por su aportación, ambas sirven al 100, les dejo mi solución espero y también les guste. Aunque coloque un 5° textbox oculto jajaja, pero funciono.

TextBox5.Text = Evaluate(TextBox3.Text)
TextBox4.Value = Format(CDbl(TextBox1) * CDbl(TextBox2) * CDbl(TextBox5), "#,##0.00")