Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Address(0, 0) <> "A1" Then Exit Sub
If Left(Target.Formula, 1) = "=" Then
Application.EnableEvents = False
MsgBox "A1单元格不允许输入公式,请修正"
Target = ""
Target.Select
Application.EnableEvents = True
End If
End Sub
请把以上代码复制到sheet1当中,代码功能说明:禁止A1单元格输入公式,如果输入公式给出提示并清空A1内容
联系客服