Cómo desarrollar macro para evaluar por pocentajes?
DAM, tengo la necesidad de crear una macro que me permita calificar una evaluación final, bajo los siguientes aspectos:
1. La evaluación la componen en total 40 preguntas divida en cuatro grupos.
2. Cada uno de los cuatro grupos la compone un total de diez preguntas.
3. Dos grupos equivalen a un 20% de la calificación total.
4. Los otros dos grupos equivalen al 30% cada uno de la calificación total.
5. Las escalas de calificación son las siguientes:
- 0 - 25 Puntos = Deficiente
- 26 - 50 puntos = Regular
- 51 - 75 puntos = Aceptable
- 76 - 100 puntos = Bueno.
6. Quien tenga una calificación de igual o superior a 90 puntos el resultado es "Aprobado".
7. Quien obtenga una calificación inferior a 90 puntos el resultado es "Reprobado"
8. La Hoja de Evaluación llamada "Cuestionario" se compone de las siguientes características:
- En la columna "A" desde la celda "A2" en adelante lleva el número de pregunta.
- En la columna "B" desde la celda "B2" en adelante lleva el Contenido de la pregunta.
- En la columna "C" desde la celda "C2" en adelante lleva marcada la opción correcta de respuesta.
- En la columna "D" desde la celda "D2" en adelante lleva la respuesta seleccionada por el alumno.
1 respuesta
H o l a:
Tengo las siguientes dudas:
1. ¿Cuáles grupos son de 20% y cuáles de 30%?
2. ¿Cómo calculas la ponderación de cada respuesta?
3. ¿En una hoja viene únicamente las respuestas de un alumno?
Puedes enviarme un archivo con 2 hojas con 2 ejemplos, uno de aprobado y el otro de reprobado.
Recuerda poner en el asunto tu nombre de usuario.
S a l u d o s
Dam, primero que todo muchas gracias por tomarte tu tiempo en responder:
En cuanto a tus dudas los grupos 1 y 3 equivalen al 20% cada uno y
los grupos 2 y 4 equivalen al 30% cada uno para un total de 100% o 100 puntos,
cada una de las 10 respuestas tiene un mismo valor dentro de su grupo.
Ahora lo que planteas en el punto 3 de tus dudas, Sí, efectivamente en la Hoja "RESPUESTAS", se toma lo de cada alumno y de allí se exportará a un pdf, para luego imprimirlo; pero eso ya está resuelto.
Por último, lo que respecta a los valores, es de tener en cuenta que:
- Cada respuesta de los grupos 1 y 3 equivale a dos (2) puntos y
- Cada respuesta de los grupos 2 y 4 equivale a tres (3) puntos.
Se debe obtener como mínimo 90 puntos acertados para ser "ABROBADO"
Quedo pendiente.
Saludos.
H o l a:
Te anexo la macro, deberás ejecutar la macro en la hoja cuando tengas las respuestas del alumno en la columna D
Sub Evaluar() 'Por.Dante Amor e = 2 For i = 2 To 41 n = n + 1 If n = 11 Then If e = 2 Then e = 3 Else e = 2 n = 1 End If If Cells(i, "C") = Cells(i, "D") Then pns = pns + e Next [E42] = pns & " PUNTOS" If pns < 90 Then [E43] = "REPROBADO" Else [E43] = "APROBADO" MsgBox "Evaluación terminada" End Sub
'
