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

我保留了你的基本代码，因为它对你来说更容易。

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

1 个答案: