共2 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]自定义函数中在窗格中插入公式，为何不成功？

1楼

yeyi 发表于：2011/10/24 16:25:04

想在技术分析框架-main窗格中插入公式指标，并测试画图，均不成功求教？ Function test1(Formula,cyc) '得到K线数据对象 set MainFrame = Application.ActivateFrame("Technic") Set Grid = Technic.GetGridByName("Main") '插入公式KXJTAG Grid.InsertFormula("KXJTAG") '画图 Grid.DrawEllipse 10,10,100,100,255 test1=0 End Function

2楼

26327756l 发表于：2011/10/24 16:28:15

表格对象插入指标公式是没有问题，我使用了我的电脑上的一个指标试用。

调用指标代码为

if ISLASTBAR then s:TEST1();

自定义函数的VBA代码为

Function test1(Formula)
    '系统会在逐周期模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
    application.MsgOut("tttt")
    set MainFrame = Application.ActivateFrame("Technic")
     Set Grid = Technic.GetGridByName("Main") '插入公式KXJTAG
      Grid.InsertFormula("Formula4") '画图
      Grid.DrawEllipse 10,10,100,100,255
      test1=0

End Function

[此贴子已经被作者于2011-10-24 16:49:26编辑过]

共2 条记录, 每页显示 10 条, 页签: [1]