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

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

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

 我来答

2个回答

#热议# 为什么有人显老，有人显年轻？

不想起名字了99
2014-11-03 · TA获得超过1694个赞

知道大有可为答主

回答量：2708

采纳率：76%

帮助的人：712万

我也去答题访问个人页

关注

展开全部

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是不是也要进行相应的调整？

追答