1. 導入：なぜコメントの「部分書式」が重要なのか
Excelのコメント（現：メモ）機能は、チームでの共同作業において情報の共有や注意書きを伝えるために欠かせないツールです。しかし、すべてが同じフォントや色のままでは、重要事項が埋もれてしまい、読み手に正しく意図が伝わらないことがあります。
重要な箇所を太字にしたり、特定の担当者のコメントを色分けしたりすることで、視認性を劇的に向上させることが可能です。本稿では、手動での設定手順に加え、VBAを使用してこの「部分的な書式設定」を自動化する方法を解説します。
2. 基礎知識：Characterオブジェクトの役割
Excelのコメント内に記述されたテキストは、VBAでは「Charactersオブジェクト」として扱われます。このオブジェクトを使用することで、文字列全体ではなく、特定の開始位置から指定した文字数分だけを対象に、フォントサイズ、色、太字などの属性を操作することができます。
VBAで部分書式を操作する際は、以下のメソッドとプロパティが重要です。
・Characters(start, length)：操作対象となる文字列の位置と長さを指定します。
・Fontプロパティ：指定した範囲の文字装飾（Color, Bold, Sizeなど）を定義します。
3. 実装/解決策：VBAで特定の文字を強調する
手動で行う場合は、コメントを編集状態で文字を選択し、「コメントの書式設定」ダイアログを開きます。しかし、大量のコメントを一括で処理したり、動的に書式を変えたい場合にはVBAが非常に有効です。
以下のサンプルコードでは、コメント内の「重要」というキーワードを見つけ出し、その部分だけを「赤字」かつ「太字」にする処理を実装します。
4. サンプルプログラム
Sub HighlightCommentText()
Dim cell As Range
Dim commentText As String
Dim pos As Integer
‘ アクティブシートの全セルを対象にループ
For Each cell In ActiveSheet.UsedRange
‘ セルにコメントが存在するか確認
If Not cell.Comment Is Nothing Then
‘ コメント内のテキストを取得
commentText = cell.Comment.Text
‘ 「重要」という文字列が含まれているか検索
pos = InStr(1, commentText, “重要”)
‘ 見つかった場合、その部分の書式を変更
If pos > 0 Then
With cell.Comment.Shape.TextFrame.Characters(pos, 2).Font
.Color = vbRed ‘ 文字色を赤に
.Bold = msoTrue ‘ 太字にする
End With
End If
End If
Next cell
MsgBox “コメント内の「重要」という文字を強調しました。”
End Sub
5. 応用・注意点：現場で役立つアドバイス
・Charactersの引数に注意：
Characters(start, length)の引数で指定する「length」は、文字数です。日本語の場合も1文字を「1」と数えます。範囲外を指定するとエラーになるため、InStr関数などで正確な位置を取得するようにしてください。
・最新版のExcelでは「メモ」：
Excel 2016以降、従来の「コメント」は「メモ」という名称に変更されています。VBAコード上では引き続き `.Comment` プロパティで操作可能ですが、新機能である「スレッド形式のコメント（新しいコメント）」はVBAから操作できない制限があります。実務で自動化を行う際は、対象のファイルが「メモ」形式であることを確認してください。
・可読性の維持：
強調しすぎると逆に読みづらくなるため、色分けのルールはチーム内で統一しておくことを推奨します。
