使用功能时出现VBA #VALUE！”错误

Question

仍然保留一根头发...不会很久

此：

null

生成一个#VALUE！在调用它的单元格中

我不知道为什么

有任何线索吗？

我认为#Value error while accessing user defined function in VBA在这里不适用。

Answer 1

我猜您在以=Around(E8)形式输入公式时，由于=Around("E8")是Compare，因此您需要以String形式输入：

如果要键入不带引号的字符，则需要将Compare声明为Range并更改某些语法：

Function Around(Compare As Range)

    Around = (Compare.Value = Compare.Offset(-1, 0).Value) Or (Compare.Value = Compare.Offset(1, 0).Value)

End Function