excel - Excel 2007 - 条件格式 - 如何将颜色代码转换为颜色？

Question

我有一个非常简单的宏代码，它显示了记录在单元格内的颜色代码的颜色：

Sub ShowColour()
    ColCod = Selection()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = ColCod
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

我现在正在寻找某种方法将单元格的内容更改为另一种颜色代码并立即显示它的颜色。我已经尝试过条件格式，但似乎我只能在预定义的格式中进行选择。任何人都可以给我一个提示吗？

Answer 1

如果我猜对了，您需要将此代码添加到适当的工作表模块中，例如名为“Sheet1 (Sheet1)”的模块（而不是像 Module1 这样的标准模块）。因此，此代码将为您触发适当的事件。

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ErrorHandler
With Target.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = Target.Value
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With

Exit Sub
ErrorHandler:
    MsgBox "Color number rather doesn't exists"
End Sub

我将您的基本代码保留在里面，因为它对您来说更容易。