Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

文字に下線を設定する（Underline プロパティ）

2015/07/29 2015/08/26

下線を設定（Underline プロパティ）

Underline プロパティは、文字に下線を設定します。設定には、XlUnderlineStyle 列挙型の定数を使用します。値の取得および設定が可能です。

【書式】

＜取得＞
object.Underline

＜設定＞
object.Underline = const

引数・戻り値

object ・・・対象となる Font オブジェクトを指定します。

const ・・・下線の種類を表すXlUnderlineStyle 列挙型の定数を指定します。

定数	値	内容
xlUnderlineStyleNone	-4142	下線なし
xlUnderlineStyleSingle	2	一重下線
xlUnderlineStyleDouble	-4119	二重下線
xlUnderlineStyleSingleAccounting	4	一重下線（会計）
xlUnderlineStyleDoubleAccounting	5	二重下線（会計）

下線を設定（Underline プロパティ）使用例

サンプルVBAソース

　
Sub Sample_Font06()

    Range("B3:F3").Value = "aaa"
    
    '一重下線
    Range("B3").Font.Underline = xlUnderlineStyleSingle
    
    '二重下線
    Range("C3").Font.Underline = xlUnderlineStyleDouble
    
    '一重下線（会計）
    Range("D3").Font.Underline = xlUnderlineStyleSingleAccounting
    
    '二重下線（会計）
    Range("E3").Font.Underline = xlUnderlineStyleDoubleAccounting
    
    '下線なし
    Range("F3").Font.Underline = xlUnderlineStyleNone
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

　

Sub Sample_Font06()

Range("B3:F3").Value = "aaa"

'一重下線

Range("B3").Font.Underline = xlUnderlineStyleSingle

'二重下線

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

'一重下線（会計）

Range("D3").Font.Underline = xlUnderlineStyleSingleAccounting

'二重下線（会計）

Range("E3").Font.Underline = xlUnderlineStyleDoubleAccounting

'下線なし

Range("F3").Font.Underline = xlUnderlineStyleNone

End Sub

　

実行結果

- VBA基本 Font オブジェクト, Underline プロパティ, VBA基本, XlUnderlineStyle 列挙型, エクセルVBA, 下線

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 取り消し線を設定する（Strikethrough プロパティ)

取り消し線を設定する（Strikethrough プロパティ) Striketh …

: VBA の演算子（論理演算子：And、Eqv、Imp、Not、Or、Xor）

論理演算子論理演算を行うときに使用する演算子で、以下の 6 種類があります。 …

: 指定した値を8進数で表記した文字列に変換する（Oct 関数）

Oct 関数の使い方【書式】 result = Oct ( expressi …

: 配列（多次元配列・配列の次元の変更）

多次元配列【書式】　多次元配列の宣言＜静的配列（固定長配列）＞ Dim my …

: Array 関数（バリアント型の配列を作成）

Array 関数の使い方【書式】 myArray = Array ( elem …

: 文字列：文字列変数内の一部を置き換える（Mid・MidB ステートメント）

Mid・MidB ステートメントの使い方【書式】 { Mid | MidB } …

: 変数が数値型かどうかをチェックする（ IsNumeric 関数）

IsNumeric 関数の使い方【書式】 result = IsNumeric …

: IME の現在の状態を取得します（IMEStatus 関数）

IMEStatus 関数の使い方【書式】 result = IMEStatus …

: データ型を調べて、そのデータ型を示す数値を返す（VarType 関数）

VarType 関数の使い方 VarType 関数は、引数に、データ型を調べた …

: 変数が配列かどうかをチェックする（ IsArray 関数）

IsArray 関数の使い方【書式】 result = IsArray( va …

PREV: 上付き文字・下付き文字（Superscript,Subscript）
NEXT: XlThemeColor 列挙型