構文
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
注意点
- MicrosoftのヘルプにはxlUnderlineStyleSingleAccountingはサポートされていないとの事ですが、
現在も設定可能です。Excel2019 21/07/17時点
コメント