AÑADIR COLUMNA CON PUNTUACION
Publicado por TATITA (13 intervenciones) el 28/12/2009 12:09:05
Hola a todos
Estoy confeccionándo un test sobre preguntas para la oposición que preparo a través de un hoja de cálculo de excel. Hasta ahora, y gracias a vuestra colaboración, y en especial de Juanjo, he conseguido en la columna A poner las preguntas y en la columna B las respuestas. Y que la celda con la respuesta correcta se coloree de verde al hacer clic sobre ella si es correcta, o de rojo si es erronea. Y también que se descoloree al volver a hacer clic sobre la celda coloreada. AHORA QUIERO, SI ES POSIBLE, AÑADIR UNA COLUMNA (SERIA LA COLUMNA "D") DE PUNTUACIONES, QUE PUNTUE AUTOMATICAMENTE CON UN "1" SI SE HA MARCADO LA RESPUESTA CORRECTA AL HACER CLIC SOBRE LA CELDA, O QUE PONGA "-0,33" SI ES ERRONEA.
A continuación pongo la macro que actualmente tiene esta hoja de cálculo para colorear y descolorear las celdas.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo error
If Target.Column = "2" And Target <> "" Then
If Target.Interior.ColorIndex = -4142 Then
If Target.Offset(0, 1) <> "" Then
Target.Interior.ColorIndex = 4
Else
Target.Interior.ColorIndex = 3
End If
Else
Target.Interior.ColorIndex = -4142
End If
End If
error:
Exit Sub
End Sub
MUCHAS GRACIAS DE ANTEMANO
Estoy confeccionándo un test sobre preguntas para la oposición que preparo a través de un hoja de cálculo de excel. Hasta ahora, y gracias a vuestra colaboración, y en especial de Juanjo, he conseguido en la columna A poner las preguntas y en la columna B las respuestas. Y que la celda con la respuesta correcta se coloree de verde al hacer clic sobre ella si es correcta, o de rojo si es erronea. Y también que se descoloree al volver a hacer clic sobre la celda coloreada. AHORA QUIERO, SI ES POSIBLE, AÑADIR UNA COLUMNA (SERIA LA COLUMNA "D") DE PUNTUACIONES, QUE PUNTUE AUTOMATICAMENTE CON UN "1" SI SE HA MARCADO LA RESPUESTA CORRECTA AL HACER CLIC SOBRE LA CELDA, O QUE PONGA "-0,33" SI ES ERRONEA.
A continuación pongo la macro que actualmente tiene esta hoja de cálculo para colorear y descolorear las celdas.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo error
If Target.Column = "2" And Target <> "" Then
If Target.Interior.ColorIndex = -4142 Then
If Target.Offset(0, 1) <> "" Then
Target.Interior.ColorIndex = 4
Else
Target.Interior.ColorIndex = 3
End If
Else
Target.Interior.ColorIndex = -4142
End If
End If
error:
Exit Sub
End Sub
MUCHAS GRACIAS DE ANTEMANO
Valora esta pregunta
0