導入: なぜ「コメントの常時表示」が重要なのか
業務でExcelの共有ファイルを使用していると、重要な注意書きや補足説明が「セル右上の小さな赤い三角」に隠れてしまい、見落とされてしまうことはありませんか？特にマニュアルやタスク管理表において、重要な注釈はマウスを合わせなくても視界に入るようにしておくことが、ミスを防ぐ大きなポイントです。今回は、この「コメントの常時表示」設定を、手動で行う方法と、VBAを使って一括制御する方法を解説します。
基礎知識: コメント（メモ）の仕組み
Excelには「メモ（旧：コメント）」と「コメント（スレッド形式の新しい機能）」の2種類が存在します。今回解説するのは、従来からある「メモ」機能です。これはセルに付随する小さなテキストボックスで、既定値ではセルにマウスを乗せた時だけ表示されるようになっています。この表示状態を「Visible（可視）」プロパティで制御することで、常に表示させる状態に切り替えることができます。
実装/解決策: 手動設定とVBAによる自動化
手動で設定する場合は、対象のセルを右クリックし、「メモの表示/非表示」を選択するだけです。しかし、大量のセルに対して一括で行いたい場合や、マクロで自動的に設定したい場合はVBAが非常に有効です。
サンプルプログラム: VBAでコメントを一括表示する
以下のコードは、選択範囲内にあるすべてのコメントを強制的に表示状態にする実用的なマクロです。
Sub ShowAllCommentsInSelection()
‘ 選択範囲内のコメントをすべて常に表示させるマクロ
Dim rng As Range
Dim cell As Range
‘ 選択範囲がない場合は終了
If TypeName(Selection) <> “Range” Then Exit Sub
Set rng = Selection
‘ 選択範囲内の各セルをループ処理
For Each cell In rng
‘ セルにコメントが存在する場合のみ処理を実行
If Not cell.Comment Is Nothing Then
‘ VisibleプロパティをTrueに設定して常時表示
cell.Comment.Visible = True
End If
Next cell
MsgBox “選択範囲内のコメントをすべて表示しました。”, vbInformation
End Sub
※このコードを標準モジュールに貼り付け、対象のセルを選択した状態で実行してください。
応用・注意点: 現場で役立つ補足情報
1. 印刷時の注意点
コメントを常に表示させた状態で印刷すると、コメントが重なって見づらくなったり、意図しない位置に印刷されたりすることがあります。印刷設定の「ページ設定」から「シート」タブを選び、「コメント」の項目を「画面表示イメージ」に設定することで、画面上の表示状態がそのまま反映されます。
2. バグ回避のヒント
「コメントがないセル」に対して無理に操作しようとするとエラーが発生するため、上記のコードのように必ず「If Not cell.Comment Is Nothing Then」という判定を入れるのがベテラン流の安全な実装です。
3. 新機能「スレッド形式のコメント」との違い
Excelの新しいバージョンでは「新しいコメント（スレッド形式）」が標準となっており、これらは上記コード（Commentオブジェクト）では制御できない場合があります。その場合は「メモ」として挿入し直すか、個別に設定を行う必要がある点に注意してください。
