excel VBA (自定义函数)使用宏运算OK，直接在单元格输入公式无法计算？

Question

excel VBA 使用宏运算OK，直接在单元格输入公式无法计算宏计算DCI可以得出正确结果(DCI为自定义函数)。Sub test000x() Dim x x = DCI(Sheet1.Range("E2:E7")) Range("E10") = x End Sub直接在单元格计算会有问题，没办法得出结果，什么原因呢。

Answer 1

Sub test000x()
Dim x
x = DCI(Sheet1.Range("E2:E7"))
Range("E10") = x
End Sub
要看下你的DCI自定义函数内容了追问

自定义函数比较复杂
我在想有什么原因会导致这个问题
Public Function DCI(rg As Range)

Dim ar, Arr
Arr = rg
Dim RGB(1 To 6) As Double
Dim i As Integer
i = 1

For Each ar In Arr
RGB(i) = ar
i = i + 1
Next ar

Dim line6(1 To 6, 1 To 7) As Double
Dim result As Double
Dim xy
’均为赋值过程
DCI = (seyu1(line6) / 0.0815) '引用其他自定义函数求解
End Function