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

Question

Still one hair remaining... not for long

This :

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

generates a #VALUE! in the cell that calls it

I cannot figure out why

Any clues ?

I think #Value error while accessing user defined function in VBA does not apply here.

Answer 1

I'm guessing you're typing the formula in like =Around(E8) , when you need to type it in as =Around("E8") since Compare is a String :

If you want to type it without quotation marks, then you need to declare Compare as a Range and change some syntax:

Function Around(Compare As Range)

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

End Function