VBA里面计算的数据如何显示到K线上？

jinjun

在vba里面计算的数据是否可以显示到K线上？

技术008

不行，如果要显示建议直接用pel就行了

jinjun

技术008 发表于 2022-3-24 15:46
不行，如果要显示建议直接用pel就行了

PEL是否可以读取VBA里数组数据？

技术008

用自定义函数参考这里，个人建议无需必要，直接pel就行了
很少有说必须用vb的

jinjun

'序列运行模式

Function CU_MA1(Formula,CLOSE,Cyc)

    CU_MA1=0


    '防止公式逐周期模式时调用

    If Formula.WorkMode = 0 Then

        Exit Function

    End If


    'CLOSE数组数据长度一定会与Formula.DataSize-1相等

    DataCount = UBound(CLOSE)

    If DataCount <> Formula.DataSize-1 Then

        Exit Function

    End If


    '定义一个计算返回的数组

    Dim ResultMa

    Redim ResultMa(DataCount)


    For i = Cyc-1 To Formula.DataSize-1

        Count = 0

        For k = i-(Cyc-1) To i

            Count = Count + CLOSE(k)

        Next

        ResultMa(i) = Count / Cyc

    Next


    '返回一个计算完毕的均线数组

    CU_MA1 = ResultMa

End Function








大家注意到了序列模式多了一个CLOSE数组参数，在公式系统，他是这样被调用的

MA1:CU_MA1(CLOSE,5);
------------------------------------------------

例子中序列牧师有三个参数，为什么在PEL调用时只填两个？

技术008

第一个是当前对象参数，不需要传第