Question

vba中如何定义自定义函数来改变使用该函数的单元格的颜色？

比如函数定义为colors
在 A1中输入=colors(50,50,50） 回车，背景变成灰色

我试着加入个按钮，按钮事件可以直接给单元格改变颜色，用函数就是不行。请问是何原因？

另外，调用自身（就是函数所在的单元格）的语法是怎么样的？
比如我想给A1改变颜色必须这么写么？可以不传递参数么？
A1=colorS(a1)

Function colorS(g As Range)
g.Interior.ColorIndex = 4 ‘这个没有效果，而且结果是错误值
colorS = g.Interior.Color
End Function

而 这个就可以执行
Sub 按钮1_Click()
Range("e9").Interior.ColorIndex = 4
End Sub

Answer 1

在A1中输入=colors(50,50,50） 回车，背景变成灰色
——这是做不到的。原因如下：
A1输入函数colors，函数只能返回值给A1，而不能返回一个操作给A1

追问

也就是说单用自定义函数是不能改变背景颜色的对吧？

另外一个问题，函数如何调用自身，比如说我想知道写了这个函数所在的背景色是什么。是不是 只能传个参数进来 像上面那样

而不能直接
Function colorS()
colorS = 这里怎么写.Interior.Color
End Function
这样？

追答

我觉得我没给你解释清楚，我重新说一次：

Function colors(R, G, B, Rg As Range) As String
Rg.Interior.Color = RGB(R, G, B)
colors = ""
End Function

如果你把它当做是一个普通的函数，在excel表格上输入=colors(255,0,0,A1)

这时，A1单元格只会返回一个空值，而Rg.Interior.Color = RGB(R, G, B)这句直接没有任何作用。颜色没有变红

 

但是，如果你在vba中，用一个过程调用colors，它又正常的

Sub test()
Call colors(250, 0, 0, Range("A1"))
End Sub

通过test调用colors，A1变成红色了。

 

“另外一个问题，函数如何调用自身，比如说我想知道写了这个函数所在的背景色是什么。是不是 只能传个参数进来 像上面那样”——没错。函数所在的单元格只会接受函数的返回值，不会倒过来把单元格的信息（例如背景色）传进参数里。除非你人工传参数给它，而且这个参数正好是单元格本身的信息。

例如：

Function colors(Rg As Range)
colors = Rg.Interior.Color
End Function

你在A1中使用这个colors，参数也填了A1，这才可以。

Answer 2

Application.ThisCell.Font.Color=vbRed