发布网友 发布时间:2022-04-30 13:12
共1个回答
热心网友 时间:2022-06-22 12:43
你是要所有单元格都这样还是某个特定的单元格这样追问特定的追答 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
把$A$1改成你要的单元格地址