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

时间:2013-08-05 00:56:58

标签: excel excel-vba vba

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

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

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

1 个答案:

答案 0 :(得分:2)

一个函数只能返回一个值,但是事件宏:

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

将为您提供所需的功能。