单击单元格时更改excel单元格字体方面

Question

我正在尝试制作一个以标准方式记录信息点的电子表格。

因此设计如下： A2是“痛苦”

• 单元格应默认为灰色文本颜色（正常背景）（颜色索引16）
• 单击鼠标左键，文本颜色应变为黑色（颜色索引1）
• 在下一个鼠标左键单击时，文本应该被触及并略有不同的颜色（font.strikethrough = true）（颜色索引56）
• 在下一次鼠标左键单击时，文本应返回其原始状态（颜色索引16，没有删除线）

我正在尝试使用此代码，但它似乎无法正常工作。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  Application.EnableEvents = False
  With Target
.Font.Name = "Calibri"
.Font.Size = 11
  If .Address = Range("A2").Address Then
Select Case .Font.ColorIndex
  Case 16
    .Font.ColorIndex = 1
  Case 1
    .Font.ColorIndex = 56
    .Font.Strikethrough = True
  Case 56
    .Font.ColorIndex = 16
    .Font.Strikethrough = False
  Case Else
    .Font.ColorIndex = 16
End Select
  End If
  End With
  Range("A3").Select
  Application.EnableEvents = True
End Sub

请帮我弄清楚如何实现这个目标。

谢谢！