Función para calificar una variable

Ahí les dejo otra función con múltiples aplicaciones

 

Public Function Calificar(calif As Double, pesos As Range, inferior As Range, superior As Range)

‘Función para calificar una variable desarrollada por Carlos Enrique Vázquez Moreno

‘Quito 20 / 8 / 2016

‘pesos es la calificación a asignarse

‘inferior es el límite inferior del rango
‘Superior es el límite superrior del rango
‘calif es el valor de la variable a calificar

Application.Volatile

‘Se declara variable auxiliar

Dim i As Integer

‘Se recore todo el rango de “pesos” usando un loops For

For i = 1 To pesos.Count

‘Se evalúa y califica usando la función Select case

Select Case calif
Case inferior(i) To superior(i)
Calificar = pesos(i)
End Select
Next i

End Function

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s