问题如图所示，如何判断现金流是否正常？

makelot

问题见附图和附件，非常感谢！

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("testsheet")
   
5.     arr = .Range("d6:aa6")
   
6.     s = 0
   
7.     For j = 1 To UBound(arr, 2) - 1
   
8.       If Sgn(arr(1, j)) <> Sgn(arr(1, j + 1)) Then
   
9.         s = s + 1
   
10.       End If
    
11.     Next
    
12.   End With
    
13.   If s > 1 Then
    
14.     MsgBox "现金流不正常！"
    
15.   Else
    
16.     MsgBox "现金流正常！"
    
17.   End If
    
18. End Sub
    

复制代码

chxw68

仅供参考。

makelot

chxw68 发表于 2018-9-13 20:42

测试了一下，太棒了！
说实话我这几天一直在想这个事，但思路完全不得其法。没想到您回复的这么快，三下五除二就搞定了。
牛人就是牛人，下来我把代码好好研究下，感觉很奇妙啊！
可惜我今天的鲜花已献完，不过好在一会儿就是明天了。万分感谢！

makelot

1. Public Function JudgeCF(CashFlow As Range) As String
   
2.     arr = CashFlow
   
3.     s = 0
   
4.     For j = 1 To UBound(arr, 2) - 1
   
5.         If Sgn(arr(1, j)) <> Sgn(arr(1, j + 1)) Then s = s + 1
   
6.     Next
   
7.     If s = 1 Then JudgeCF = "OK!" Else JudgeCF = "Alert!"
   
8. End Function

复制代码

改成了函数形式，更实用一点，多谢chxw68帮助！