Question

Excel VBA中如何设置数据有效性条件，允许输入0以及(140~550)之间的整数

Excel VBA中如何设置数据有效性条件，允许输入0以及大于139小于551的整数），也就是说某一列允许输入0以及(140~550)之间的整数？

一般的区间我可以设置， .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="140", Formula2:="550"，但这个要有一个0也要允许输入，
猜测是要用xlValidateCustom，但条件不知道怎样写。

Answer 1

with Columns("D:D").Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=or(d1=0,and(d1>=150,d1<=550))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With

追问

先谢谢，基本就是这个答案了，不过我这里是一个选定区域，不是某一个单元格
Range("H4", "H" & Range("G65536").End(xlUp).Row).Select
With Selection.Validation

这样的话，答案中Formula1里面的D1是不是也要进行相应的调整？

追答

修改成H4

Answer 2

用这个：
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=OR(B6=0,and(B6>139,B6<551))"