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

Question

还剩下一根头发...时间不长

这个 ：

Function Around(Compare As String)

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

End Function

产生#VALUE！ 在调用它的单元格中

我不知道为什么

有什么线索吗？

我认为在VBA中访问用户定义的函数时出现#Value错误在这里不适用。

Answer 1

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

如果要键入不带引号的字符，则需要将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