[已解决]用VBA改写自定义函数有两个参数 不要用字典方法

laoau138

用VBA改写自定义函数有两个参数    不要用字典方法

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-7-6 13:44

1. Function COLORSUM(Rngs As range, Clrs As range)
   
2. Dim rng As range, clr As range, n&
   
3. For Each rng In Rngs
   
4.   For Each clr In Clrs
   
5.     If rng.Interior.Color = clr.Interior.Color Then n = n + 1: Exit For
   
6.   Next clr
   
7. Next rng
   
8. COLORSUM = n
   
9. End Function

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Function COLORSUM(Rngs As range, Clrs As range)
   
2. Dim rng As range, clr As range, n&
   
3. For Each rng In Rngs
   
4.   For Each clr In Clrs
   
5.     If rng.Interior.Color = clr.Interior.Color Then n = n + 1: Exit For
   
6.   Next clr
   
7. Next rng
   
8. COLORSUM = n
   
9. End Function

复制代码

chart888

你就这么不喜欢字典吗

laoau138

chart888 发表于 2017-7-6 13:52
你就这么不喜欢字典吗

这个有可能

chart888

laoau138 发表于 2017-7-6 14:52
这个有可能

你也是个挺执着的人

laoau138

大灰狼1976 发表于 2017-7-6 13:44

VBA只用数组不用字典把B列不相同名字   提取到E2开始输出


http://www.excelpx.com/thread-431791-1-1.html

laoau138

chart888 发表于 2017-7-6 14:53
你也是个挺执着的人

VBA只用数组不用字典把B列不相同名字   提取到E2开始输出


http://www.excelpx.com/thread-431791-1-1.html

laoau138

chart888 发表于 2017-7-6 14:53
你也是个挺执着的人

不用format函数不用instr函数，只用VBA数组方法改写这个遗漏计算


http://www.excelpx.com/thread-432089-1-1.html