打开 VBA,而不是创建模块,右键单击 Sheet1 --> 查看代码。那应该为您打开一个区域供您编码。转到右上角并选择更改。每次更改所选单元格的值后,代码应该运行。
Private Sub Worksheet_Change(ByVal Target As Range)
If Format(Now, "dddd") = "Thursday" Then
Target.Font.ColorIndex = 5
End If
End Sub
应该看起来像这样。或这个:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Format(Now, "dddd")
Case "Sunday"
Target.Font.ColorIndex = 1
Case "Monday"
Target.Font.ColorIndex = 2
Case "Tuesday"
Target.Font.ColorIndex = 3
Case "Wednesday"
Target.Font.ColorIndex = 4
Case "Thursday"
Target.Font.ColorIndex = 5
Case "Friday"
Target.Font.ColorIndex = 6
Case "Saturday"
Target.Font.ColorIndex = 7
End Select
End Sub
显然,颜色可以是您想要的任何颜色,但它会根据实际日期而不是您键入的内容而变化。
我想到的最后一个是:
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.ColorIndex = Weekday(Now)
End Sub