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

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

1 个答案: