Re: [VB6 ]excel中函數的寫法

[fumizuki (矇面加菲獅)]

Function orr(ParamArray x()) As Boolean

    orr = False '這行可以省略
    For Each e In x
        orr = orr Or e
        If orr Then Exit Function '只要為 True，之後的就不必繼續運算了。
    Next

End Function


=orr(a1<0.5,a2<1,a3<0.5,a4>1,.....)



--
突然把orr想成orz...

--
                                ▃▅▇▆▄                         ▆▂▃  `  
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃                ▇▃▂"  .
                                    █████████▃i              ▁▄▇ 
              更多悽悽慘慘的遭遇…………██▆▃                █▅▆▃ˍ▄* 
                                                 ◢           ▂█▄▇▅▂▌. 
我不知道，王～八～蛋～～！           ▂▆███    █▄▃  。fumizuki。Check。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 210.58.156.43
推 ZZZZ0:謝謝！！！