您现在的位置：>>
>>正文内容
VBA 下的单子
在程序化交易设置里的追单功能起作用吗？　[金字塔]
咨询内容：
VBA&下的单子&& 在程序化交易设置里的追单功能起作用吗？此主题相关图片如下：qq图片45.jpg
金字塔客服：
不起作用，VBA的追单需要你在程序中自行来完成。
请参考本高级区的精华帖子，有个套利的范例里面有追单的部分代码范例
有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友
可联系技术人员 QQ:
&进行 有偿 编写！
【字体： 】【】【】
没有相关内容
&本月热门排行
&用户常看内容
会员登录/注册查看: 4553|回复: 3
[已解决][求助]如何在一个类模块里调用另一个类模块？
请教：我想在一个类模块里调用另一个类模块，如何实现？
我建了两个类模块 CBS 和 LBS，类模块CBS是ComboBox，代码如下：
Option Explicit
Public WithEvents cb As ComboBox
Private Sub cb_click()
Sheets(&sheet3&).lb.Caption = cb.value
类模块LBS是 Label，代码如下：
Option Explicit
Public WithEvents lb As Label
工作表sheet3的代码：
Option Explicit
Dim co As New Collection
Private Sub Worksheet_Activate()
Dim cob As CBS
Dim lab As LBS
for i =1 to 3
Set cob = New CBS
Set lab = New LBS
Set cob.cb = Me.OLEObjects(&ComboBox& & i).Object
Set lab.lb = Me.OLEObjects(&label& & i).Object
cob.cb.Clear
cob.cb.AddItem &红色&
cob.cb.AddItem &浅绿色&
cob.cb.Text = &红色&
co.Add cob
Set cob = Nothing
上面的代码是错的，但是我不知道怎么改，恳请各位指点一下，谢谢。
吕布发布于
两个写在一个类模块中呢
' 类模块:CBS
Option Explicit
Public WithEvents cb As ComboBox
Public WithEvents lb As MSForms.Label
Private Sub cb_click()
& & lb.Caption = cb.Value
Option Explicit
Dim co As New Collection
Private Sub Worksheet_Activate()
& & Dim i%
& & Dim cob As CBS
& & For i = 1 To 3
& && &&&Set cob = New CBS
& && &&&'Set lab = New LBS
& && &&&Set cob.cb = Me.OLEObjects(&ComboBox& & i).Object
& && &&&Set cob.lb = Me.OLEObjects(&label& & i).Object
& && &&&cob.cb.Clear
& && &&&cob.cb.AddItem &红色&
& && &&&cob.cb.AddItem &浅绿色&
& && &&&cob.cb.Text = &红色&
& && &&&co.Add cob
& & Next i
& & Set cob = Nothing
&&&本楼为最佳答案&&&
两个写在一个类模块中呢
' 类模块:CBS
Option Explicit
Public WithEvents cb As ComboBox
Public WithEvents lb As MSForms.Label
Private Sub cb_click()
& & lb.Caption = cb.Value
Option Explicit
Dim co As New Collection
Private Sub Worksheet_Activate()
& & Dim i%
& & Dim cob As CBS
& & For i = 1 To 3
& && &&&Set cob = New CBS
& && &&&'Set lab = New LBS
& && &&&Set cob.cb = Me.OLEObjects(&ComboBox& & i).Object
& && &&&Set cob.lb = Me.OLEObjects(&label& & i).Object
& && &&&cob.cb.Clear
& && &&&cob.cb.AddItem &红色&
& && &&&cob.cb.AddItem &浅绿色&
& && &&&cob.cb.Text = &红色&
& && &&&co.Add cob
& & Next i
& & Set cob = Nothing
吕?布 发表于
两个写在一个类模块中呢
' 类模块:CBS
非常感谢！！感谢版主的解答，谢谢！谢谢！！！！
学习& && && && && && && && && && && && && && && && &&&
Powered by(window.slotbydup=window.slotbydup || []).push({
id: '4051700',
container: s,
size: '400,50',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '3991088',
container: s,
size: '100,240',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '3991102',
container: s,
size: '100,240',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '4044404',
container: s,
size: '240,146',
display: 'inlay-fix'
大智慧与excel结合务实三：用excel统计分析出选股公式的有效性时间分布
理想高三级同学(菠菜一段)
还需要 8136 积分才能升级
大智慧与excel结合务实三：用excel统计分析出选股公式的有效性时间分布
浏览：32965
欢迎光临理想论坛，由于您没有登录，所以无法查看到论坛的附件及隐藏分区，也无法与其他会员交流。
还没有理想论坛的帐号？
将数百个选股公式经大智慧筛选成功率较高的，再用大智慧的数据表分析功能导出全部个股从年间所以达到目标值的全部数据，再将这些数据导出到excel中，利用excel的图表将各选股公式成功的时间分布在excel中一览列出。可以看出时间分布图，心中更有底。先上个图，有图有真相。
[ 本帖最后由 知物悟道 于
16:03 编辑 ]股票论坛
(329.39 KB)
积分21864&理想币408 个&彩币400 个&共享币191 个&注册时间&
理想高三级同学(菠菜一段)
还需要 8136 积分才能升级
对excel统计有兴趣的坛友可见本人的另两贴、谢谢！：
大智慧与excel结合、来点务实的：用excel统计分析出关键的专业财务指标
（精华贴！）
告别穷日子：我在不同的波浪阶段用不同的公式选股
（追加为精华贴了）
[ 本帖最后由 知物悟道 于
23:28 编辑 ]
++++++++++++++++我也正进行数据统计分析， ...
积分21864&理想币408 个&彩币400 个&共享币191 个&注册时间&
理想高三级同学(菠菜一段)
还需要 8136 积分才能升级
本人作出上图真不容易，在上月专门多买了台超强的电脑来在大智慧导出这些数据！前年买的脑导这些数据太吃力了。
新机CPU专门买了 I5 3570K、看中它能超频、而且是4核、只有4线程（因为大智慧在进程只能用到1线程、所以不能买4核8线程的CPU），超频到 4.5G、配8G内存，足足狂转了个星期，导齐了数据，在excel中完成了这图。
请大家多多支持。
不是说假的，有图有真相、这次还特意买了台 的显示器、苹果的（-----仿），显示器只有DP接口、迫着我又买了个独显（本来这3570K的集显已很强大了、但它没有DP接口）
期望大队长能再为本贴加精！！！谢谢！！！
[ 本帖最后由 知物悟道 于
16:33 编辑 ]
(434.6 KB)
积分21864&理想币408 个&彩币400 个&共享币191 个&注册时间&
理想高三级同学(菠菜一段)
还需要 8136 积分才能升级
就以上的内容也不敢奢望大队长加精，我用excel来统计还有以下的作用：
用excel来统计各个选股公式在发生信号的各技术指标的分布。
注意是分布、不是平均值，若用平均值会使大家给平均值的数据骗了！只有用数据的分布才能更直观！
先上张图、虽然这张图仍不具代表性：
[ 本帖最后由 知物悟道 于
22:19 编辑 ]
(111.66 KB)
积分21864&理想币408 个&彩币400 个&共享币191 个&注册时间&
理想高三级同学(菠菜一段)
还需要 8136 积分才能升级
按着这个思路，逐个成功率高的选股公式在成功的信号发生时的各技术指标及财务指标逐一进行分布分析，得出各指标分布的高频分布范围、藉此条件来优化选股公式，再来验证优化后的选股公式成功率、如能提高成功率则保留优化。
再上一图：用同一指标、而用另一选股公式的分析指标值分布结果，这个图较有代表性。
[ 本帖最后由 知物悟道 于
09:53 编辑 ]
积分21864&理想币408 个&彩币400 个&共享币191 个&注册时间&
理想高三级同学(菠菜一段)
还需要 8136 积分才能升级
一楼的图解释一下：
这次选了成功率最高的9个选股公式，按上述方法作了图，由于其中两个的图一样（本来是同一公式、只不是周期分别选日线和周线，在动态显示牌中的显示的日线和周线的结果是不同的，但用“分析——数据表”的功能时用不同的周期导出的结果一样的，不明白！）
实际只有8个图、第9个是这8个数据汇总的分布。
各图有成功的次数（从年的），从信号分布来看、个人还是认为公式“信号1”较为理想，信号较多、且分布较合理。
我会将“信号1”公式继续细化研究、进行优化。
[ 本帖最后由 知物悟道 于
11:45 编辑 ]
积分21864&理想币408 个&彩币400 个&共享币191 个&注册时间&
理想高三级同学(菠菜一段)
还需要 8136 积分才能升级
胸怀千万里,心思细如丝
上述的统计还远远未够
除了将成功的信号时点全盘导出外，还将各公式的期间所有信号导致。
正如上所说的数据分布与平均数的差别一样，只是统计各公式一个总的成功率是不够、不能知道此公式在大盘不同阶段的成功率分布如何、有时甚至会误导。
所以我还将大盘人为分为波浪的各阶段，再将各公式按波浪阶段分类统计各自的成功率。
其中奥秘自然说出真相。
[ 本帖最后由 知物悟道 于
18:16 编辑 ]
积分21864&理想币408 个&彩币400 个&共享币191 个&注册时间&
理想高三级同学(菠菜一段)
还需要 8136 积分才能升级
大家帮手分析各选股公式所以的信号，看那个更佳。
[ 本帖最后由 知物悟道 于
22:31 编辑 ]
(379.22 KB)
积分21864&理想币408 个&彩币400 个&共享币191 个&注册时间&
理想高三级同学(菠菜一段)
还需要 8136 积分才能升级
有图有真相
[ 本帖最后由 知物悟道 于
10:24 编辑 ]
(257.17 KB)
积分21864&理想币408 个&彩币400 个&共享币191 个&注册时间&
理想高三级同学(菠菜一段)
还需要 8136 积分才能升级
今天欣喜见到大队长的鼓励！
继续把十楼建好：
数据库也已建好：日线信号及周线信号，再加上各股所有日期的技术指标、所有日期的涨幅、各季的专业财务数据、各股流通盘的大小。
再来个事后诸葛：出现信号后（日线、周线）后的涨幅、分析哪种信号更关键，再分析相关技术指标分布更集中、财务数据何值更相关、流通盘分布情况等。
之前苦于大智慧不能将板块的数据通过“分析——数据表”的功能导出；而且BS点是通过DLL方式求出的、历史BS数据也不能通过“分析——数据表”的功能导出，后来通过REF的方式求出（通过excel、使大智慧能快速建立几千个ref数据的列表，又是excel显神功！！）。
先对大盘进行了信号分析，统计不同信号对于大盘出现的先后，再统计了大盘出现信号后、各个股出现不同信号的阶段涨幅。
分析的结果也是中规中矩：大盘信号到位、买强势股或超跌股！！！
个人见解：买强势股持股周期宜短、买超跌股持股周期可长些。
有图有真相：
我在4楼思路是进一步得到学者的印证：不能用平均数，平均数不能说明问题，应该使用差异化统计。
这是我今早看了“解码财商”视频的进一步印证：前国家统计局长邱晓华的采访（首播日期日）。
视频地址在68楼
[ 本帖最后由 知物悟道 于
20:56 编辑 ]
(152.72 KB)
(248.64 KB)
(259.31 KB)
(250.72 KB)
(249.96 KB)
积分21864&理想币408 个&彩币400 个&共享币191 个&注册时间&
理想小五级同学
还需要 121 积分才能升级
好专业、佩服之至！
好好的U、好大的M！
积分879&理想币86 个&彩币0 个&共享币49 个&注册时间&
理想小三级同学
还需要 86 积分才能升级
为什么不用飞狐交易师了？公式的成功率、胜率用飞狐就可全搞定！
导入EXCEL中再去统计，你莫非是用VBA编制了同样的选股公式？将股票K线导入EXCEL中，利用VBA改编的选股公式选股？
积分114&理想币5 个&彩币0 个&共享币100 个&注册时间&
理想高三级同学(菠菜一段)
还需要 8136 积分才能升级
引用:原帖由 我们的宏哥 于
16:33 发表
为什么不用飞狐交易师了？公式的成功率、胜率用飞狐就可全搞定！
导入EXCEL中再去统计，你莫非是用VBA编制了同样的选股公式？将股票K线导入EXCEL中，利用VBA改编的选股公式选股？&&&&公式的成功率、胜率这个用大智慧也能搞定，但你看到直观的时间分布就不容易了！
在excel中用VBA是必然的了！
还请高手指教、谢谢！
积分21864&理想币408 个&彩币400 个&共享币191 个&注册时间&
理想小三级同学
还需要 86 积分才能升级
我个人认为EXCEL处理大量的数据计算画图都很慢，不好用。大量数据宜用Matlab，可是其直观性不太好。
我认为你上面用EXCEL出的图，在飞狐里可以容易的实现，当然不一定有你这个这么直观，但你想要的数据都会有。关键是飞狐里可以容易的实现。
谢谢关注，请今后多交流！
积分114&理想币5 个&彩币0 个&共享币100 个&注册时间&
理想小三级同学
还需要 86 积分才能升级
但你看到直观的时间分布就不容易了！————怎么会不容易了？在任意股软中，把选股公式改编为副图公式或主图公式，其买卖信号就可画出来，当然，想在时间段上统计信号发生的密度可能不好实现，这个我没试过。
积分114&理想币5 个&彩币0 个&共享币100 个&注册时间&
理想高三级同学(菠菜一段)
还需要 8136 积分才能升级
引用:原帖由 我们的宏哥 于
16:33 发表
导入EXCEL中再去统计，你莫非是用VBA编制了同样的选股公式？将股票K线导入EXCEL中，利用VBA改编的选股公式选股？&&&&我是利用大智慧的“分析——数据表”功能将年2000多个个股、3000多天的全部数据进行运算，得出的结果再在excel中作图、在excel中用公式整理一下数据、很快就作出图来。
这次用了9个选股公式……
谢谢关注，请今后多交流！
积分21864&理想币408 个&彩币400 个&共享币191 个&注册时间&
理想高三级同学(菠菜一段)
还需要 8136 积分才能升级
引用:原帖由 我们的宏哥 于
16:44 发表
当然，想在时间段上统计信号发生的密度可能不好实现，这个我没试过。&&&&我这样做的目的就是为了这句。
因为觉得用不同选股公式、成功率有高有低。在副图或主图上只能分散看到的个股的图、不知道全貌；不知各选股公式的在不同时间段的成功率如何、不知在不同的波浪阶段谁高谁低或各公式在不同的阶段有不同的成功率。
我作出这图就较直观了。
当然我只是我的一孔之见、我只是习惯用大智慧、且也不是精通，股软的更强大的功能我还未学到，所以请众高手不吝賜教、谢谢！
买股 买概率
积分21864&理想币408 个&彩币400 个&共享币191 个&注册时间&
理想小三级同学
还需要 86 积分才能升级
这样做就有一定的意义了。深入下去会有收获。
积分114&理想币5 个&彩币0 个&共享币100 个&注册时间&
理想小三级同学
还需要 86 积分才能升级
賜教不敢当，有空多交流。
积分114&理想币5 个&彩币0 个&共享币100 个&注册时间&
理想高三级同学(菠菜一段)
还需要 5024 积分才能升级
论坛真是藏龙卧虎啊，佩服。。。
积分24976&理想币4627 个&彩币20 个&共享币12132 个&注册时间&
快速回复主题
禁用 URL 识别
使用个人签名
接收新回复邮件通知
发帖请务遵守本站的相关规则，所有发表(包括转发)政治、色情非法信息者本站将实时提供发贴者个人信息给公安局，追究责任，特此申明！
具体规则请参见《》
您需要登录后才可以发帖
发表帖子[完成后可按 Ctrl+Enter 发布]
理想论坛上的网友发表的帖子纯属个人意见，理想论坛不负任何责任！广告赞助商内容与本站无关！
理想论坛值班电话[9:30～18:30]： &#6 5518-1 &#66 3090 ☎ 187 (广告)
工业和信息化部信息备案：求教关于VBA代码执行的问题【excel吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：147,266贴子：
求教关于VBA代码执行的问题收藏
如图：（仿EXCEL表，当sheet1）一个表
因为数量比较大 需要VBA代码求解 （手动要炸）。Wind数据能导出来复权后区间最高收盘价。要求，在（C）至（D）这个时间区间中有个最低收盘价（该最低收盘价日wind可导出），问 该区间从初始（证监会核准日）至区间中最低收盘价日的平均收盘价 和 区间中最低收盘价日至结尾（发行日期）的平均收盘价，以及 该区间的平均收盘价。（注：股票的单日收盘价是可以导出来的，但是一个区间好几十个交易日，外加统计的股票达几百只，求VBA算法。）求个把代码链接起来，主要问题是 怎么把两段VBA代码给连起来。 我用600290.SH做个例子：代码600290.SH条件：收盘价（时间设定至），复权，交易日。代码生成器生成以下代码： Dim w_wsd_data As VariantDim w_wsd_codes As Variant, w_wsd_fields As Variant, w_wsd_times As VariantDim w_wsd_errorid As Long'该函数返回值是一个三维数组，第一维是指标，第二维是windcode，第三维是时间w_wsd_data = vba_wsd(&600290.SH&,&close&,&&,&&, &PriceAdj=F&, w_wsd_codes, w_wsd_fields, w_wsd_times, w_wsd_errorid) 楼主小白，纯新，求教怎么把这个代码给用起来，如开篇和结尾都需要什么指令 什么意思，另求高手帮个忙把这个给完成了，设 把结果输入至F（2-801）的完整执行代码。附上一枚别人帮我设定好的数据：（P：第二张图别问我什么意思 我看不懂）
你这数据从哪获取，是什么炒股软件？支持任意指标吗？
加我好友吧，贴吧客户端可以
登录百度帐号推荐应用查看: 23854|回复: 7
关于VBA中IF多条件语句的用法，虚心求教~
阅读权限20
在线时间 小时
遇到的问题如下：
需要用到IF条件语句，有2个条件
程序如下所示：
Set r = Sheets(类型 & &数据&).Range(&a:a&).Find(型号)
Set rr = Sheets(类型 & &数据&).Range(&b& & srow & &:b& & erow).Find(what:=规格, LookIn:=xlValues)
If Not r Is Nothing or Not r Is Nothing Then…………
要求：当r或者rr为非空值的时候，执行下面的程序
上面的程序运行时有问题，单个的可以运行正确，2个条件放一起就运行不出正确的结果了&&
请教下前辈们，正确的用法应该怎么用？不胜感激！
阅读权限20
在线时间 小时
就是If Not r Is Nothing&&Then&&和If Not rr& &Is Nothing&&Then这两个条件怎么合并起来用？
阅读权限70
在线时间 小时
写错了rr了吧..
另外,最好添加括号区分条件,不容易发生意想不到的问题.
阅读权限70
在线时间 小时
这样不行吗？
if len(r)&&0 or len(rr)&&0 then
[ 本帖最后由 fsydw 于
15:58 编辑 ]
阅读权限95
在线时间 小时
If Not r Is Nothing or Not rr Is Nothing Then
[ 本帖最后由 Zamyi 于
16:33 编辑 ]
阅读权限20
在线时间 小时
用if len(r)&&0 or len(rr)&&0 then这个也不行啊&&
现在的情况是用
If Not r Is Nothing Then
If Not rr Is Nothing Then
单独使用都没问题
两个放一起使用就是不行了
这里面r和rr两个是用来判断搜索有无匹配值的
阅读权限20
在线时间 小时
& & & & & & & &
谢谢各位前辈们的解答 ，我找到原因了，是自己太粗心了，原来应该用If Not r Is Nothing and Not rr Is Nothing Then语句才对 ，谢谢各位热心的前辈们！
阅读权限30
在线时间 小时
也有同样的问题，想增加一个Sheets(&录入登记表&).Cells(3, 7) = Sheets(&数据库&).Cells(i, 4)条件录入或提取。下面是VBA的一部份，加到哪？& && && && &
Sub 录入数据()
Application.ScreenUpdating = False
& & Dim i, x, flag
& & Do While Not (IsEmpty(Sheets(&数据库&).Cells(x, 3).Value))
& && & x = x + 1
& &flag = 0
& & For i = 1 To x
& && &&&If Sheets(&录入登记表&).Cells(3, 4) = Sheets(&数据库&).Cells(i, 3) Then
& && && && &flag = 9
& && && &&&Exit For
& && &&&End If
& & If flag = 9 Then
& && & x = i
& & End If
& & If Sheets(&录入登记表&).Cells(3, 4) = && Then
& && &Sheets(&录入登记表&).Cells(2, 2) = &空白表不能记录&
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师