正如标题中所示,我正在尝试添加日期小于或等于今天日期的数据验证。对于今天的日期,我指的是编辑工作表时动态检查日期。下面是我的代码:
With Selection.Validation
.Delete
.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:=xlLessEqual, Formula1:="=NOW()"
.ErrorMessage = "Wprowadź datę w formacie dd.mm.rrrr"
End With我得到下面这行代码的运行时1004错误:
.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:=xlLessEqual, Formula1:="=NOW()"我一直在尝试使用=NOW的=TODAY实例,但输出是相同的。
发布于 2021-08-25 08:56:57
代码运行良好,但我的工作簿中的一些工作表受到保护。当我取消对它们的保护时,代码运行得很好。
https://stackoverflow.com/questions/68919500
复制相似问题