Question

我在Excel VBA中编写了一个应用程序，当它进入这个功能时，有时而只有有时会停止，打开编辑器并突出显示“结束函数”之前的最后一行

Option Explicit

Function Get_Special(i_Row, c_Total, v_code As Variant) As Currency

Dim c_money As Currency
Dim s_Code As String
Dim i_Ctr As Integer

c_money = 0

If Not IsArrayInitialized(v_code) Then
    Get_Special = c_money + c_Total
    Exit Function
End If

For i_Ctr = LBound(v_code) To UBound(v_code)
    Select Case v_code(i_Ctr)

        Case 1 To 10

        Case 11  
             If c_Total = 0 Then c_money = Minimum_Charge(i_Row)
        Case 12  
            c_money = c_money + Plug_Fee(i_Row, Range(rngName(RNM.PLUG)).Column) 
        Case Else

    End Select
Next i_Ctr
'VBA editor opens here, highlighted.  No error message is given pressing F5 causes it to finish with no problem.  

Get_Special = c_money  
End Function

我不知所措

解决以下问题：

IsArrayInitialized函数具有“On Error resume next”错误处理，然后检查错误编号是否为零，如果不是，则函数返回false。

错误是间歇性的。我使用每次输入的不同数据运行代码70次，并且无法再次重新创建错误。

我仔细检查过，没有设置断点。

Answer 1

调试 - ＆gt;清除所有调试点。调试 - ＆gt;编译。然后保存文件。有时会出现幻像调试断点。

Excel打开VBA编辑器在处理期间打开。没有生成错误

1 个答案: