vba - 激活单元格时将字体颜色更改为黑色

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