EXCEL包含小写字母的单元格颜色填充

代码1：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then End
If Target.Column > 1 Then End
If Target.Value Like "*[a-z]*" Then
    MsgBox "刚才输入中含小写字母"
    Target = ""
    Target.Activate
End If
End Sub

代码2：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value Like "*[a-z]*" Then
    Target.Interior.Color = 65535   '填充颜色为黄色
End If
End Sub

代码3：只能判断首字母是否为小写

=IF(SUM((CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>=97)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<=122))>0,"有","没有")