简单的VBA功能出现奇怪的错误

Question

我有以下功能：

Sub numbers2()

    barrier1 = Sheets("screen_3_TE_NONSCLIENT").Cells(8, 5)
    MsgBox (barrier1)

End sub

当我尝试运行它时，我得到以下错误（翻译自荷兰语）。

Error 13: types do not match

有什么想法在这里出了什么问题？

Answer 1

Rory正确地提出，这可能是由于单元格中的错误值，例如#N/A。

要处理单元格中的错误值，请尝试将它们转换为字符串

msgbox (Cstr(barrier1))

您将收到短信中的错误，例如下面的#N/A错误。

Answer 2

barrier1是一个Range对象，你应该使用：

MsgBox（barrier1.Value）