Excel-VBA 該当文字のセルを含む行に色をぬるマクロ

Excel VBAマクロ。今回は
該当文字のセルを含む行に色をぬるマクロ
を示す。

■Excel-VBA 該当文字のセルを含む行に色をぬるマクロ

Sub sample43()

For k = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(k, 15) = "新方式" Then
Rows(k).Interior.ColorIndex = 44
End If
Next k

End Sub

※[3.] 1行目から最終行までFor Nextループ。
※[4.~6.] 15列目(O列)セルが「新方式」の場合、
セルを含む行をカラーインデックス44の色でぬる。
※[7.] 次の処理にうつる。

■マクロ実行対象

ワークブック「部品データ_191128.xlsx」

■マクロ実行結果

実行すると、15列目(O列)セルが「新方式」の場合、
セルを含む行をカラーインデックス44の色でぬる。

■あとがき

今回はExcel VBAマクロ。
該当文字のセルを含む行に色をぬるマクロ
を示した。

該当文字セルを含む行に色をぬりたい場合に使う。

LibreOffice Basicで使う場合は
コードの先頭行に
「Option VBASupport 1」を記述する。

Option VBASupport 1

以上。