【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 = "0_ " Then    '表示形式が数値の場合は
   
      search_Cell.Interior.ColorIndex = 35          'セルを薄い緑色で塗りつぶします。
      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 = "#,##0_ " Then '表示形式が数値で桁区切りの場合は
   
      search_Cell.Interior.ColorIndex = 36           'セルを薄い黄色で塗りつぶします。
      Flag = True
      
   End If
   
Next search_Cell

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

   MsgBox "セルの書式設定の表示形式が「数値で桁区切り(,)」のセルを薄い黄色で塗りつぶしました。"
   
Else

   MsgBox "セルの書式設定の表示形式が「数値で桁区切り」のセルはありません。"
   
End If

End Sub