Los datos expuestos en este blog, son solo de índole informativo. Por favor realiza siempre una copia de seguridad antes de realizar cualquier cambio en tu proyecto.
MS Excel 2003: pruebe un rango de celdas para una fórmula (o la falta de ella)
Este tutorial de Excel le muestra cómo escribir una macro para probar un rango de celdas (con capturas de pantalla e instrucciones paso a paso) en busca de fórmulas faltantes en Excel 2003 y versiones anteriores.
Problema: en Microsoft Excel 2003/XP/2000/97 necesito probar un rango de celdas para ver si existe una de ellas No Contiene una fórmula. Tenemos una hoja de cálculo compartida y necesitamos saber si alguien ha ingresado valores “duros” donde debería estar la fórmula.
Quiero cambiar el color de fondo de la celda a rojo si la celda contiene un valor que debería contener una fórmula.
¿Es posible?
R: Sí, es posible. Para probar un rango de celdas en busca de fórmulas faltantes, necesitamos crear una macro y algo para activar la macro para buscar fórmulas faltantes.
Descargue la hoja de cálculo de Excel (que se muestra a continuación)
En la siguiente hoja de cálculo, hemos creado un botón que llama a una macro para probar una fórmula para un rango específico.cuando encuentra una celda No Contiene una fórmula que cambia el color de fondo de esa celda a rojo.
Después de hacer clic en el botón llamado “Fórmula de prueba”, la hoja de cálculo ahora se ve así:
Como puede ver, la celda C6 contiene un valor, por lo que su color de fondo cambia a rojo. Asimismo, el color de fondo de la celda en blanco (C8) se cambia a rojo porque la celda en blanco no contiene una fórmula.
La única celda con el mismo color de fondo es la celda C7. Esta celda contiene una fórmula.
codigo macro
El código de la macro se ve así:
Sub TestFormulas()
Dim LResponse As Integer
For Each cell In Range("C6:C8")
If cell.HasFormula = False Then
cell.Interior.Color = vbRed
End If
Next
End Sub