自定义函数的问题

希望123456

Function ysqh(n As Range, ParamArray arr()) 'ParamArray表示区域不定
s = n.Interior.Color
For Each x In arr
    For Each y In x
      If y.Interior.Color = s Then
       num = num + y
      End If
    Next
Next
ysqh = num
End Function
两个疑问，为什么要用ParamArray arr()，为什么要用双循环？

fanyoulin

两个都没必要，原函数把问题搞复杂了；

我改成了函数 abc ，参见截图；

蓝桥玄霜

因为ParamArray表示区域不定，有可能是A1:D7，此时只有arr(0)，也有可能是A1:D7，F1:I7，此时有arr(0),arr(1)
x就在arr的0～1之间循环，每一个x中有28个数据，y就在x中循环。

沈默00

蓝桥玄霜 发表于 2023-6-16 10:44
因为ParamArray表示区域不定，有可能是A1:D7，此时只有arr(0)，也有可能是A1:D7，F1:I7，此时有arr(0),arr( ...

蓝版的说的这个灵活多变，适用性强

希望123456

fanyoulin 发表于 2023-6-16 10:23
两个都没必要，原函数把问题搞复杂了；

我改成了函数 abc ，参见截图；

我试过你这种做法，缺点就是只能对单一数据区域计算！用那个可以任意多个区域，连续的或者不连续的区域计算

yylucke

蓝桥玄霜 发表于 2023-6-16 10:44
因为ParamArray表示区域不定，有可能是A1:D7，此时只有arr(0)，也有可能是A1:D7，F1:I7，此时有arr(0),arr( ...

谢谢蓝版，学习了ParamArray arr()

fanyoulin

希望123456 发表于 2023-6-16 11:32
我试过你这种做法，缺点就是只能对单一数据区域计算！用那个可以任意多个区域，连续的或者不连续的区域计 ...

用处不太大，多个不连续的区域可以写成 =abc()+ABC()+...的形式，这与 =ysqh(n,x1,x2,x3,x4...)并没有本质的不同

希望123456

fanyoulin 发表于 2023-6-16 12:10
用处不太大，多个不连续的区域可以写成 =abc()+ABC()+...的形式，这与 =ysqh(n,x1,x2,x3,x4...)并没有本 ...

关键问题是区域没有固定死了，比如说这次我用两个区域，下次我用四个区域，都能计算出结果！最多支持255个区域

fanyoulin

希望123456 发表于 2023-6-16 12:34
关键问题是区域没有固定死了，比如说这次我用两个区域，下次我用四个区域，都能计算出结果！最多支持255 ...

1、规范的数据区域通常是集中在一起的，不会乱七八糟到处乱放，大多数情况下只需要一个较大的区域；
2、个别多区域的情况，两个区域就写两个函数相加，4个区域就写4个函数相加，跟你的需求并不矛盾；

ykcbf1100

多区域计算理论上研究一下是可以的，现实中用得很少，特别是用了VBA后，用得更少。