使用VBA进行数据验证 [英] Data validation using VBA
本文介绍了使用VBA进行数据验证的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我收到以下代码的应用程序定义或对象定义的对象错误"
I am getting 'application defined or object defined object error' for the following code
10 Sheets("Main").Select
20 currYearDate = DateValue("April 1, " & Year(Now))
30 nextYearDate = DateValue("March 31, " & (Year(Now) + 1))
40 Range("H9").Activate
50 With ActiveCell.Validation
60 .Add Type:=xlValidateDate, AlertStyle:=2, Operator:=1, Formula1:=currYearDate, Formula2:=nextYearDate
70 .ErrorMessage = "You should enter date between " & Format(DateValue("April 1," & Year(Now)), "dd-mmm-yyyy") & " and " & Format(DateValue("March 31," & Year(Now) + 1), "dd-mmm-yyyy")
80 .ErrorTitle = "Warning Message"
90 End With
有人可以帮我吗?
推荐答案
尝试以下代码:
Sheets("Main").Select
currYearDate = DateValue("April 1, " & Year(Now))
nextYearDate = DateValue("March 31, " & (Year(Now) + 1))
With Range("H9").Validation
.Delete
.Add Type:=xlValidateDate, AlertStyle:=2, Operator:=1, Formula1:=currYearDate, Formula2:=nextYearDate
.ErrorMessage = "You should enter date between " & Format(DateValue("April 1," & Year(Now)), "dd-mmm-yyyy") & " and " & Format(DateValue("March 31," & Year(Now) + 1), "dd-mmm-yyyy")
.ErrorTitle = "Warning Message"
End With
这篇关于使用VBA进行数据验证的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文