なぜVBAで下線を操作するのか？
日々の業務で「特定の条件を満たしたセルの文字に下線を引く」という作業を、手動で行っていませんか？例えば、期限が迫ったデータや、重要な見出しなどを強調するために下線を使うことは非常に多いです。これを手動で行うと手間がかかるだけでなく、設定漏れのリスクも伴います。VBAを活用すれば、データ処理と同時に一瞬で書式設定を完了させることができるため、業務効率が格段にアップします。
基礎知識：FontオブジェクトとUnderlineプロパティ
Excel VBAでセルの文字装飾を行うには、RangeオブジェクトのFontプロパティを使用します。フォントの種類やサイズ、太字設定などを変更する際と同じ場所です。下線に関する設定は、このFontオブジェクトの中にあるUnderlineプロパティで制御します。
このプロパティに特定の定数を代入することで、下線の有無や種類（二重下線など）を切り替えることができます。
実装：Underlineプロパティの指定方法
VBAで下線を引くには、主に以下の定数を使用します。
・xlUnderlineStyleNone：下線なし
・xlUnderlineStyleSingle：一重下線（標準）
・xlUnderlineStyleDouble：二重下線
例えば、セルA1に一重下線を引く場合は「Range(“A1”).Font.Underline = xlUnderlineStyleSingle」と記述するだけです。
サンプルプログラム：選択範囲に一括で下線を引く
実務で使いやすいよう、現在選択している範囲に対して一重下線を引くマクロを作成しました。
Sub AddUnderlineToSelection()
‘ 選択範囲に対して一重下線を引くマクロ
‘ エラー回避のため、選択範囲がセルであることを確認
If TypeName(Selection) <> “Range” Then
MsgBox “セルを選択してから実行してください。”
Exit Sub
End If
‘ 選択範囲のフォントに一重下線を設定
Selection.Font.Underline = xlUnderlineStyleSingle
MsgBox “選択範囲に下線を引きました。”
End Sub
応用と注意点
現場で活用する際のポイントをいくつか紹介します。
1. 条件付き書式との使い分け：もし、値が特定の条件になった時に自動で下線を引くのであれば、VBAよりもExcel標準機能の「条件付き書式」を使う方がメンテナンス性は高いです。VBAを使うのは、マクロでのデータ加工の「ついでに」書式を整えたい、あるいは複雑な判定ロジックが必要な場合に限定しましょう。
2. 一括解除の方法：下線を消したい場合は、プロパティに「xlUnderlineStyleNone」を代入します。
3. セルの保護：シートが保護されていると、VBAでも書式設定が変更できません。マクロの冒頭で「ActiveSheet.Unprotect」を入れるなどの工夫が必要になる場合がありますので注意してください。
まずは上記のサンプルコードを標準モジュールに貼り付けて、ショートカットキーを割り当ててみてください。これだけで、資料作成のスピードが確実に変わりますよ！
