主题：VB自定义函数问题

TriangleShape这个函数你自己胡乱修改他源代码了，原始代码是这样的。

Function TriangleShape(Formula,Cyc,SCyc,ECyc)

'    'msgbox cyc & "-" & scyc & "-" & ecyc

' '该函数计算当前位置图形是否是三角形突破，如果是则返回1，否则返回0。该函数只有在选股时才能使用。

' TriangleShape=0

' 

' '如果是分时数据或者分笔成交那么直接返回

' If Formula.ParentGrid.DataType = 0 or Formula.ParentGrid.CycType = 10 Then

'  Exit Function

' End If

vba启动了没，切换品种试试呢，另外直接在函数里把返回值强制返回一个比如10再看看。

按照说明，重新建一个项目试试呢

1、不要去用那个调试工具，一般调试我们都建议自己在代码里插入msgout进行输出查看的

 

和32没关系的，你本地新建一个项目然后新建默认自定义函数输出

此主题相关图片如下：qv{l_k_xa8g(gu}$1wp6@5x.png

 

 

可以通过两种方法添加自定义函数：

1、在公式编辑器界面中，鼠标在“函数”解释定义区单击右键，然后选择“添加自定义函数”。

2、在Visual Basic工程管理器中选择Function模块，进入Visual Basic编辑界面，然后选择“插入”菜单中的“过程”。

有关自定义函数的格式

每个自定义函数都会有一个Formula对象，即使没有参数的自定义函数也至少有这么一个对象参数存在。每次公式系统执行遇到自定义函数的时候，会不断的依次调用它，直至整个公式解释完毕。

注意：请不要试图在Function模块中直接添加自定义函数，因为这样系统不会承认他。