- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：ダブルコーテーションを全角に置換するには）
ダブルコーテーションを全角に置換する方法
このQ&Aのポイント
- Visual BasicのReplace関数を使用して、ダブルコーテーションを全角のダブルコーテーションに置換することができます。しかし、Replace関数内で半角のダブルコーテーションを使用するとコンパイルエラーが発生するため、代替の文字列を使用する必要があります。
- 以下のマクロを使用することで、ダブルコーテーションを全角のダブルコーテーションに置換することができます。まず、InputBoxで入力を受け取り、Replace関数を使用して半角のダブルコーテーションを代替の文字列で置換します。そして、置換された文字列を出力します。
- ただし、ファイル名には全角のダブルコーテーションを使用する必要があるため、最初からInputBoxに全角のダブルコーテーションを入力することはできません。代わりに、半角のダブルコーテーションを入力し、マクロ内で置換することで対応することができます。
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
“（左ダブルクォーテーション）→Chr(&H8167) ”（右ダブルクォーテーション）→Chr(&H8168) Debug.Print Replace(str, """, Chr(&H8168)) でいいと思います(未検証)、ただし全て右ダブルクォーテーションになります。 ”“2種類使うならまた違う処理が必要になります。恐らく他の方が書くでしょう
お礼
さっそくのご回答ありがとうございます。 シフトキー+２を押してるので 右ダブルコーテーションになると思います。 Debug.Print Replace(str, """, Chr(&H8168)) をそっくりそのままvbe画面に貼り付けたらコンパイルエラーになってしまいます。 と思ったら、 Sub macro() Dim str As String str = InputBox("文字を入れてください") Debug.Print Replace(str, Chr(&H8168), "") End Sub これでイケました。