Excel VBA UDF數組函數爲所有cels返回相同的值

Question

我想讓Excel VBA UDF函數返回一個數組。截至目前，該函數要麼返回#VALUE！如果我將參數定義爲雙數組，或者如果將參數定義爲變體，則數組中的所有單元格都具有相同的值，即使我在VBE中的「本地」窗口中進行了檢查，並且返回的數組變量實際上包含不同的值，也會出現錯誤。

這裏是我的代碼：

Function VaRScenariosTest(ByRef dblRealRates() As Double/Variant) As Double() 
'dblRealRates() is defined as either Double or Variant 
Dim intCount As Integer 
Dim dblTemp() As Double 

For intCount = LBound(dblRealRates) To (UBound(dblRealRates) - 1) 
    ReDim Preserve dblTemp(1 To intCount) 
    dblTemp(intCount) = dblRealRates(intCount + 1) - dblRealRates(intCount) 
Next intCount 

VaRScenariosTest = dblTemp 

End Function 

Function Range2dblArray(ByRef rngRange As Range) As Double() 

Dim dblTemp() As Double 
Dim intCount As Integer 

For intCount = 1 To rngRange.Count 
    ReDim Preserve dblTemp(1 To intCount) 
    dblTemp(intCount) = rngRange.Cells(intCount) 
Next intCount 

Range2dblArray = dblTemp 

End Function 

我撥打以下方式中的電子表格功能： function call in excel with dblRealRates() as Double/Variant

E欄包含輸入功能，F列中的值應返回由函數和列G來表示函數本身。如果我將dblRealRates（）變量類型定義爲double，則該公式會返回#VALUE！錯誤。如果我將其定義爲變體，則電子表格中的返回值是相同的。 如果我暫停碼在結束函數行的執行，並期待在本地窗口，你可以看到，該數組中的值是不同的，不是所有的等於0.000016287在電子表格中的輸出表明：Function Array values in Locals Window

有人可以請告知爲什麼當dblRealRates（）變量被定義爲double時，公式返回一個錯誤，爲什麼如果它被定義爲variant，它會返回相同的值？

Answer 1

通過x列將一維數組視爲一行，因此這就是爲什麼您的值總是出來的原因。 （整個結果列被賦予返回的第一列的值。）

下面的代碼適用於您的情況（但如果你改變的東西就行，而不是列）工作無疑給問題：

Function VaRScenariosTest(ByRef dblRealRates() As Variant) As Variant() 
    Dim intCount As Integer 
    Dim dblTemp() As Double 

    For intCount = LBound(dblRealRates) To (UBound(dblRealRates) - 1) 
     ReDim Preserve dblTemp(1 To intCount) 
     dblTemp(intCount) = dblRealRates(intCount + 1, 1) - dblRealRates(intCount, 1) 
    Next intCount 

    VaRScenariosTest = Application.Transpose(dblTemp) 
End Function 

Function Range2dblArray(ByRef rngRange As Range) As Variant() 
    Dim dblTemp() As Double 
    Dim intCount As Integer 

    For intCount = 1 To rngRange.Count 
     ReDim Preserve dblTemp(1 To intCount) 
     dblTemp(intCount) = rngRange.Cells(intCount) 
    Next intCount 

    Range2dblArray = Application.Transpose(dblTemp) 
End Function 

---

另外，通過執行結果的轉置的Excel公式中Range2dblArray本身

{=VaRScenariosTest(TRANSPOSE(Range2dblArray(E2:E21)))} 

，你可以離開了原來的Range2dblArray不變，只修改VaRScenariosTest：

Function VaRScenariosTest(ByRef dblRealRates() As Variant) As Variant() 
    Dim intCount As Integer 
    Dim dblTemp() As Double 

    For intCount = LBound(dblRealRates) To (UBound(dblRealRates) - 1) 
     ReDim Preserve dblTemp(1 To intCount) 
     dblTemp(intCount) = dblRealRates(intCount + 1, 1) - dblRealRates(intCount, 1) 
    Next intCount 

    VaRScenariosTest = Application.Transpose(dblTemp) 
End Function 

Function Range2dblArray(ByRef rngRange As Range) As Double() 
    Dim dblTemp() As Double 
    Dim intCount As Integer 

    For intCount = 1 To rngRange.Count 
     ReDim Preserve dblTemp(1 To intCount) 
     dblTemp(intCount) = rngRange.Cells(intCount) 
    Next intCount 

    Range2dblArray = dblTemp 
End Function 

---

而且通過還做的VaRScenariosTest Excel公式本身

{=TRANSPOSE(VaRScenariosTest(TRANSPOSE(Range2dblArray(E2:E21))))} 

在結果的轉置可以允許VaRScenariosTest也返回一個一維數組（但會仍然需要通過dblRealRates作爲二維的Variant陣列）：

Function VaRScenariosTest(ByRef dblRealRates() As Variant) As Double() 
    Dim intCount As Integer 
    Dim dblTemp() As Double 

    For intCount = LBound(dblRealRates) To (UBound(dblRealRates) - 1) 
     ReDim Preserve dblTemp(1 To intCount) 
     dblTemp(intCount) = dblRealRates(intCount + 1, 1) - dblRealRates(intCount, 1) 
    Next intCount 

    VaRScenariosTest = dblTemp 
End Function 

Function Range2dblArray(ByRef rngRange As Range) As Double() 
    Dim dblTemp() As Double 
    Dim intCount As Integer 

    For intCount = 1 To rngRange.Count 
     ReDim Preserve dblTemp(1 To intCount) 
     dblTemp(intCount) = rngRange.Cells(intCount) 
    Next intCount 

    Range2dblArray = dblTemp 
End Function 

Answer 2

最後定居在下面的版本，因爲每@ YowE3K指導：

Function VaRScenariosTest(ByRef dblRealRates() As Variant) As Variant() 
    Dim intCount As Integer 
    Dim dblTemp() As Double 

    For intCount = LBound(dblRealRates) To (UBound(dblRealRates) - 1) 
     ReDim Preserve dblTemp(1 To intCount) 
     dblTemp(intCount) = dblRealRates(intCount + 1) - dblRealRates(intCount) 
    Next intCount 

    VaRScenariosTest = Application.Transpose(dblTemp) 
End Function 

Function Range2Array(ByRef rngRange As Range) As Variant() 
    Dim varTemp() As variant 
    Dim intCount As Integer 

    For intCount = 1 To rngRange.Count 
     ReDim Preserve varTemp(1 To intCount) 
     varTemp(intCount) = rngRange.Cells(intCount) 
    Next intCount 

    Range2Array = varTemp 
End Function 

作品在電子表格中使用的井時，只有功能VarScenariosTest和數組參數dblRealRates()的數據類型已經改變回如果我只想在VBA中使用，而不是在電子表格中，那麼雙倍，儘管變體版本也適用於此。 @ YowE3K感謝您的幫助！