Anónimo
Realizar test
Hola, mi pregunta es la siguiente: como puedo hacer que en un test los usuarios no puedan volver a contestar en la misma celsa (contestar una solo vez).
Gracias por la ayuda
También puede responderme a: más directo.
Gracias por la ayuda
También puede responderme a: más directo.
1 Respuesta
Respuesta de Elsa Matilde
1
Podrías bloquear la celda una vez ingresado un dato, pero esto requerirá que se desproteja y vuelva a proteger en cada ingreso, lo que haría un poco lento el proceso.
Te propongo esta solución: que si la celda no está vacía no pueda seleccionarla. En mi ejemplo se salta a la celda a la derecha, pero esto podes ajustarlo a tu gusto. Quizás quieras que ya salte a la próxima pregunta.
Entrá al Editor (con Alt y F11), seleccioná con doble clic, del panel a tu izquierda, el objeto HOJA donde se realiza el test y escribí esta rutina. Solo deberás ajustar el rango donde estas celdas estarán y la dirección de desvío.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
mirgo = "C2:C50"
If Not Intersect(Target, Range(mirgo)) Is Nothing Then
If Target.Value <> "" Then
Target.Offset(0, 1).Select ' se desvía a derecha (0 fila, 1 col)
End If
End If
End Sub
Te propongo esta solución: que si la celda no está vacía no pueda seleccionarla. En mi ejemplo se salta a la celda a la derecha, pero esto podes ajustarlo a tu gusto. Quizás quieras que ya salte a la próxima pregunta.
Entrá al Editor (con Alt y F11), seleccioná con doble clic, del panel a tu izquierda, el objeto HOJA donde se realiza el test y escribí esta rutina. Solo deberás ajustar el rango donde estas celdas estarán y la dirección de desvío.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
mirgo = "C2:C50"
If Not Intersect(Target, Range(mirgo)) Is Nothing Then
If Target.Value <> "" Then
Target.Offset(0, 1).Select ' se desvía a derecha (0 fila, 1 col)
End If
End If
End Sub