Excel VBA セルの文字に取り消し線をつける

Excel VBAでセルの文字に取り消し線を付ける方法を記録します。

< スポンサーリンク >

VBAセル取り消し線

取り消し線を付けるには「Strikethrough」プロパティを使います。

 

書き方

Rangeオブジェクト.Strikethrough = True or False

True = 取り消し線をつける
False = 取り消し線をつけない

 

取り消し線

A1のセルの文字に取り消し線をつけてみます。

Sub test()
     Range("A1").Font.Strikethrough = True
End Sub

VBAセル取り消し線

VBAセル取り消し線

 

取り消し線を消します。

Sub test()
     Range("A1").Font.Strikethrough = False
End Sub

VBAセル取り消し線

VBAセル取り消し線

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ