取消線を設定する

 

Sub test()

 

  ' B3に取消線を設定
  Cells(3, 2).Font.Strikethrough = True

End Sub

 

実行結果

 

 

取消線を解除する

 

Sub test2()

 

  ' B3に取消線を解除
  Cells(3, 2).Font.Strikethrough = False

 

End Sub

 

実行結果

 

関連記事 

 

VBA セル罫線操作(罫線太さや色)

VBA セル罫線操作(罫線種類)

VBA セル罫線操作(罫線位置)

VBA セルの操作 文字書体設定

VBA セルの操作 もじ色の設定

VBA セルの操作 背景色の設定

VBA セルの操作 値の代入

VBA始める前の準備

VBAとは?

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る