我有一个代码循环到工作表(“概述”),如果单元格(Y,X)的值等于“”,那么Y=Y+1,否则其余的。代码在部件上运行时出错 If Range(Cells(Y,X).Address).Value = "" Then 例如,如果我放入"H4“,它就会起作用,但不是这样的。我对Cells引用做错了什么?循环的整个代码是: Sub Maandag1()
Dim Y As String Y = 4
Do
我有一个“日期”字段在我的页面,我想自动化。现在,当我输入无效值或无效格式时,它将显示一个错误,如下所示:
"This is invalid value for "Date" field.现在,日期字段范围是可变的。如果我将其配置为从当前日期起的1-30天或15-60天,则错误消息范围将被更改。我怎么能把它自动化呢?而且,字段名是可变的,它可以是“DateTest”、Field1或任何用户定义的<