Home » Excel VBA Rangeオブジェクト » セル全体に取り消し線が引かれているかVBAで判定する

セル全体に取り消し線が引かれているかVBAで判定する

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2205 ビルド15225.20204 Microsoft Store）

「vba 取り消し線 判定」
「EXCEL vba 取り消し線 判別」
のような検索で時折アクセスがあります。

Excel VBAで、セルに取り消し線が引かれているかどうかを判定するには、どのようなコードを書けばいいのかを探していらしたのでしょうか。

［スポンサードリンク］

セル全体に取り消し線が引かれているか判定するサンプルマクロ

以下のExcelマクロを実行すると、アクティブセルに取り消し線が引かれているかどうかを判定して、メッセージが表示されます。

Sub セル全体に取り消し線が引かれているか判定する()
　If ActiveCell.Font.Strikethrough Then
　　MsgBox "取り消し線が引かれています。"
　Else
　　MsgBox "アクティブセルの全体には、取り消し線が引かれていません。"
　End If
End Sub

Font.Strikethroughで取り消し線が引かれているか判定できる

フォントを表すFontオブジェクトに用意されているStrikethroughプロパティを使うと、

取り消し線が引かれているかどうかを判定できます。

上記のマクロでは、ActiveCellプロパティで取得した

If ActiveCell.Font.Strikethrough Then

Rangeオブジェクトに用意されているFontプロパティで、Fontオブジェクトを取得しています。

If ActiveCell.Font.Strikethrough Then

Font.Strikethroughの戻り値がBooleanであることを確認しよう

Font.Strikethroughプロパティの戻り値は「As Variant」と定義されていますが、

実際にはBooleanであることを、拙著『いちばんやさしいExcel VBAの教本』や、『いちばんやさしいPowerPoint VBAの教本』でも繰り返し使用しているローカルウィンドウで確認できます。

以下のようなSubプロシージャを実行して、

Sub Fontオブジェクトを確認する()
　Dim fon As Font
　Set fon = ActiveCell.Font
　Stop
End Sub

Stopステートメントで中断したら、ローカルウィンドウを表示して、オブジェクト変数fonを展開すると下図のような状態になっていることを目視確認できます。

セルの一部に取り消し線が引かれているかどうかの判定については、別記事で解説します。セルの一部でも取り消し線が引かれているかを判定するコードについての記事を公開しました（2022-06-28）。

最終更新日時：2022-06-28 15:15

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » セル全体に取り消し線が引かれているかVBAで判定する

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓
3年前(2021年4月)の
人気記事
1位:Windows 10で手書き入力するIMEパッドを表示するには
2位:IF関数で○○以上××以下という条件を指定する
3位:右から（後から・末尾から）n文字を削除したい
4位:IF関数で空白なら空白にする
5位:COUNTIF関数で「○○以上」「○○以下」の指定
6位:IF関数で空白でない場合・空白でなければの書き方
7位:左から（前から・先頭から）n文字削除する方法



「Excel VBA Rangeオブジェクト」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.