000000 ランダム
 HOME | DIARY | PROFILE 【フォローする】 【ログイン】

Excelとか・・・

Excelとか・・・

【毎日開催】
15記事にいいね!で1ポイント
10秒滞在
いいね! --/--
おめでとうございます!
ミッションを達成しました。
※「ポイントを獲得する」ボタンを押すと広告が表示されます。
x

PR

Free Space

にほんブログ村 その他生活ブログ 日課・生活習慣へ にほんブログ村 家族ブログ 家族情報へ にほんブログ村 その他生活ブログ 買い物・お使いへ

Profile

tuna725

tuna725

Archives

2024/06
2024/05
2024/04
2024/03
2024/02
2024/02/09
XML
カテゴリ: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) | コメントを書く



© Rakuten Group, Inc.