カテゴリ: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] カテゴリの最新記事
|