文字に下線を設定する【Underlineプロパティ】【ExcelVBA】

構文
Font.Underlineプロパティのサンプルコード
注意点
関連記事

構文

Range.Underline = expression

expression・・・文字に下線を設定するor解除する値を入れる。

Rangeオブジェクトの FontのUnderlineプロパティで文字に下線を設定します。
使用可能な定数は以下です。

■XlUnderlineStyleクラス

定数	値	下線の種類
xlUnderlineStyleDouble	-4119	二重下線
xlUnderlineStyleDoubleAccounting	5	二重下線（会計)
xlUnderlineStyleNone	-4142	無し
xlUnderlineStyleSingle	2	一重下線
xlUnderlineStyleSingleAccounting	4	一重下線（会計)

Font.Underlineプロパティのサンプルコード

Public Sub sample()

    '■セルA1の文字に下線を設定(一重下線)にする
    Range("A1").Font.Underline = xlUnderlineStyleSingle
    Debug.Print Range("A1").Font.Underline '2
    
    '■セルA1を含む表に対して文字に下線を設定(一重下線(会計))にする
    Range("A1").CurrentRegion.Font.Underline = xlUnderlineStyleSingleAccounting
    
    '■シート全体の文字に下線を設定(二重下線)にする
    Cells.Font.Underline = xlUnderlineStyleDouble
    
    '■セルB2の文字に下線を設定(二重下線(会計))にする
    Cells(2, 2).Font.Underline = xlUnderlineStyleDoubleAccounting

    '■セルB1の文字の下線をなしにする
    Range("B1").Font.Underline = xlUnderlineStyleNone

End Sub