如何通过Function自动改变满足条件的单元格填充色？

wantmn

1. Function Co(arr As Range, c As Range)
   
2.     Dim rng As Range
   
3.     For Each rng In arr
   
4.         If c = rng Then
   
5.             Co = c
   
6.             Co.Interior.Color = RGB(255,0,0)
   
7.             Exit For
   
8.             Else: Co = ""
   
9.        End If
   
10.     Next
    
11. End Function

复制代码

如题，我在表格中像输入公式那样调用这个Co，输入“=Co(E9:M9,K25)”会出现“#value!”值错误，错误发生在改变填充色那里。
求助如何实现上面的效果，主要想更改满足条件的单元格的填充色，不用条件格式。
非常感谢！

anzequ

函数不支持这种操作，改用sub

ww87725244

那是你代码写错了

小花鹿

自定义函数不能操作单元格吧                                                                                          

wantmn

ww87725244 发表于 2018-8-15 21:18
那是你代码写错了

求解决办法，非常感谢

wantmn

anzequ 发表于 2018-8-15 20:19
函数不支持这种操作，改用sub

有解决办法吗谢谢

不知道为什么

wantmn 发表于 2018-8-15 21:36
有解决办法吗谢谢

写成 sub 过程

wantmn

不知道为什么 发表于 2018-8-15 22:10
写成 sub 过程

嗯，Function过程不能对单元格区域进行修改，不能执行与对象相关的操作。
但是sub过程貌似不能在单元格调用

wantmn

只能写成单元格更改触发 来改变单元格颜色了