1

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

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

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

4

1 回答 1

2

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

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

将为您提供所需的功能。

于 2013-08-05T01:17:29.003 回答