這個函數爲什麼不用數組返回一個數組？

Question

爲什麼這個函數在通過我的子程序後沒有返回任何數據？

需要的三個陣列是Returned_Array_CNR,Returned_Array_NR,Returned_Array_Rel As Variant。

我是否用Returned_Array = a_AR正確執行return語句？

我打算用這個函數返回三個單獨的數組，我希望通過函數頭中定義的Returned_Array參數來標題。

我在函數的參數中傳遞了這個變量 - 我是否正確地做了這個？

Public Function a_AR(ByVal cA, cB, ByVal cC As Double, cName As String, Returned_Array As Variant, Optional cD As Double) As Variant() 
     Lr = Range("A65000").End(xlUp).row 
     ReDim aAR(1 To Lr, 1 To 4) 
     ReDim Returned_Array(1 To Lr, 1 To 4) 
       For r = 2 To Lr 
      cRow = cRow + 1 
      aAR(cRow, 1) = Sheets(1).Cells(r, cA) 'Fund Number 
      aAR(cRow, 2) = Sheets(1).Cells(r, cB) 'class 
      'Debug.Print aAR(cRow, 2) 'debugging 
      If cName = "Net Assets" Then 
       aAR(cRow, 3) = Sheets(1).Cells(r, cD)/Sheets(1).Cells(r, cC) 'TNA 
      Else 
       aAR(cRow, 3) = Sheets(1).Cells(r, cC) 
      End If 
     Next r 

     Returned_Array = a_AR 

    End Function 


    Sub Refactored_Macro() 

    'CNR array 
    ImportCNR_w_Paramaters "B2", "Entity ID", "Share Class", "Exchange Rate", Returned_Array_NR, "Net Assets" 
    'Nav rec array 
    ImportCNR_w_Paramaters "B3", "ENTITY_ID", "LEDGER_ITEMS", "BALANCE_CHANGE", Returned_Array_CNR 
    'Relationship array 
    ImportCNR_w_Paramaters "B4", "Hedge Entity Id", "Entity ID", "Share Class", Returned_Array_Rel 

    End Sub 

    Sub ImportCNR_w_Paramaters(cell As String, cName1, cName2, cName3 As String, Returned_Array2 As Variant, Optional cName4 As String) 

    MyPath = Range(cell)        'Defines cell that contains path to source that have been saved down 
    Workbooks.Open (MyPath)        'Opens workbook that have been saved down 
    Set tempbook = ActiveWorkbook      'Names workbook for future closing 
    'LR = Range("A65000").End(xlUp).row     'finds last row in edits 



    'ReDim aAR(1 To LR, 1 To 4) 
    cRow = 0 
    cName = cName1 
    cA = Cells.Find(What:=UCase(cName), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Column 
    cName = cName2 
    cB = Cells.Find(What:=UCase(cName), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Column 
    cName = cName3 
    cC = Cells.Find(What:=UCase(cName), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Column 
    cName = cName4 
    cD = Cells.Find(What:=UCase(cName), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Column 

    '  For r = 2 To LR 
    '   cRow = cRow + 1 
    '   'a_AR(cRow,r,cA,cB,cC,cD,cName) 

       a_Array = a_AR(cA, cB, cC, cName, Returned_Array2, cD) 

    ' 
    '  aAR(cRow, 1) = Sheets(1).Cells(r, cA) 'Fund Number 
    '  aAR(cRow, 2) = Sheets(1).Cells(r, cB) 'class 
    '  aAR(cRow, 3) = Sheets(1).Cells(r, cD)/Sheets(1).Cells(r, cC) 'TNA 
    ' 
    '  Next r 


    tempbook.Close 

    End Sub 

Answer 1

也許您正在尋找類似的東西？

Public Function a_AR(ByVal cA, cB, ByVal cC As Double, cName As String, Optional cD As Double) As Variant() 

Lr = Range("A65000").End(xlUp).Row 
ReDim aAR(1 To Lr, 1 To 4) 
For r = 2 To Lr 
    cRow = cRow + 1 
    aAR(cRow, 1) = Sheets(1).Cells(r, cA) 'Fund Number 
    aAR(cRow, 2) = Sheets(1).Cells(r, cB) 'class 
    'Debug.Print aAR(cRow, 2) 'debugging 
    If cName = "Net Assets" Then 
     aAR(cRow, 3) = Sheets(1).Cells(r, cD)/Sheets(1).Cells(r, cC) 'TNA 
     Else 
     aAR(cRow, 3) = Sheets(1).Cells(r, cC) 
    End If 
Next r 
a_AR = aAR 

End Function 
Sub Refactored_Macro() 
    'CNR array 
    Returned_Array_NR = ImportCNR_w_Paramaters("B2", "Entity ID", "Share Class", "Exchange Rate", "Net Assets") 
    'Nav rec array 
    Returned_Array_CNR = ImportCNR_w_Paramaters("B3", "ENTITY_ID", "LEDGER_ITEMS", "BALANCE_CHANGE") 
    'Relationship array 
    Returned_Array_Rel = ImportCNR_w_Paramaters("B4", "Hedge Entity Id", "Entity ID", "Share Class") 
End Sub