通过自定义公式格式化单元格

Question

我想在工作表中实现自定义功能，以便可以在单元格中输入数字，并且单元格颜色将更改为该数字的RGB值。是否可以使用自定义公式执行此操作？比如，单元格中的公式看起来像=SHOWCOLOR(123456)，VB函数看起来像这样：

Function ShowColor(cv As Integer)
ActiveCell.Select
    With Selection.Interior
        .color = cv
    End With
End Function

我尝试了这种方法，但收到了'错误的类型数据值'错误。

Answer 1

一个函数只能返回一个值，但是事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Interior.Color = Target.Value
End Sub

将为您提供所需的功能。