在If语句中检查工作表是否存在的函数

时间:2017-06-28 10:32:02

标签: vba excel-vba excel

我有一个检查工作表是否存在的功能。我无法在if语句中使用它。

我宁愿不在if语句之前创建一个保存结果的变量。我应该将功能更改为子?

sub tester()
    If ShExist("Equity") = True then call differentfunction
end sub

Function ShExist(name As String)
    Dim WorksheetExists
    WorksheetExists = Evaluate("ISREF('" & (name) & "'!A1)")
End Function

1 个答案:

答案 0 :(得分:6)

您的功能尚未完成或更正。以下方法可行:

Function ShExist(name As String)
    ShExist = Evaluate("ISREF('" & (name) & "'!A1)")
End Function