Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

UDF - Sacar nota de un curso

| 8 comentarios

Muchas veces en nuestros cursos nos preocupamos por saber nuestro promedio o saber, también, por cuánto nos vamos en nuestro examen final. Para esto ejemplo, se ha utilizado el curso de Teoría Organizacional que pertenece a la malla curricular para los alumnos de 5º ciclo de la Facultad de Gestión y Alta Dirección. Este curso cuenta con 3 evaluaciones: Examen Parcial, Controles de Lectura y Examen Final. Los dos primeros, cada uno, valen el 30% del promedio total y el examen final vale el 40%

imagen sacar nota

(Para mayor visualización de la imagen, hacer click en la misma)

 

Para este ejemplo se elaboraron dos funciones: notateoria y notaparaaprobar. El primero se obtiene luego de tener las 3 notas finales del curso, se multiplican por su respectivo peso en el promedio final. Por otro lado, la función "notaparaaprobar" se consigue con las dos primeras notas, se multiplica por su peso y este resultado resta a 10.5, que es la nota mínima para aprobar el curso, así obtenemos la nota que necesitamos en el examen final para poder aprobar el curso.

funcion sacar nota

(Para mayor visualización de la imagen, hacer click en la misma)

 

Function notateoria(arg1, arg2, arg3)
resultado = ((0.3 * arg1) + (0.3 * arg2) + (0.4 * arg3))
notateoria = resultado

End Function

Function notaparaaprobar(arg1, arg2)
resultado = (10.5 - (0.3 * arg1 + 0.3 * arg2))
notaparaaprobar = resultado

End Function

 

Este ejemplo puede resultar muy útil y muy fácil para estudiantes que deseen saber sus promedios y saber cuánto necesitan en su examen o trabajo final para poder aprobar los cursos. Esta formula resulta útil para varios cursos cambiando, agregando o eliminando ciertos elementos de las fórmulas

Formulas Teoria Organizacional

 

Por: Renato Mauricio

8 comentarios

  1. Yo también plantee un evaluador de notas, pero lo hice más manejable ante el usuario ya que los porcentajes que se le asignaba a cada nota podían ser manejados desde una celda alterna... por lo cual el usuario escogía que valor asignar... siempre y cuando dicho porcentaje no pasara de 1 o 100%, para ello las UDF me ayudaron un montón

  2. La UDF "NotaParaAprobar" no calcula correctamente la nota necesaria en el examen final para aprobar; esto se debe a que en la fórmula no se ha considerado el peso de 0.4 del examen final. Además, es importante redondear la nota al máximo superior, pues en un examen sólo se obtiene como nota un número entero. Siguiendo el ejemplo, la función debería quedar así:

    Function notaparaaprobar(arg1, arg2)
    resultado = Fix(((10.5 - (0.3 * arg1 + 0.3 * arg2)) / 0.4) + 0.9)
    notaparaaprobar = resultado
    End Function

  3. En mi caso yo hice una UDF para calcular la nota final de mis alumnos en base a 5 trabajos que deben presentar.

    Cada uno de los trabajos tiene un peso distinto.

    Nota 1 = 10%
    Nota 2 = 10%
    Nota 3 = 30%
    Nota 4 = 10%
    Nota 5 = 40%

    Además la función muestra el promedio final redondeado a 0 decimales.

    Les dejo la función:

    Function PromFinal(Nota1, Nota2, Nota3, Nota4, Nota5)

    calculo = (Nota1 + Nota2 + Nota4) * 0.1 + Nota3 * 0.3 + Nota5 * 0.4

    If (calculo - Int(calculo)) >= 0.5 Then
    calculofinal = Int(calculo) + 1
    Else
    calculofinal = Int(calculo)
    End If

    PromFinal = calculofinal

    End Function

  4. Esta función podría ser utilizada por una institución educativa, relacionando las notas de los alumnos con sus datos personales.
    En una escuela en donde no se tengan sistemas que controlen el registro de información, este tipo de funciones pueden ser útiles para los maestros.

  5. Haciendo un poco mas dinámico el cálculo de esta función, a mi parecer podríamos enviar también por parámetro el peso de cada nota, puesto que no siempre se utiliza una misma distribución.

    Function PromFinal_Porc_Not(P1,P2,P3,P4,P5,N1,N2,N3,N4,N5)
    calculo = (N1*P1/100)+(N2*P2/100)+(N3*P3/100)+(N4*P4/100)+(N5*P5/100)
    If (calculo – Int(calculo)) >= 0.5 Then
    calculofinal = Int(calculo) + 1
    Else
    calculofinal = Int(calculo)
    End If
    PromFinal = calculofinal
    End Function

    OBS: El porcentaje aquí se toma como un (20%, 33.5%, etc. x%). y no como decimal ya convertido. La idea de todo programa es facilitar al usuario su utilización.

  6. Podría servir también tener la base de datos del promedio de notas de dicho examen en anteriores ciclos. De esa manera se podría aproximar la posibilidad de aprobar el curso con relación a la nota mínima que necesita.

  7. Esta función también puede utilizarse para hallar la nota del último trabajo de Excel avanzado que nos permita aprobar el curso.

    Function notafinal(tb1, tb2, tb3, tb4, tb5)
    resultado = ((0.20 * tb1) + (0.20 * tb2) + (0.20 * tb3) + (0.20 * tb4) + (0.20 * tb5))
    notafinal = resultado
    End Function

    Function notaquenecesito(tb1,tb2,tb3,tb4)
    resultado = (12.5 – (0.20 * tb1 + 0.20 * tb2 + 0.20 * tb3 + 0.20 * tb4))
    notaquenecesito = resultado
    End Function

  8. Éste ejemplo es muy práctico, puesto que se aplica en las universidades; como mejora de esta UDF yo añadiría argumentos de peso lo que indicará cuanto es lo que vale esa nota con respecto a las demás. De esta forma, se podrá ajustar a las necesidades de las universidades que tienen distintas ponderaciones para sacar la nota final de un curso

    Function promedionotas(nota1, nota2, nota3, peso1, peso2, peso3)

    resultado = nota1 * peso1 + nota2 * peso2 + nota3 * peso3

    promedionotas = resultado

    End Function

Deja una respuesta

Los campos requeridos estan marcados con *.