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

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

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

< スポンサーリンク >

「Strikethrough」プロパティ構文

True ＝ 取り消し線をつける
False ＝ 取り消し線を解除する

取り消し線の設定

取り消し線をつける

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

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

取り消し線を解除する

取り消し線を消します。

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

▼▼  VBAではなく、操作で取り消し線をつけたい場合はこちら  ▼▼
  >> Excel 文字に取り消し線をつける

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします