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

2019/12/26

プログラム

t f B! P L
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
以上。

ブログ アーカイブ

ラベル

このブログを検索

スポンサーリンク

自己紹介

機械メーカー総合職正社員10年勤務後退職。 エクセルVBAプログラム歴 5年。 LibreOffice(無料)でVBAマクロ検証。
■Fortniteクエスト攻略動画■
■Twitter■
⇒詳細プロフィールを表示

QooQ