エクセル２０００です。Ceelsであるセルに空白を含む関数を書かせるに

質問

エクセル２０００です。Ceelsであるセルに空白を含む関数を書かせるには？

以下の様なＶＢですが、
先ず、セルAO5の文字を半角にして、「電気1234.xls」として、変数「ファイル名」に代入します。
次に変数「ファイル名」を取り込んだ、関数をCellsを使って書かせたいのですが、式の一部に「"」を
使っているのが悪いのかエラーになります。
関数式の中の「"」の処理の仕方を教えてください。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Dim ファイル名 As String

ファイル名 = "電気" & StrConv(Range("AO5").Value, vbNarrow) & "_2.xls"
Cells(53, 8).Value = "=SUMPRODUCT(((TRIM('[" & ファイル名 & ".xls]添付資料'!$C$1 : '[" & ファイル名 & ".xls]添付資料'!$C$10000)<>"")*1)*(TRIM('[" & ファイル名 & ".xls]添付資料'!$C$1 : '[" & ファイル名 & ".xls]添付資料'!$C$10000)<>"品 番")*1)"

回答No.2

m-take0220 · ベストアンサー

例の「"""テスト"""」で「"""」となっているのは、(文字列の始まりを示す)「"」と(文字列中の"を示す)「""」が重なっているために3つになっています。

＞ $C$10000)<>"")*1

この部分は、

$C$10000<>"""")*1

＞ $C$10000)<>"品 番")*1

この部分は

$C$10000<>""品 番"")*1

とするとどうでしょうか。

お礼

ありがとうございます。
上手く動きました。
助かりました。

回答No.1

m-take0220

VBAで文字列中にダブルクォーテーションを含めたい場合は、「""」と記述します。

例)
"テスト""テスト" → 「テスト"テスト」
"""テスト""" → 「"テスト"」

お礼

ありがとうございます。
参考に、問題の２箇所を以下の様にしてみましたが、相変わらずエラーです。
助けてください。

(1)関数式の中で、空白を指示するために、
""
としているのですが、これは、""""""となるのですか？

(2)関数式の中で半角空白を含む文字を指示するために
"品 番"
としているのですが、これは、"""品" & " " & "番"""　と、スペースと分けて、こうでしょうか？
それともそのまま　"""品 番"""　こうでしょうか？