ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【Excel VBA】キーワードが含まれるセルにColorIndexの番号の色の塗りつぶしをするマクロ。




どうも、ゴリラストロングです。

 

 

 

今回もエクセルマクロの記事を書きたいと思います。

キーワードが含まれるセルにColorIndexの番号の色の塗りつぶしをするマクロを作成してみました。

結構汎用性が高いので、便利だと思います。

 

 

 

以下が元データです。

f:id:gorilla-strong:20200222145600p:plain

f:id:gorilla-strong:20200222145620p:plain

 

 スポンサーリンク

 

以下がマクロ実行後です。

f:id:gorilla-strong:20200222145701p:plain

キーワードが含まれるセルに指定のColorIndexの色の塗りつぶしができています。

 

 

 

以下がソースコードです。

 

Sub 自動塗りつぶしマクロ()

Dim key, sample As Object
    Set key = Workbooks("ゴリラストロングの雑記帳.xlsm").Worksheets("キーワードに色をつけるマクロ")
    Set sample = Workbooks("ゴリラストロングの雑記帳.xlsm").Worksheets("サンプルデータ")

Dim lastrowK, lastrowS As Long
    lastrowK = key.Cells(Rows.Count, 1).End(xlUp).Row
    lastrowS = sample.Cells(Rows.Count, 1).End(xlUp).Row


For i = 3 To lastrowK

    For j = 2 To lastrowS


Dim colorindex As Long
    colorindex = key.Range("B" & i)


Dim keyword As String
    keyword = key.Range("A" & i)

    If sample.Range("A" & j) Like "*" & keyword & "*" Then
        sample.Range("A" & j).Interior.colorindex = colorindex
    End If



    Next

Next

End Sub

 

 

 

 

 

If sample.Range("A" & j) Like "*" & keyword & "*" Then

ワイルドカードの中に変数を入れる方法が難しかったです。

 

 

 

 

以上、ゴリラストロングでした。

 

スポンサーリンク