vba - 如何在自定义数据验证中使用用户定义的函数？

Question

在我的 Worksheet 中，我有一个 Table 并想为包含日期的列定义 Data validation，如下所示:

=S2M(B2)<>"Error"

在上面，S2M() 是一个用户定义的函数，用于将日期从 Persian date 转换为 Gregorian date，因为检查输入日期是对。

但 excel 不允许我在自定义 数据验证 中使用用户定义的函数。

此错误显示:找不到您指定的命名范围。

请注意，我在 Custom Data validation 中使用了波纹管代码，这确实有效。

=AND(LEN(B2)=10;ISNUMBER(IFERROR(VALUE(MATCH(VALUE(MID(B2;1;4));INDIRECT("intTable[Year]");0)&MATCH(MID(B2;6;2);INDIRECT("intTable[Mounth]");0)&MATCH(MID(B2;9;2);INDIRECT("intTable[Day]");0));FALSE)))

Explain 是一个波斯日期示例:1396/05/25

谢谢。

Answer 1

你可以做到。选择 B2，或第 2 行中要应用验证的任何单元格。现在定义一个名为 IsValid 的名称，使用:

=S2M(B2)<>"Error"

现在在数据验证框中，您需要输入的是:

=IsValid

在源框中并确保取消选中忽略空白选项。