如何更改有条件格式的单元格的内部颜色索引

Question

If a cell is conditionally formatted I can't simply change the interior color index by cells(row , col).interior.colorindex = 6

I tried this but the format of the cell is lost

                    val = wRes.Cells(i, p)
                    wRes.Cells(i, p).Clear
                    wRes.Cells(i, p).Interior.ColorIndex = 6
                    wRes.Cells(i, p) = val

like certain cells have dates and other have numbers in "00,000" this format are lost.

Answer 1

Use,

wRes.Cells(i, p).FormatConditions.Delete

... to reshape the Applies to: range of existing Conditional Formatting to exclude the cell you want to change.