VBA 数据有效性里如何添加条件判断

Timothy21

爱疯 发表于 2019-12-5 15:24
这样做有啥好处？

能用写几个可能输入的值，让人感受下吗？

这只是举个例子啦，A/B/C都可以输入的，假如输入A=1,B=2,C=3的话不会报错，但是A=1,B=2,C=4的时候就会报错。
同理A=3，B=1，C=2的情况不会报错，A=3,B=1,C=1的情况下报错

zjdh

Timothy21 发表于 2019-12-5 15:29
这只是举个例子啦，A/B/C都可以输入的，假如输入A=1,B=2,C=3的话不会报错，但是A=1,B=2,C=4的时候就会报 ...

你举的例子还是让人摸不着头脑！！你列一个表吧。

爱疯

Sub test()
    With Range("d2:d4").Validation
        .Delete
        .Add Type:=xlValidateCustom, Formula1:="=IF(B2=C2,TRUE,IF(B2>C2,D2=B2-C2,D2=B2+C2))"    '公式为真是有效数据
    End With
End Sub


1.rar (16.06 KB, 下载次数: 4)

2019-12-5 16:34 上传

点击文件名下载附件

这样吗

Timothy21

爱疯 发表于 2019-12-5 16:34
Sub test()
    With Range("d2:d4").Validation
        .Delete

谢大佬，差不多是这个意思，我自己也研究下。
再次感谢。

0126

Timothy21 发表于 2019-12-5 14:44
那请问下现在我想在附件表中1,2,3月填写A/B/C的值，然后检查在AB的情况下满足A-B=C，在不满足时提醒数据 ...

条件格式
=IF(OR(INDIRECT("rc2",)=INDIRECT("rc3",),COUNTBLANK(INDIRECT("rc2:rc4",))),FALSE,IFERROR(IF(INDIRECT("rc2",)<INDIRECT("rc3",),INDIRECT("rc2",)+INDIRECT("rc3",)=INDIRECT("rc4",),INDIRECT("rc2",)-INDIRECT("rc3",)=INDIRECT("rc4",))=FALSE,TRUE))
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
数据有效性
=IF(OR(INDIRECT("rc2",)=INDIRECT("rc3",),COUNTBLANK(INDIRECT("rc2:rc4",))),TRUE,IF(INDIRECT("rc2",)<INDIRECT("rc3",),INDIRECT("rc2",)+INDIRECT("rc3",)=INDIRECT("rc4",),INDIRECT("rc2",)-INDIRECT("rc3",)=INDIRECT("rc4",)))
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
代码
Private Sub Worksheet_Activate() '进入工作表重新全部检查重新设置颜色
On Error Resume Next
Cells.Interior.Pattern = xlNone
For Each rg In ActiveSheet.Range("b2").Resize(ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row)
    If Application.WorksheetFunction.CountBlank(rg.Resize(, 3)) = 0 And rg <> rg.Offset(, 1) Then
       If IIf(rg < rg.Offset(, 1), rg + rg.Offset(, 1), rg - rg.Offset(, 1)) <> rg.Offset(, 2) Then rg.Resize(, 3).Interior.Color = RGB(255, 0, 0)
    End If
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) '修改后检测
On Error Resume Next
    Set rg = ActiveSheet.Cells(Target.Row, 2)
    rg.Resize(, 3).Interior.Pattern = xlNone
    If Application.WorksheetFunction.CountBlank(rg.Resize(, 3)) = 0 And rg <> rg.Offset(, 1) Then
       If IIf(rg < rg.Offset(, 1), rg + rg.Offset(, 1), rg - rg.Offset(, 1)) <> rg.Offset(, 2) Then
          rg.Resize(, 3).Interior.Color = RGB(255, 0, 0)
'          MsgBox Target.Address(0, 0) & "单元格值录入错误"
       End If
    End If
End Sub

Timothy21

0126 发表于 2019-12-5 17:49
条件格式
=IF(OR(INDIRECT("rc2",)=INDIRECT("rc3",),COUNTBLANK(INDIRECT("rc2:rc4",))),FALSE,IFERRO ...

先谢过，我试试