vba - 在VBA中设置字体颜色

Question

我想将单元格的字体颜色设置为特定的 RGB 值。

如果我使用

ActiveCell.Color = RGB(255,255,0)

我确实得到了黄色，但如果我使用更奇特的 RGB 值，例如:

ActiveCell.Color = RGB(178, 150, 109)

我刚刚恢复了灰色。

为什么我不能只使用任何 RGB 值？您知道任何解决方法吗？

谢谢。

Answer 1

Excel 仅使用调色板中的颜色。当您使用 RGB 值设置单元格时，它会选择调色板中最接近匹配的单元格。您可以使用您的颜色更新调色板，然后选择您的颜色，这样就可以了。

这将使您看到调色板中当前的内容:

 Public Sub checkPalette()
      Dim i As Integer, iRed As Integer, iGreen As Integer, iBlue As Integer
      Dim lcolor As Long
      For i = 1 To 56
        lcolor = ActiveWorkbook.Colors(i)
        iRed = lcolor Mod &H100  'get red component
        lcolor = lcolor \ &H100  'divide
        iGreen = lcolor Mod &H100 'get green component
        lcolor = lcolor \ &H100  'divide
        iBlue = lcolor Mod &H100 'get blue component
        Debug.Print "Palette " & i & ": R=" & iRed & " B=" & iBlue & " G=" & iGreen
      Next i
    End Sub

这将让您设置调色板

Public Sub setPalette(palIdx As Integer, r As Integer, g As Integer, b As Integer)
  ActiveWorkbook.Colors(palIdx) = RGB(r, g, b)
End Sub