Jump to content
jose lopez contreras

Como multiplicar fracción con decimal y entero

Recommended Posts

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

 

Edited by jose lopez contreras

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites
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")

 

Edited by jose lopez contreras

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy