我自己录制了一段数据验证的宏,代码如下:Range("B4").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=“=F2:F8”
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
然后我把区域修改了一下,修改如下
xlBetween, Formula1:=Range("F2:F" & Sheets(5).Range("b1").Value),然后就出错了,这个问题怎么解决呢?
End With
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=“=F2:F8”
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
然后我把区域修改了一下,修改如下
xlBetween, Formula1:=Range("F2:F" & Sheets(5).Range("b1").Value),然后就出错了,这个问题怎么解决呢?
End With