使用功能時出現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