Adaptar ecuación en un text box
La siguiente fórmula la quiero adaptar en un textbox de userform, pero marca error.
DF= DP+0.3 * MAX(DI-DP,0)+0.15 * MAX(DB-DI,0)
mi logica, fue la siguiente, con resultados erroneos.
TextBox15.Text = Val(TextBox1.Text) + 0.3 * Max(Val(TextBox2.Text) - Val(TextBox1.Text) + 0.15 * Max(Val(TextBox3.Text) - Val(TextBox2.Text)))
Me gustaría me brindara su orientación, para poder seguir adelante con mi proyecto.
Gracias por su atención.
Bernardo zermeño
DF= DP+0.3 * MAX(DI-DP,0)+0.15 * MAX(DB-DI,0)
mi logica, fue la siguiente, con resultados erroneos.
TextBox15.Text = Val(TextBox1.Text) + 0.3 * Max(Val(TextBox2.Text) - Val(TextBox1.Text) + 0.15 * Max(Val(TextBox3.Text) - Val(TextBox2.Text)))
Me gustaría me brindara su orientación, para poder seguir adelante con mi proyecto.
Gracias por su atención.
Bernardo zermeño
Respuesta de prozac
1
Tienes dos fallos en tu código. Uno es que la función Max necesita dos argumentos para comparar y otro es que es no una función de VBA, sino de las hojas (a mi también me resuta un tanto extraño pero es así.). Prueba con este código.
TextBox15.Text = Val(TextBox1.Text) + _
0.3 * WorksheetFunction.Max(Val(TextBox2.Text) - Val(TextBox1.Text), 0) + _
0.15 * WorksheetFunction. Max(Val(TextBox3.Text) - Val(TextBox2.Text), 0)
TextBox15.Text = Val(TextBox1.Text) + _
0.3 * WorksheetFunction.Max(Val(TextBox2.Text) - Val(TextBox1.Text), 0) + _
0.15 * WorksheetFunction. Max(Val(TextBox3.Text) - Val(TextBox2.Text), 0)
