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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 指定した文字列を数値に変換する（Val 関数）

Val 関数の使い方 Val 関数は、指定した文字列に含まれる数字を数値として …

: フォント名（Name,ThemeFont,StandardFont）

フォント名を取得・設定する（Name プロパティ） Name プロパティは、オブ …

: エラー（CVErr 関数・IsError 関数・Error 関数）

CVErr 関数（エラー番号をエラー値に変換する）の使い方【書式】 retur …

: 文字列：文字列の一部を別の文字列で置換（Replace 関数）

Replace 関数の使い方【書式】 result = Replace ( s …

: メッセージボックスを表示（MsgBox関数）

MsgBox関数【書式】 result = MsgBox ( Prompt [ …

: Join 関数（配列の要素を結合）

Join 関数 1次元配列の各要素を指定した区切り文字で連結します。【書式】 …

: 変数がオブジェクト型かどうかをチェックする（ IsObject 関数）

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

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

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

: 引数が省略されたかどうかをチェックする（ IsMissing 関数）

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

: 対象のオブジェクトをクリアする（Clear メソッド）

Clear メソッド対象となるオブジェクト全体をクリアします。Range オブ …

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