如何在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