VBAで式を代入したいのですが、エラーになってしまいます

Question

前提・実現したいこと

VBAで特定のセルにダブルクォーテーションで括った式を代入したいのですが、エラーになってしまいます。
ソースのt,cは変数です。１行ずつ実行して、ソースの１行目でエラーになってしまいますが、
おそらく２行目もダメだと思います。

このソースの前に
Cells(t - c + 1, 17).Value = m（※mは変数）
を記述していますが、問題なく値が入っています。

何が原因となっているでしょうか。

発生している問題・エラーメッセージ

実行時エラー1004
アプリケーション定義またはオブジェクト定義のエラーです

該当のソースコード

        Cells(t - c + 1, 18).Value = "=IFERROR(INDIRECT(ADDRESS(ROW(),COLUMN()-1,4,1))/INDIRECT(ADDRESS(ROW(),COLUMN()-2,4,1)),"")"
        Cells(t - c + 1, 19).Value = "=IFERROR(INDIRECT(ADDRESS(ROW(),COLUMN()-4,4,1))/INDIRECT(ADDRESS(ROW(),COLUMN()-2,4,1)),"")"

試したこと

具体的にrow()、column()に値を入れてみましたが、動きません。

    Cells(t - c + 1, 18).Value = "=IFERROR(INDIRECT(ADDRESS(ROW(t - c + 1),COLUMN(18)-1,4,1))/INDIRECT(ADDRESS(ROW(t - c + 1),COLUMN(18)-2,4,1)),"")"
    Cells(t - c + 1, 19).Value = "=IFERROR(INDIRECT(ADDRESS(ROW(t - c + 1),COLUMN(19)-4,4,1))/INDIRECT(ADDRESS(ROW(t - c + 1),COLUMN(19)-2,4,1)),"")"

Answer 1

VBE上部の「デバッグ(D)」→１行目のコンパイル を実行してみてください。
恐らく該当部分がおかしい、とメッセージが出るんじゃないでしょうか？

VBAでは文字列を""で囲みますよね？（例："=A1"）
なので["]自体を文字列として扱いたいときは特殊な方法が必要です。
つまり[""]と書くルールになっています。(例："=A1&""""" ⇒ セルに入れると=A1&"")

自分の場合は、""だと分かりにくいので、
文字列中では[']を代用しておき、
Replaceで["]に変えて対応してます。
ご参考まで.

Dim str As string 
str = "=A1&''"
str = Replace(str,"'","""") '[""""]の最初と最後の["]は括弧。中にある[""]が["]を意味してます。

Comments

[skjdujr9djhf]

ご回答ありがとうございます。
""を表したいときは注意する必要がありますね。
以前にも教えて頂いたような気もしますがありがとうございます。

""""を４つにすると確かに分かりにくいのでReplaceで変換かけた方が後で見た時に
分かりやすいですね。

Answer 2

"という文字をそのまま"として使いたい場合、
""と二つ続けて書く必要があります。

～～～,1)),"")"
を
～～～,1)),"""")"
に変えてみて下さい。

Comments

[skjdujr9djhf]

ご回答ありがとうございます。
式代入で""を使うときは気を付けます。