请高手帮忙

idealcjx

自定义了如下函数，功能为计算序列中，同比增长最大值，即（当年/去年-1）最大的者，并返回此值，若去年同期为0，则跳过。

Function max_growth_rate(arr_cur, arr_pre As Range) As Double
'功能描述：函数返回序列中同比增长（即：当年/前年-1）最大值
'arr_cur为当年数值arr_pre 为前一年数值，
Dim row_cur, row_pre As Integer
Dim tem As Double
Dim i As Integer
i = 1
tem = -1

While i <= arr_cur.Count
     

    If (arr_pre(i, 1) <> 0 And (arr_cur(i, 1) / arr_pre(i, 1) - 1) > tem) Then
        
        tem = arr_cur(i, 1) / arr_pre(i, 1) - 1
      
        End If
        MsgBox (arr_pre(i, 1))
        i = i + 1
      
Wend

max_growth_rate = tem

End Function

问题：为什么当去年出现0时，无法显示正确结果？（截图如下）另外，我在另一个excel里用同样的例子，却能正常显示结果。请高手指点，问题在哪里，多谢！






该贴已经同步到 idealcjx的微博

grf1973

While i <= arr_cur.Count
      

    If arr_pre(i, 1) <> 0 Then
        If arr_cur(i, 1) / arr_pre(i, 1) - 1 > tem Then
        
        tem = arr_cur(i, 1) / arr_pre(i, 1) - 1
      
        End If
    End If
        MsgBox (arr_pre(i, 1))
        i = i + 1
      
Wend

grf1973

主要是 If (arr_pre(i, 1) <> 0 And (arr_cur(i, 1) / arr_pre(i, 1) - 1) > tem) 为两个条件并列判断arr_pre(i, 1) ＝0时仍旧要判断arr_cur(i, 1) / arr_pre(i, 1) - 1当然会出错。

idealcjx

多谢楼上二位，已经解决！