IF/Then VBA 代碼基於單元格顏色。 不值

Question

如果之前有人問過這個，我很抱歉。 我環顧四周，似乎無法找到答案。 我是 VBA 新手，需要一些幫助。

是否可以根據顏色在 VBA 上完成 IF/Then 函數，然后用一個值替換顏色。

例子：

如果 Cell.Interior.ColorIndex = 255 那么 Cell.Value = 1

數據表中的一些紅色單元格已經有一個值，其他的沒有。 我需要將它們全部更改為 1，以便我可以在數據透視表中單獨計算它們。

非常感謝你提前

Answer 1

Cell.Interior.ColorIndex通常是 1 到 56（當前調色板的大小）之間的值，表示調色板中給定顏色的位置。

Cell.Interior.Color屬性是一個 Long 值，表示 RGB 顏色值。 這里 255 將是紅色的 - 與vbRed的值相同

所以

If Cell.Interior.ColorIndex = 255 Then Cell.Value = 1

應該

If Cell.Interior.Color = 255 Then Cell.Value = 1