Cálculo de notas con macros

Obtención del fichero Excel con notas

En caso necesario, el usuario puede utilizar una macro de Excel para calcular las notas. Se indica a continuación, paso a paso, la forma de hacerlo fuera de GEXCAT y posteriormente, la forma de importar las notas obtenidas, para poder enviarlas a los alumnos.

  1. Corregir normalmente el examen (utilizando por ejemplo calificación estandar. La nota obtenida no tiene mayor importancia, ya que la nota real se obtendrá con la macro de Excel)
  2. En la pantalla NOTAS, a pie de página, pulsar el botón Exportar Notas (Ctrl+R) exp
    1.  Se exportará un fichero excel, que se utilizará para calcular las notas.

Creación de la macro para el cálculo de notas

  1. Abrir el fichero generado en el paso anterior. Seleccionar la pestaña “Programador” (si no aparece, ver como activarla en: https://support.microsoft.com/es-es/topic/mostrar-la-pesta%C3%B1a-programador-e1192344-5e56-4d45-931b-e5fd9bea2d45
  2. Pulsar el botón Macros. Se abrirá una ventana nueva. Entrar el nombre de la macro, p.ej. Notas y pulsar el botón “Crear”
  3. A partir de este momento, se le suponen conocimientos de programación de macros de Excel.

 

Se muestra  un ejemplo de Macro, que permite calcular las notas de un examen en el que las 25 primeras preguntas representan el 70% de la nota final.

 
				
					Sub notas()

' Calculo de notas de un examen con puntuación diferenciada por bloques de preguntas.
' Primer bloque: Preguntas 1 a 25 70% nota
' Segundo bloque: preguntas 26 al final 30% nota
'
' Inicialización de variables generales. Nota máxima 100
'
numfilas = Cells(Rows.Count, 1).End(xlUp).Row           'Calcular nº de filas.
numcol = Cells(2, Columns.Count).End(xlToLeft).Column   'Calcular nº de columnas
numpreg = numcol - 9    'Nº de preguntas. Hay nueve columnas que no son preguntas (1 a 7 y dos últimas)
primerbloque = 70 / 25   'Puntuación de las preguntas del primer bloque, 25 primeras preguntas, 70 puntos
segundobloque = 30 / (numpreg - 25)   'Puntuación de las preguntas del segundo bloque, resto de preguntas, 30 puntos
'
' Bucle de cálculo de notas
'
For y = 5 To numfilas   'Bucle de alumnos. Comienza en fila 5
    nota = 0      'Nota inicial de cada alumno: 0
    For x = 8 To numcol - 2   'Bucle de preguntas. Comienza en columna 8 y se ignoran las dos últimas
        If Cells(y, x) > 0 Then     'Respuesta correcta
            If x < 33 Then  'Primer bloque de preguntas. Columnas 8 a 32
                nota = nota + primerbloque
            Else
                nota = nota + segundobloque
            End If
        End If
    Next x
    Cells(y, 7) = nota  'Nota final (Notas en columna 7)
Next y

End Sub

Importación de preguntas

  1. Una vez calculadas las notas, guardar el fichero Excel con las notas recalculadas.
  2. Ir a GEXCAT, Notas. En la pantalla NOTAS, a pie de página, pulsar el botón Importar Notas (Ctrl+T) imp
    1. Se importará el fichero excel. Las notas de GEXCAT quedarán actualizadas.