Public Sub prcコメントトークン化テスト()
' 単独行コメント
Dim strName As String ' 行末コメント
Dim intCount As Integer
Dim strSQL As String
Dim strFilePath As String
Dim wb As Workbook
Dim ws As Worksheet
strName = "テスト" ' 代入文の行末コメント
strName = "Don't worry" ' 文字列内シングルクォート
strName = "It's a test" ' 文字列内シングルクォート（複数）
strName = "She said 'Hello' to me" ' 文字列内にシングルクォート囲み
' ファイルパスでのシングルクォート使用パターン
strFilePath = "C:\Data\John's Files\report.xlsx" ' フォルダ名にシングルクォート
strFilePath = "D:\Reports\Mary's Budget 2024.xlsx" ' ファイル名にシングルクォート
Set wb = Workbooks.Open("E:\Archive\Q1'24 Data.xlsx") ' ファイル名に略記
' シート名でのシングルクォート使用パターン
Set ws = Worksheets("Smith's Data") ' シート名にシングルクォート
Set ws = Sheets("Q1'24 Results") ' シート名に略記形式
' SQL文でのシングルクォート使用パターン
strSQL = "SELECT * FROM テーブル WHERE 名前 = '田中'" ' SQL文内シングルクォート
strSQL = "INSERT INTO テーブル VALUES ('データ1', '田中太郎')" ' 複数値
strSQL = "UPDATE テーブル SET 備考 = 'Don''t delete' WHERE ID = 1" ' エスケープされたシングルクォート
' 文字列リテラル + 行末コメント
strName = "Can't stop now" & "Won't give up" ' 複数文字列連結
' 継続文字2行パターン
strName = "継続テスト" _ ' 継続行1のコメント
& "文字列" ' 継続行2のコメント
' SQL文の継続パターン
strSQL = "SELECT 列1, 列2" _ ' SELECT句
& " FROM テーブル" _ ' FROM句
& " WHERE 名前 = '田中'" _ ' WHERE句（SQL内シングルクォート）
& " ORDER BY ID" ' ORDER BY句
' ファイルパスの継続パターン
strFilePath = "C:\Users\田中\Documents\" _ ' ベースパス
& "John's Projects\" _ ' フォルダ名（シングルクォート含む）
& "Q1'24 Reports.xlsx" ' ファイル名（シングルクォート含む）
' 継続文字4行パターン
strName = "長い" _ ' 1行目コメント
& "文字列" _ ' 2行目コメント
& "連結" _ ' 3行目コメント
& "テスト" ' 4行目コメント
' 継続文字5行パターン（一部コメントなし）
intCount = 1 _
+ 2 _ ' 2行目のみコメント
+ 3 _
+ 4 _
+ 5
' 複雑なパターン：文字列内シングルクォート + 継続 + コメント
strName = "Don't" _ ' 文字列内シングルクォートあり
& " forget" _ ' 継続行にもコメント
& " this" ' 最終行
End Sub
Excel