Forums Últimos mensajes - Powered by IBM
 

Funcion en Visual

12/05/2005 - 18:02 por Daniel Padilla Cañamero | Informe spam
Tengo esta formula :

SI(F9="","",SI(F9<.49,"C",SI(F9<.49,"B",SI(F9<.49,"A",SI(F9< ,"AD")))))

Sobre estas condiciones:
AD (logro destacado) = 20 a 17 A (logro) = 16 a 13
B (en proceso) = 12 a 11 C (con difilcutad o en inicio) = 10 a
0

A partir de ella hice esta funcion para hacer mas rapido el trabajo ya q
tengo q copiarla a muchas hojas del libro :

Function EVAL(x)
If x = 0 Then EVAL = ""
If x = 1 Or x = 10.49 Then EVAL = "C"
If x = 10.5 Or x = 12.49 Then EVAL = "B"
If x = 12.5 Or x = 16.49 Then EVAL = "A"
If x = 16.5 Or x = 20 Then EVAL = "AD"
End Function

Pero no funciona bien me podrian ayudar a corregirla gracias por su ayuda


Saludos Cordiales
Daniel Padilla Cañamero
Lima-Perú
 

Leer las respuestas

#1 Manuel Romero
12/05/2005 - 18:11 | Informe spam
function EVAL(x as integer) as string
select case x
case <:EVAL="C"
case <:EVAL="B"
case <:EVAL="A"
case < :EVAL="AD"
case else:EVAL=""
end select
end function


"Daniel Padilla Cañamero"
escribió en el mensaje
news:
Tengo esta formula :

SI(F9="","",SI(F9<.49,"C",SI(F9<.49,"B",SI(F9<.49,"A",SI(F9< ,"AD")))))

Sobre estas condiciones:
AD (logro destacado) = 20 a 17 A (logro) = 16 a 13
B (en proceso) = 12 a 11 C (con difilcutad o en inicio) = 10
a
0

A partir de ella hice esta funcion para hacer mas rapido el trabajo ya q
tengo q copiarla a muchas hojas del libro :

Function EVAL(x)
If x = 0 Then EVAL = ""
If x = 1 Or x = 10.49 Then EVAL = "C"
If x = 10.5 Or x = 12.49 Then EVAL = "B"
If x = 12.5 Or x = 16.49 Then EVAL = "A"
If x = 16.5 Or x = 20 Then EVAL = "AD"
End Function

Pero no funciona bien me podrian ayudar a corregirla gracias por su ayuda


Saludos Cordiales
Daniel Padilla Cañamero
Lima-Perú

Preguntas similares