在EXCEL VBA中当单元格字体颜色改变时，自动触发一个事件。这个事件，如何（自定义）实现？

在 Excel VBA 中，您可以使用 Worksheet_SelectionChange 事件来监测单元格字体颜色的改变。

以下是示例代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim selCell As Range

For Each selCell In Target

If selCell.Font.ColorIndex <>xlAutomatic Then

'此处是您自定义的代码

MsgBox "字体颜色已更改！"

End If

Next selCell

End Sub

将以上代码粘贴到您的工作簿的模块中，当您在工作表中选择单元格并更改字体肢唤颜睁饥贺色时，就会触发 Worksheet_SelectionChange 事件，并d出消息框 "字体颜色已更改！"。

请注意，此代码仅适用于当前活动工悉派作表，如果您需要在整个工作簿中使用此功能，则需要在每个工作表的模块中添加此代码。

代码示好闹例：

Option Explicit

Sub 宏1()

  Range("a1").Characters(4, 6).Font.Color = vbRed

End Sub

关键内容是Characters，类似MID的使用，测试代码运行前的工作表：

执行御颂后友拆罩的工作表：

程序代码：

如果需要4、6可以变，使用变量、或者从工作表中读取即可。

---