【エクセルマクロ】配列を使ってセルに色付け:3選

VBA-配列を使ってセルに色付け-アイキャッチ ExcelVBA

このページのマクロコードは、コピペで使えます。
ぜひお試しください!

配列を使ってセルに色付け(パターン1)

以下のExcelVBAを実行すると、配列を使ってセルに色付けします。


Sub 配列を使ってセルに色付け()

Dim i As Long
Dim j As Long
Dim Color(3) As String

    '配列に値格納
    Color(1) = "りんご"
    Color(2) = "みかん"
    Color(3) = "さくらんぼ"
    
    '配列ループ
    For i = 1 To UBound(Color)
 
        '1~20行目までループ
        For j = 1 To 20
            
            'A列の値が、配列の値と一致したら
            If Cells(j, 1).Value = Color(i) Then
            
                'セルを黄色に塗りつぶし
                Cells(j, 1).Interior.ColorIndex = 6
            End If
        Next j
    Next i

End Sub
マクロ実行後

A列の値が配列と一致した場合、セルに色付けします。


 
 

配列を使ってセルに色付け(パターン2)

以下のExcelVBAを実行すると、配列を使ってセルに色付けします。


Sub 配列を使ってセルに色付け()

Dim i As Long
Dim j As Long
Dim Color As Variant

    '配列に値格納
    Color = Array("りんご", "みかん", "さくらんぼ")
    
    '配列ループ
    For i = 0 To UBound(Color)

        '1~20行目までループ
        For j = 1 To 20

            'A列の値が、配列の値と一致したら
            If Cells(j, 1).Value = Color(i) Then

                'セルを黄色に塗りつぶし
                Cells(j, 1).Interior.ColorIndex = 6
            End If
        Next j
    Next i

End Sub
マクロ実行後

A列の値が配列と一致した場合、セルに色付けします。


 
 

配列を使ってセルに色付け(パターン3)

以下のExcelVBAを実行すると、配列を使ってセルに色付けします。


Sub 配列を使ってセルに色付け()

Dim i As Long
Dim j As Long
Dim Char As Variant
Dim Color As Variant

    '配列に値格納
    Char = Array("りんご", "みかん", "さくらんぼ")
    
    '配列に色を格納
    Color = Array(vbYellow, vbGreen, vbCyan)
    
    '配列ループ
    For i = 0 To UBound(Char)

        '1~20行目までループ
        For j = 1 To 20

            'A列の値が、配列の値と一致したら
            If Cells(j, 1).Value = Char(i) Then

                'セルを塗りつぶし
                Cells(j, 1).Interior.Color = Color(i)
            End If
        Next j
    Next i

End Sub
マクロ実行後

A列の値が配列 [Char] と一致した場合、セルに色付けします。

・「りんご」の場合:vbYellow
・「みかん」の場合:vbGreen
・「さくらんぼ」の場合:vbCyan


 
 
この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】色付けを自動化する使用例まとめ
 

【エクセルマクロ】色付け処理を自動化する:超便利31選
...

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!