ExcelVBA小技該当文字のセルに色を付ける

VBAを使ってセルに指定された文字が入っているセルのみ色を変えます。

「条件付き書式」で色指定をするとコピペした時に「条件付き書式」もコピペされてしまい何万行の「条件付き書式」になってしまったことがあったのでVBAで１回実施すれば、そんなことはなくなります。

Sub aa()
With Worksheets("Sheet1").Range("A1:C3").FormatConditions.Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:="当")
.Interior.Color = XlRgbColor.rgbLightPink
End With
End Sub

ちなみに「条件付き書式」が増えすぎてしまった場合は以下のVBAで削除できます

Worksheets("Sheet1").Range("A1:C3").FormatConditions.Delete

【Excel VBA】Colorプロパティの設定値　XlRgbColor定数と色の対応表（アルファベット順）

VBAを使ってセルに指定された文字が入っているセルのみ色を変えます。

コメントを残す コメントをキャンセル

コメントを残すコメントをキャンセル