包含Advancedfilter語句的UDF中的Excel 2013-VBA運行時錯誤9但在調試模式下正常

Question

我不明白爲什麼我的使用AdvanceFilter的UDF在調試模式（F8）下工作但提供了錯誤9 - 下標超出範圍時執行在正常模式下。就像在運行模式下執行（??）太快一樣，不是一步一步的。我UDF爲了更精確的

代碼示例（gAitemCT是用戶定義的類型）：

Public Function fG_PasteCTLinesOnSheetTmpFilteredDataset(_ 
    ByRef gL_CTLine_P As gAitemCT, ByRef intNbOcc As Integer) As String 

Dim sRet As String, sMsg As String 
Dim iLoop As Integer 
Dim iNbColMax As Integer 
Dim lNbRowMax As Long 
Dim sColWidth As Variant 
Dim rngInput As Range, rngOutput As Range 
Dim rngCriteria1 As Range 
Dim varTmp As Variant 
Dim iArrDime As Integer 

sRet = "OK" 
iLoop = 0 

On Error GoTo Diso 

'>> Constituer le Carré de datas << 
Worksheets(G_sNameSRCPO).Select 
With Worksheets(G_sNameSRCPO) 
    '>> 
    lNbRowMax = .Cells(.Rows.Count, 5).End(xlUp).Row 
    iNbColMax = .Cells(1, .Columns.Count).End(xlToLeft).Column 
    '>> 
End With 

Worksheets(G_sNameSRCPO).Select 
'>> Defining INput range << 
    Set rngInput = Worksheets(G_sNameSRCPO).Range("A1").Resize(lNbRowMax,iNbColMax) 
    varTmp = salesWksheet.Range(Cells(1, 1)).Value 

'> Copy Header < 
'>> Setting up Criteria range(s) << 
    varTmp = Worksheets(G_sNameSRCPO).Cells(1, 1).Value 

    Worksheets(G_sNameReferenceS).Select 
    Worksheets(G_sNameReferenceS).Cells(1, 2).Select 
    Worksheets(G_sNameReferenceS).Cells(1, 2).Value = varTmp 

    ThisWorkbook.Save 
    '** 
    If (gL_CTLine_P.GsfPO <> 0) Then 
    '>> 
    'curWBook.Sheets("dataReferences").Activate 
    Worksheets(G_sNameReferenceS).Cells(2, 2).Select 
    Worksheets(G_sNameReferenceS).Cells(2, 2).Value = gL_CTLine_P.GsfPO 
    Set rngCriteria1 = Worksheets(G_sNameReferenceS).Cells(1, 2).Resize(2, 1) 
    '>> 
    Else 

    End If 

    '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    '>> Setting up the OUTput range << 
    Worksheets(G_sNameCTcurrentS).Select 
    Set rngOutput = Worksheets(G_sNameCTcurrentS).Range("A1") 

    '>>>>>>>>>>>>>>>>>>>>>>>>> 
    '>> Pasting the Result <<< 
    Worksheets(G_sNameSRCPO).Select 
    rngInput.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=rngOutput, CriteriaRange:=rngCriteria1 
    Worksheets(G_sNameCTcurrentS).Select 

Veloma: 
    '>> 
    Set rngInput = Nothing 
    Set rngCriteria1 = Nothing 
    Set rngOutput = Nothing 
    '>> 
    intNbOcc = iArrDime 
    '>> 
    fG_PasteCTLinesOnSheetTmpFilteredDataset = sRet 
    Exit Function 
    '** 
    Diso: 

    Beep 
    Beep 
    sMsg = "PasteCTLinesOnSheetTmpFilteredDataset-ERR ::" & Err.Number & ":: - " & Err.Description 
    Debug.Print sMsg 
    sRet = sMsg 
    Resume Veloma 

    End Function 

感謝您的任何幫助。

Answer 1

您無法從UDF中選擇。 UDF內部有很多你不能做的事情。 UDF應該對其參數起作用並返回結果。不允許對工作簿/工作表/窗口產生任何副作用。

而不是使用選擇，使用With/End With結構，或將範圍指定給範圍變量並引用它。

您還必須找出更新值不是其中的單元格的值的不同方法。這在UDF中也是不允許的。