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

関連記事

: 文字列：２つの文字列を比較する（StrComp 関数）

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

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

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

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

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

: ユーザー定義関数：セルを取得する（ThisCell プロパティ）

入力されたセルを取得するワークシート上で使用する Function プロシージ …

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

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

: Math 関数（ Abs,Atn,Cos,Exp,Log,Rnd,Sgn,Sin,Sqr,Tan ）

Abs 関数【書式】 value = Abs ( number ) 【引数・戻 …

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

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

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

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

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

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

: セルのデータを固定長形式で複数のセルに分割する（TextToColumns メソッド・Parse メソッド）

固定長形式でセルを分割 TextToColumns メソッドや Parse メソ …

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