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

 

Editado el el 23 de mayo6 años por jose lopez contreras

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

 

 

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

 

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")

 

Editado el el 24 de mayo6 años por jose lopez contreras