全角ダブルクォーテーションを入力したい【Chr(&H8167)】【Chr(&H8168)】

全角のダブルクォーテーションを簡単に入力したい

VBAコード上で全角のダブルクォーテーションを入力しようとすると面倒です。
面倒な理由は以下。

全角ダブルクオーテーションをキーボードで入力すると、以下のように自動的に変換がされます。
“　→””
”　→””

※自動でエスケープ用のダブルクォーテーションを含み、
半角のダブルクォーテーション2つに自動補完されます。

全角のダブルクォーテーションを簡単に入力するサンプルコード

半角のダブルクォーテーションの入力同様、Chr関数を使用して簡単に挿入しましょう。

Public Sub sample()
    
    '■全角のダブルクォーテーションを入力する
    Debug.Print Chr(&H8167) '“
    Debug.Print Chr(&H8168) '”
    
    '■文字列の間に挟む場合は以下
    Dim str As String
    str = "abc" & Chr(&H8167) & "def"
    
    Debug.Print str 'abc“def

End Sub

関連記事

• 文字コードで文字列を取得する【Chr関数】【ChrW関数】【ExcelVBA】
• ダブルクォーテーションを文字列に簡単に入れたい【Chr(34)】