コンパイルエラー 修正候補：ステートメントの最後 について

Question

前提・実現したいこと

セルに関数を設定するVBA
エクセルのT6セルに、=JIS(TEXT(AK54,"#,##0")&"-")　の関数を設定したい。

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

コンパイルエラー　修正補正　ステートメントの最後
というエラーがでてしまいます。
どのように修正したらよいのでしょうか。
よろしくお願いします。

該当のソースコード

Sub 関数の設定()

Range("T6") = "=JIS(TEXT(AK54,"#,##0")&"-")"

End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

Range("T6") = "=JIS(TEXT(AK54,""#,##0"")&""-"")"

でしょうか。
二重引用符(")は文字列リテラルの開始・終了を表しますので、文字列リテラル内にこの文字をそのまま入力することができません。
その場合、上記例のように二重引用符(")を重ねます。

Comments

[Mkasai]

ありがとうございました。
ダブルクオーテーションを重ねないといけないということ、忘れていました。

Answer 2

Range("T6") = "=DBCS(TEXT(AK54,""#,##0"")&""-"")"

WorksheetFunction.Dbcsとは
DBCS関数って何でしょうか？
提示のエラーはダブルクオーテーションを重ねれば解決します。
しかしJIS関数は扱いが特別でそのまま実行しても#NAME？になります
JISではなくDBCSにすれば、セル反映時はJISに自動で変換されます。

Comments

[Mkasai]

ありがとうございました。
ダブルクオーテーションを重ねないといけないということ、忘れていました。
また、JIS関数の扱いについては知りませんでした。ありがとうございました。