2017-06-28 21 views
0

シートが存在するかどうかをチェックする機能があります。私はそれをif文で動かすことはできません。シートが存在するかどうかをチェックする機能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 
+0

「ShExist」ではなく「WorksheetExists」に「answer」が格納されているので、ShExist関数は実際に何も返しません。より良い作業機能については、私の答えを参照してください。 – CLR

+0

歓迎です;) –

答えて

6

機能が完全ではありません。

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

ありがとう!完璧に動作します。 – Lowpar

関連する問題