セルの色を変更する

公開日:2016-09-11 更新日:2020-10-02

VBA Windows

t f B! P L

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

About me

ゆかき(♀)

アラサー駆け出しインフラエンジニア
ど文系営業からSEへ転身し日々奮闘している人

一児の母

#AP応用情報 #HTML5Lv1 #第2種電気工事士 #DCP(Data Center Practitioner) #LPIC Lv2 #VCP6.5 #CCNP #Oracle Bronze #HTMLv5 #TOEIC860

Media

こちらのイベントで記事紹介いただいていた、嬉しい。

Line stamp

僭越ながら販売中

Green cat & Orange cat

Amazon