質問: ExcelVBAについてです。 条件付き書式において 次の値を含むで、値が4〜10、書式は黄色で塗りつぶしです。 この場合どうすれば良いでしょうか。
回答: A1:A20に設定する例です。 Sub test() Dim i As Long, rng As Range Set rng = Range("A1:A20") '設定範囲をここで記述 With rng.FormatConditions .Delete For i = 9315 To 9321 With .Add(xlTextString, String:=ChrW(i), TextOperator:=xlContains) .Interior.Color = vbYellow End With Next End With End Sub