Excel:Interior.ColorIndex 为同一索引生成不同的值

Question

我想将一系列单元格设置为灰色内部。我想要的灰色就在调色板上的黑色和白色之后(顶行，左起第三个)。

我手动将单元格的内部设置为该颜色，然后使用 vba 向 MsgBox 传递 ColourIndex。结果是 19。但是，当我将单元格的 Interior.ColorIndex 属性设置为等于 19 时，该单元格不是灰色，而是灰白色/奶油色。

以下代码实际上将单元格(单元格 A1)的颜色从灰色更改为奶油色:

Dim r As Range
Set r = Range("A1")

Dim n As Integer

n = r.Interior.ColorIndex

r.Interior.ColorIndex = n

谁能解释一下吗？

Answer 1

我相信ColorIndex仅支持limited number颜色。试试这个:

Dim r As Range
Dim n As Long ' The return values are large, so Integer will overflow

Set r = Range("A1")

' The color is 14806254
n = r.Interior.Color
r.Interior.Color = n

或者为了您的实际目的:

Dim myRange As Range
Dim n As Long

myRange = Range("A1:F1")
n = 14806254

' Color away!
For Each cell In myRange
  cell.Interior.Color = n
Next cell