作者ZZZZ0 (不靠近不遥远)
看板Visual_Basic
标题[VB6 ]excel中函数的写法
时间Fri Apr 21 22:40:57 2006
在excel中，并没有类似Or、And、Nor，这种逻辑运算式的函数，
小弟就利用函数的方式来进行自订代表该逻辑运算的函数，
资料如下：
Function ORR(Num1, Num2)
ORR = Num1 Or Num2
End Function
结果：
假设excel资料
A B C D E
1 566 245 24568 234
在巨集中开VB6插入模组，把上述函数输入
之後，欲检定A1/C1 或 B1/D1 其中一个小於0.05时，在E1显示为1，否则0
E1公式=IF(ORR(A1/C1<0.05,B1/D1<0.05),1,0)
目前为止，这样的函数是没有问题的！
如果今天欲检定的不是两组，而更多时，上面写的函数就失灵了，
比如：
A B C D E F G H
1 566 245 24568 234 3 324 2348 2346
若欲检定这四组A1/E1、B1/F1、C1/G1、D1/H1其中是否有小於0.05时
上述的函数只能输入两个变数
必须修正成
Function ORR(Num1, Num2, Num3, Num4)
ORR = Num1 Or Num2 Or Num3 Or Num4
End Function
问题在於，如果我的组数是有可能变动的话，换成上一行的函数时，
而只输入Num1, Num2，就会出现错误…
我没有有可能定义一个函数，像是excel中预设的的Sum(Num1, Num2, )-->最多30组
就是我希望建立一个通用的函数
在当我只输入Num1, Num2, Num3 或 输入Num1, Num2, Num3, Num4 甚或更多时，
函数都可以通用
如果成功的话，以後就能在Excel里面自订逻辑运算的函数了！（常常需要用到）
谢谢各位高手的帮忙，这个问题对小弟真的很重要。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.133.92.158