Sub フォントに取り消し線_設定する()

    Range("A1").Font.Strikethrough = True

End Sub