継続文字連結テストコード

Public Sub prc継続文字連結テスト()
    ' 基本的な変数宣言（継続なし）
    Dim strName As String
    Dim intCount As Integer
    Dim strSQL As String
    Dim strFilePath As String
    
    ' 単独行（継続なし）
    strName = "テスト"
    intCount = 100
    
    ' 継続文字2行パターン
    strName = "継続テスト" _
            & "文字列"
    
    ' 継続文字3行パターン
    strSQL = "SELECT 列1, 列2" _
           & " FROM テーブル" _
           & " WHERE 条件 = 1"
    
    ' 継続文字4行パターン
    strName = "長い" _
            & "文字列" _
            & "連結" _
            & "テスト"
    
    ' 継続文字4行パターン（数値計算）
    intCount = 1 _
             + 2 _
             + 3 _
             + 4
    
    ' 継続文字4行パターン（ファイルパス）
    strFilePath = "C:\Users\" _
                & "田中\" _
                & "Documents\" _
                & "report.xlsx"
    
    ' 文字列内シングルクォート + 継続
    strName = "Don't" _
            & " forget" _
            & " this"
    
    ' 複雑な継続（括弧とパラメータ）
    MsgBox "処理開始します" _
         & vbCrLf & "確認してください", _
         vbQuestion + vbYesNo
    
    ' If文の継続
    If strName = "田中" _
       And intCount > 0 _
       And Len(strFilePath) > 5 Then
        Debug.Print "条件一致"
    End If
    
    ' コメントの継続パターン
    ' これは長いコメントで _
      複数行にわたって記述される _
      コメントのテストケースです
    
    ' コメント継続 + コード継続の組み合わせ
    ' このコードは文字列を _
      連結する処理です
    strName = "コメント継続後の" _
            & "コード継続"
    
    ' 単独行に戻る
    strName = "終了"
End Sub