通過自定義公式格式化單元格

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 

會得到你所期望的功能。