- 金字塔客服中心 - 专业程序化交易软件提供商 (http://www.weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://www.weistock.com/bbs/list.asp?boardid=5)
---- [求助]调试器 (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=67901)
-- 发布时间：2014/7/28 9:51:46
-- [求助]调试器
我搞了半天，这个调试器还是灰色的，运行不了，请问要怎么用啊？谢谢！
此主题相关图片如下：qq图片20140728094749.jpg
-- 发布时间：2014/7/28 10:43:07
--
你应该勾选这里，当有VBA代码执行时会自动停下来
另外你也可以在这个调试器里设置断点，当有执行到断点行时也会自动停下来
目前这个调试器容易造成调试时死机，我们不推荐使用，调试我们建议你使用msgbox或者Application.msgout这种调试技巧
此主题相关图片如下：qq截图20140609131028.jpg
-- 发布时间：2014/7/28 10:50:14
--
关键是这里的run是灰色的，没有运行的意思，没有看见黄色箭头之类的。
-- 发布时间：2014/7/28 11:00:55
--
灰色的就代表已经是运行状态了，暂停状态才不是灰色的，建议你先试试我给你的操作方法
[此贴子已经被作者于2014/7/28 11:01:07编辑过]
-- 发布时间：2014/7/28 11:02:54
--
好的
-- 发布时间：2014/7/30 13:06:54
--
Set History = Formula.ParentGrid.GetHistoryData()
if Formula.IndexData < n-1 then
exit function
end if
r0= Formula.IndexData -(j+i)
For i = 1 To nn
For j = 1 To m
A(i,j) = history.close(r0)
Next
Next
请问我要表达这样的意思，调试时报错说是 “编译器错误 13 类型不匹配”，这种情况怎么解决呢，谢谢！
-- 发布时间：2014/7/30 15:32:42
--
哥们看到了吗？
-- 发布时间：2014/7/30 16:01:15
--
请给出一个完整的代码，我们这里测试一下
-- 发布时间：2014/7/30 16:07:32
--
Function AAA(Formula,n,m)
Set History = Formula.ParentGrid.GetHistoryData()
if Formula.IndexData < n-1 then
exit function
end if
r0= Formula.IndexData -(j+i)
nn=n-m
For i = 1 To nn
For j = 1 To m
A(i,j) = history.close(r0)
Next
Next
End Function
-- 发布时间：2014/7/30 16:32:22
--
只是在调试时出现？
运行时没事？