文字列をダブルクォーテーションで囲む処理のショートカット【ExcelVBA】

文字列内にダブルクォーテーションを入れたい場合があります。
Chr(34)で処理をしてもよいのですが、よく使うのであれば、
ショートカット（パーツ化）として、使用できるようにしています。

文字列をダブルクォーテーションで囲むパーツ化したコード

'■文字列にダブルクォーテーションを付与するパーツ
Public Function Chr34_Add(ByVal str As String)
    Chr34_Add = Chr(34) & str & Chr(34)
End Function

実際の使い方

Public Sub sample()

    '■ 通常
    MsgBox "test"
    'test

    '■ ダブルクォーテーションで囲む
    MsgBox Chr34_Add("test")
    '"test"

    '■下記はどちらでも同一結果となります。
    MsgBox "今回は" & Chr34_Add("test") & "で検索します"        'ショートカットあり
    MsgBox "今回は" & Chr(34) & "test" & Chr(34) & "で検索します" 'ショートカットなし
    '今回は"test"で検索をします

End Sub

注意点

• 上記は大したことのない処理ですが、パーツ化の概念を理解すると今後のスキルアップに繋がります。

関連記事

• ダブルクォーテーションを文字列に簡単に入れたい【Chr(34)】
• 全角ダブルクォーテーションを入力したい【Chr(&H8167)】【Chr(&H8168)】
• ダブルクォーテーションの間に変数を入れたい【&演算子】