En EXCEL VBA, se activa automáticamente un evento cuando cambia el color de fuente de la celda. ¿Cómo implementar (personalizado) este evento?

El siguiente es el código de muestra:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Atenuar selCell como rango

Para cada selCell In Target

Si selCell.Font.ColorIndex <> xlAutomatic Entonces

'El siguiente es su código personalizado

MsgBox "¡Color de fuente cambiado!" p>

p>

EndFor selCell.Font.ColorIndex <> xlAutomatic Entonces

'El siguiente es su código personalizado

MsgBox "¡Color de fuente cambiado!

End If

Next selCell

End Sub

Pegue el código anterior en el módulo del libro y cambie el color de fuente cuando seleccione la celda en la hoja de trabajo Cuando, se activará el evento Worksheet_SelectionChange y aparecerá el cuadro de mensaje "¡El color de fuente ha cambiado!". ".

Tenga en cuenta que este código solo funciona en la hoja de trabajo actualmente activa; si necesita usar esta función en todo el libro de trabajo, debe agregar este código en el módulo de cada hoja de trabajo.