当单元格被激活时，将字体颜色更改为黑色

Question

我有一个格式为红色字体的单元格。我希望格式在用户单击单元格时转换为黑色字体，或者用键盘导航到黑色字体。

单元格为“Q15”。我希望代码适用于工作簿中的所有“Q15”实例 - 无论使用哪张表。

我在“ThisWorkbook”中输入了以下内容。我如何指定我在所有工作表中指的是“Q15”？

Private Sub Worksheet_Change(ByVal Target as Range) 
    Target.Font.ColorIndex = 1 
End Sub 

Answer 1

ThisWorkbook module是您需要添加代码的正确位置。

但是，您需要使用不同类型的事件。使用以下（完整）代码中的一个：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 

    If Target.Address = "$Q$15" Then 

     Target.Font.ColorIndex = 1 

    End If 
End Sub