追ç Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.address = "$A$1" Then If Target = "" Then Target = "ææº/é®ç®±/ç¨æ·å" Target.Font.ThemeColor = xlThemeColorDark2 Else Target.Font.ColorIndex = 0 End If End If Application.EnableEvents = True End Sub