エクセルvbaの対象セルに色をつける 例えば a日付 b種類 c値段 dその他 にんじん 50 ぴー

エクセルvbaの対象セルに色をつける

例えば
a日付 b種類 c値段 dその他
　　　　　　にんじん　　　50
　　　　　　ぴーまん 100
　　　　　　にんにく 250
ピーマン 150

みたいな表があって

［やりたい事］
B列の種類にピーマン、C列に100円があれば
AからD列セルを黄色に

B列がピーマン　C列が150円は
赤色にしたい場合はどうすればいいですか？

自分なりに調べたらB列:B列で［ピーマン］の場所を検索して(dir)色をつけるみたいなことが書いてありましたがよく意味がわかりませんでした

No.1 ベストアンサー 回答者： kigoshi 回答日時： 2024/10/15 15:13

何も考えずに書かれていることだけを実現するなら

Sub sample()
Dim rIdx As Long
Dim endRow As Long
endRow = Range("A1048576").End(xlUp).Row
For rIdx = 1 To endRow
If (Cells(rIdx, 2).Value = "ピーマン") And (Cells(rIdx, 3).Value = 100) Then
Range(Cells(rIdx, 1), Cells(rIdx, 4)).Interior.Color = vbYellow
End If
If (Cells(rIdx, 2).Value = "ピーマン") And (Cells(rIdx, 3).Value = 150) Then
Range(Cells(rIdx, 1), Cells(rIdx, 4)).Interior.Color = vbRed
End If
Next
End Sub

とかでいいかと。

これが、条件と色の対応表があってそれを参照しながら・・・・
とかなら、もう少し込み入った話になりますが。

この回答へのお礼

できました。ありがとうございます

お礼日時：2024/10/16 13:50