主题：自定义函数传入变量问题

将你的公式调用方式，及VBA函数代码贴过来我们看看

问题主要出在，在逐K线模式下，你传递过来的变量都是单值数据而非数组，

DataCount = UBound(Series)
你这样来调用取数组的数量大小是错误的，正确的方法是程序内部使用一个数组，保存传递过来的数据，然后进行对比

稍后给你做个范例

简单范例如下：

 

Dim d '创建一个变量
'创建Array外部对象，将对象实例置变量d中
Set d = CreateObject("Stock.Array")

Function CU_HHV(Formula,Series)
    '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
   '改为逐周期调用
    If Formula.WorkMode = 1 Then
        Exit Function
    End If
   
    '第一个周期清空数组，用于下一轮刷新计算
    If Formula.IndexData = 0 then
       d.RemoveAll
    end if
   
    '添加数据到数组,这里只考虑简单情况，对于2.85后增加逐K线仅刷最后一个K线模式，这里要注意判断数据的大小，因为数据只在最后一个K线会重复调用，不加处理会导致最后一个周期不断往里添加数据，解决方法是不使用重新刷新模式或者自行判断，发现数据相等后只更新最后一个数据
    d.AddBack(Series)
    

   '求最近2个周期的最大值
    if Formula.IndexData >= 1 Then
    IF d.GetAt(Formula.IndexData-1) > d.GetAt(Formula.IndexData) Then
       CU_HHV = d.GetAt(Formula.IndexData-1)
    Else
       CU_HHV = d.GetAt(Formula.IndexData)
    End if
    End If
End Function

 

公式调用

ddd:CU_HHV(H);  //求高点最大值

 

因为自定义函数内用到了数据缓冲计算，因此公式只能一次调用，不能多次，对于多次计算的，你要添加不同的自定义函数，将哪些变量区分开

由于逐K线模式调用自定义函数速度较慢，因此数据不能太大

Array 对象

 已经描述的很清楚了，设置数组要用

SetAt        设置数组指定位置的数据

 

 

数组长度没有限制

 

其他的改进，我不太清楚用意，如果可以正常工作那当然是没问题的