セルの色を変更する

セルの色を変更する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プロパティ値をイミディエイトウィンドウから調べる

Share this:

Like this: