【ExcelVBA】セルの書式設定の表示形式が「日付」と「文字列」のセルをマクロで調べて色分けする

今回は、表示形式が「日付」と「文字列」に設定されているセルを塗りつぶすマクロを作成します。

表示形式が「日付」と「文字列」のセルを色分けするマクロの作成

開発タブ → Visual BasicをクリックしてVBEを起動します。

前回と同じ「標準モジュール」のModule1を選択して次のコードをコピーして貼り付けます。

Sub 表示形式が日付のセルをベージュで塗りつぶす()

Dim search_Cell As Range
Dim Flag As Boolean

For Each search_Cell In Range("A1:G21")

   If search_Cell.NumberFormatLocal = "yyyy""年""m""月""d""日"";@" Or _
      search_Cell.NumberFormatLocal = "yyyy/m/d;@" Or _
      search_Cell.NumberFormatLocal = "yyyy/m/d" Or _
      search_Cell.NumberFormatLocal = "[$-F800]dddd, mmmm dd, yyyy" Then
   
      search_Cell.Interior.ColorIndex = 40 'セルをベージュで塗りつぶします。
      Flag = True
      
   End If
   
Next search_Cell

If Flag = True Then 'ループ終了後にメッセージを表示する。

   MsgBox "セルの書式設定の表示形式が「文字列」のセルをベージュで塗りつぶしました。"
   
Else

   MsgBox "セルの書式設定の表示形式が「文字列」のセルはありません。"
   
End If

End Sub

Sub 表示形式が文字列のセルをアイボリーで塗りつぶす()

Dim search_Cell As Range
Dim Flag As Boolean

For Each search_Cell In Range("A1:G21")

   If search_Cell.NumberFormatLocal = "@" Then
   
      search_Cell.Interior.ColorIndex = 19 'セルをアイボリーで塗りつぶします。
      Flag = True
      
   End If
   
Next search_Cell

If Flag = True Then 'ループ終了後にメッセージを表示する。

   MsgBox "セルの書式設定の表示形式が「文字列」のセルをアイボリーで塗りつぶしました。"
   
Else

   MsgBox "セルの書式設定の表示形式が「文字列」のセルはありません。"
   
End If

End Sub