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

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

2015/07/28

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

Strikethrough プロパティに、True を設定すると指定した対象に取り消し線が表示されます。値の取得および設定が可能です。

【書式】

＜取得＞
object.Strikethrough

＜設定＞
object.Strikethrough = boolean

引数・戻り値

object ・・・対象となる Font オブジェクトを指定します。
boolean ・・・ブール型（Boolean）の値を使用します。True を設定すると取り消し線が表示されます。

取り消し線を設定（Strikethrough プロパティ) 使用例

サンプルVBAソース

　
Sub Sample_Font04()

    With Range("B2")
        
        .Value = "あいうえおかきくけこ"
        
        .Font.Size = 14
    
        .Font.Strikethrough = True
        
        .EntireColumn.AutoFit
    
    End With
         
    
    With Range("B5")
    
        .Value = "たちつてとなにぬねの"
        
        .Font.Size = 20
        
        .Characters(Start:=6, Length:=3).Font.Strikethrough = True
        
        .EntireColumn.AutoFit
    
    End With


End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

　

Sub Sample_Font04()

With Range("B2")

.Value = "あいうえおかきくけこ"

.Font.Size = 14

.Font.Strikethrough = True

.EntireColumn.AutoFit

End With

With Range("B5")

.Value = "たちつてとなにぬねの"

.Font.Size = 20

.Characters(Start:=6, Length:=3).Font.Strikethrough = True

.EntireColumn.AutoFit

End With

End Sub

　

実行結果

- VBA基本 Font オブジェクト, Strikethrough プロパティ, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

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

関連記事

: CPU に制御を移す（DoEvents 関数）

DoEvents 関数 DoEvents 関数を実行すると、CPU に制御を移し …

: 書式を変換（Format 関数）

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

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

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

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

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

: ユーザー設定リストを使って並べ替える（Sort）

VBAでリスト、テーブルを並べ替える（Sort） VBAで、ソートを行うには、S …

: VBA で正規表現を使う（RegExp オブジェクトのプロパティ）

RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …

: 日付時刻：年・月・日を取得（Year、Month、Day 関数）

日付から年・月・日を取得する関数【書式】 date_year = Year ( …

: 列挙型変数（Enum ステートメント）

列挙型変数を使う列挙型変数を使用するには、Enum ステートメントを使って、宣 …

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

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

: Split 関数（文字列型の一次配列を作成）

Split 関数の使い方【書式】 myArray = Split ( expr …

PREV: フォントサイズ（Size プロパティ・StandardFontSize プロパティ）
NEXT: 上付き文字・下付き文字（Superscript,Subscript）