VBAコンパイルエラー

Question

以下コードですがVBAでコンパイルエラーとなったのですが原因が解りません。

エクセルでは問題がないのですが、どこをどの様に直せば良いかご指導お願いいたします。

Range("AI2") = "=IFERROR(FIND("Vivienne",AJ2),IFERROR(FIND("ヴィヴィアン",AJ2),IFERROR(FIND("vivienne",AJ2),IFERROR(FIND("ビビアン",AJ2),0))))"

Answer 1

VBAの中で文字列として扱う場合、「"」をエスケープする必要があります。
「"」→「""」に変えてみて下さい。

Range("AI2") = "=IFERROR(FIND(""Vivienne"",AJ2),IFERROR(FIND(""ヴィヴィアン"",AJ2),IFERROR(FIND(""vivienne"",AJ2),IFERROR(FIND(""ビビアン"",AJ2),0))))"

＜参考＞
■ Office TANAKA - Excel VBA Tips[ダブルコーテーションの表示]
http://officetanaka.net/excel/vba/tips/tips90.htm

Comments

[Polpo]

早速のご回答ありがとうございます
勉強させていただきました。