|
不改或者不能改a和b的值适用数据有效性,
Sub Macro1()
With Selection.Validation
.Delete
.Add xlValidateCustom, xlValidAlertStop, xlBetween, "=OR(a+b=c,a-b=c,c="""",)"
.ErrorTitle = "注意"
.ErrorMessage = "该值不符合数据要求"
End With
End Sub
a和b的值能改的话建议使用下面二种
用vba语句的话可以这样,不过要加上判断a和b值是否变更和删除的语句
If (a + b <> c And a - b <> c And c <> "" )Then
MsgBox "该值不符合数据要求", , "注意"
End If
用条件格式
Selection.FormatConditions.Add(xlExpression, , "=and(a+b<>c,a-b<>c,c<>"""")").Interior.Color = RGB(221, 1, 3)
|
|