第1个回答 2010-10-29
用VBA吧。在你要做这个效果的工作表上按右键(下面工作表名那里),点“查看代码”,然后把下面的代码贴上去:
Private Sub Worksheet_SelectionChange(ByVal Target As range)
If Target.Address = "$A$1" Then
range("A1").Font.Color = vbRed
range("A1").Interior.ThemeColor = xlThemeColorLight1
Else
range("A1").Font.Color = vbNo
range("A1").Interior.Pattern = xlNone
End If
End Sub