如何在 VBA 中使用“长”型颜色

Question

我想保存一个单元格的颜色，以便稍后在其他单元格上使用它。我知道 VBA 支持 RGB 并且有自己的颜色索引，但是如果你只是保存颜色，你会得到一个“长”类型的值。

如何将这种“长”颜色用于其他单元格而不必将其转换为 RGB？或者没有办法解决这个问题？

temp = "I" & PortsNum 'Number of Cell
sh2.Range(temp).Interior.Color = tempcolors 'Color Value

Answer 1

我相信您仍然可以在 VBA 中使用 RGB 值应用于 Excel 中的单元格。这可能有帮助

Dim clrBlue As Long

clrBlue = RGB(0, 0, 255)

Application.union(Range("A2"), Range("B3")).Interior.Color = clrBlue

或者您可以使用长值：

Dim a As Long    
a = ActiveCell.Interior.Color
ActiveCell.Offset(1, 0).Activate
ActiveCell.Interior.Color = a