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

関連記事

: 日付時刻：数値から日付・時刻データを取得（ DateSerial 関数、TimeSerial 関数）

DateSerial 関数（数値を使って日付データを取得）【書式】 date …

: 文字列：定数（改行・タブ）

改行・タブの定数これらの定数は、使用前に定義する必要はありません。コード中のど …

: 上付き文字・下付き文字（Superscript,Subscript）

上付き文字（Superscript プロパティ） Superscript プロパ …

: 色の設定（Color プロパティ・RGB 関数）

Color プロパティ Color プロパティは、指定したオブジェクトの色を取得 …

: 配列の要素数を取得する（UBound 関数・LBound 関数）

UBound 関数・LBound 関数【書式】 result = UBound …

: 文字列：文字を指定数並べた文字列を返す（String 関数）

String 関数【書式】 result = String ( number, …

: 出力位置、書き込み位置を設定（Tab 関数）

出力位置、書き込み位置を設定 Tab 関数は、Print メソッド、または P …

: ショートカットメニュー（CommandBar オブジェクト）

ショートカットメニュー（コンテキストメニュー）右クリックで表示されるメニューの …

: 日付時刻：時・分・秒を取得（Hour、Minute、Second 関数）

日付時刻から時・分・秒を取得する関数【書式】 time_hour = Hour …

: 文字列：指定した文字の文字コードを取得する（Asc 関数）

Asc 関数【書式】 result = Asc ( string ) 引数・戻 …

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