Excel 書式を判定する

2024/02/09

カテゴリ：Excel

Sub 書式いろいろ判定()

　'取り消し線の判定

　If Selection.Font.Strikethrough = True Then

　　　MsgBox "取り消し線が付いています"

　Else

　　　MsgBox "取り消し線は付いていません"

　End If

　'文字色有無の判定

　If Selection.Font.ColorIndex = xlAutomatic Then

　　　MsgBox "文字の色は自動（黒）です"

　Else

　　　MsgBox "文字に色が付いていません"

　End If

　'背景色有無の判定

　If Selection.Interior.Pattern = xlNone Then

　　　MsgBox "背景色が付いていません"

　Else

　　　MsgBox "背景色が付いています"

　End If

　'太字の有無の判定　

　If Selection.Font.Bold = True Then

　　　MsgBox "太字です"

　Else

　　　MsgBox "太字ではありません"

　End If

　'斜体（イタリック）有無の判定

　If Selection.Font.Italic= True Then

　　　MsgBox "斜体です"

　Else

　　　MsgBox "斜体ではありません"

　End If

End Sub

[引用元]
Excelのこととか色々
※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。

お気に入りの記事を「いいね！」で応援しよう

Last updated 2024/02/09　10:02:05 AM
コメント(0) | コメントを書く

[Excel] カテゴリの最新記事