yoshiislandblog.net
元営業の駆け出しアラサーSEが、休日にMACと戯れた際の殴り書きメモ。日々勉強。日々進歩。

この記事は3年以上前に書かれた記事で内容が古い可能性があります

セルの色を変更する

2016-09-11

セルの色を変更するVBAマクロ
(500列500行目まで、、)

Option Explicit

Sub NavyToPink()
' 49 紺色
' 7 ピンク
Dim x As Integer
Dim y As Integer

x = 0
y = 0

For x = 1 To 500
  For y = 1 To 500
    If Cells(x, y).Interior.ColorIndex = 49 Then
      Cells(x, y).Interior.ColorIndex = 7
    End If
  Next
Next

End Sub

color indexは好きな色を直接指定しても良いのですが、「このセルと同じ色が良い!」という場合は以下の方法で調べられます。
ColorIndexプロパティ値をイミディエイトウィンドウから調べる