下線の設定

次は下線の設定です。下線を設定するにはFontオブジェクトの「Underline」プロパティを使います。

Dim font1 As Font

Set font1 = Range("A1").Font
font1.Underline = True

Fontオブジェクトを別途取り出さずに、次のようにまとめて記述しても構いません。

Range("A1").Font.Underline = True

「Underline」プロパティは単に「True」を設定した場合には1本線の下線が引かれます。1本線以外の形状の線を引く場合には次のどれかの値を設定して下さい。

定数	下線の種類
xlUnderlineStyleNone	無し
xlUnderlineStyleSingle	下線
xlUnderlineStyleDouble	二重下線
xlUnderlineStyleSingleAccounting	下線（会計)
xlUnderlineStyleDoubleAccounting	二重下線（会計)

二重下線を引く場合には次のように記述します。

Range("A1").Font.Underline = xlUnderlineStyleDouble

サンプルプログラム

では簡単なサンプルで試してみましょう。

testcellfont3.bas

Sub テスト()
    
    Range("B2:B5").Value = "ABC"

    Range("B2").Font.Underline = xlUnderlineStyleSingle
    Range("B3").Font.Underline = xlUnderlineStyleDouble
    Range("B4").Font.Underline = xlUnderlineStyleSingleAccounting
    Range("B5").Font.Underline = xlUnderlineStyleDoubleAccounting

End Sub

上記マクロを実行すると次のようになります。

OfficePro