![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
セルに設定した文字列に
・取り消し線を引く
ことが出来ます!
![セルに取り消し線](https://excel-vba.work/wp-content/uploads/2021/02/vba_torikesisen_003.png)
VBAコード
ここでは例として、
・シート「sample」のセル「B5」に
・取り消し線
を引きます。
![セルに取り消し線(実行前)](https://excel-vba.work/wp-content/uploads/2021/02/vba_torikesisen_001.png)
Sub sample()
'取り消し線を引く
Worksheets("sample").Range("B5").Font.Strikethrough = True
End Sub
実行結果
セルに取り消し線を引くことが出来ました。
![セルに取り消し線(実行後)](https://excel-vba.work/wp-content/uploads/2021/02/vba_torikesisen_002.png)
参考
上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。
●「Rangeオブジェクト」の「Font」プロパティ
●「Fontオブジェクト」の「Strikethrough」プロパティ