Que no se pueda introducir números en la celda solo
Necesito ayuda de un experto!
Estoy elaborando un examen práctico en Excel. Lo que sucede es que el alumno tiene que resolver un ejercicio (por ejemplo una suma) pero no quiero que el alumno me pueda hacer trampa haciendo el cálculo mentalmente para luego introducir la respuesta directamente en la celda, si no forzosamente que tenga que hacer el cálculo mediante una fórmula o función.
He intentado con validación de datos pero no he podido o no se como.
Estoy elaborando un examen práctico en Excel. Lo que sucede es que el alumno tiene que resolver un ejercicio (por ejemplo una suma) pero no quiero que el alumno me pueda hacer trampa haciendo el cálculo mentalmente para luego introducir la respuesta directamente en la celda, si no forzosamente que tenga que hacer el cálculo mediante una fórmula o función.
He intentado con validación de datos pero no he podido o no se como.
1 respuesta
Respuesta de Elsa Matilde
1
Tendrás que controlar esto desde una rutina que evalúe lo que se ingresa en esa hoja.
Entrá al Editor, seleccioná con doble clic el objeto HOJA donde estará el examen (de la lista a tu izquierda) y allí copiá esta rutina:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then
If Not Target.HasFormula Then
Target.Value = ""
Target.Select
End If
End If
End Sub
Lo ideal sería que definas el rango de celdas donde debiera hacerse el control, por ej
Private Sub.............
If Target.Value <> "" And Not Intersect(Target, Range("C3:C8")) Is Nothing Then
'siguen las líneas
Entrá al Editor, seleccioná con doble clic el objeto HOJA donde estará el examen (de la lista a tu izquierda) y allí copiá esta rutina:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then
If Not Target.HasFormula Then
Target.Value = ""
Target.Select
End If
End If
End Sub
Lo ideal sería que definas el rango de celdas donde debiera hacerse el control, por ej
Private Sub.............
If Target.Value <> "" And Not Intersect(Target, Range("C3:C8")) Is Nothing Then
'siguen las líneas
Eres excelente. Que bueno encontrarse con personas como tú siempre dispuestas a ayudar. Es justo lo que quería. Mil gracias
