當單元格被激活時，將字體顏色更改爲黑色

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