欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [求助]VBA中调用条件选股

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有6327人关注过本帖树形打印复制链接

主题：[求助]VBA中调用条件选股
帅哥哟，离线，有人找我吗？
yeyi
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：253 积分：1742 威望：0 精华：0 注册：2010/8/12 13:04:52 		[求助]VBA中调用条件选股  发帖心情 Post By：2013/4/17 22:20:10 [显示全部帖子]

我有一个条件选股：假设为TJXG_A;

我想在VBA中调用运行这个条件选股

，有何办法。

 

不胜感谢！

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
yeyi
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：253 积分：1742 威望：0 精华：0 注册：2010/8/12 13:04:52 		  发帖心情 Post By：2013/4/17 22:27:21 [显示全部帖子]

但我这个条件选股，范围是全部期货市场的。

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
yeyi
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：253 积分：1742 威望：0 精华：0 注册：2010/8/12 13:04:52 		  发帖心情 Post By：2013/4/17 22:34:22 [显示全部帖子]

那是否就是

for  I=1 TO TOP  遍历全部品种

 

 

    Set Formula = marketdata.STKINDI(MARKETCODE[I],MARKET,TJXG_A,0,0)

 

 end FOR


 回到顶部
帅哥哟，离线，有人找我吗？
yeyi
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：253 积分：1742 威望：0 精华：0 注册：2010/8/12 13:04:52 		条件选股根本没有运作，是否不能用  发帖心情 Post By：2013/4/18 12:37:37 [显示全部帖子]

条件选股根本没有运作，STKINDI是否不能用条件选股，只能用指标

 

Sub ssmxsjgx_testbutt_Click()

 Dim marketName

 Dim  blocktype(1000)
    Dim  blockname(1000)
    Dim  I,TIMAX,J,tnreturn
    Dim  tcblocktype,tcblockname
    Dim  tnblockcount


    TIMAX=1
 blocktype(TIMAX)="上海证券交易所"
 blockname(TIMAX)= "上海A股"

    TIMAX=TIMAX+1
    blocktype(TIMAX)="深证证券交易所"
 blockname(TIMAX)= "深圳A股"

    TIMAX=TIMAX+1
    blocktype(TIMAX)="深证证券交易所"
 blockname(TIMAX)= "深证创业"

    TIMAX=TIMAX+1
    blocktype(TIMAX)="深证证券交易所"
 blockname(TIMAX)= "中小企业"

   
 Set b = CreateObject("Stock.Block")
 

 
 FOR I=1 TO  TIMAX 
 
      
         application.MsgOut Date &" " &Time& "条件选股....："&blocktype(I)&"  名称:"&blockname(I)

      
         call b.open(blockname(I),0)   
             
           tnblockcount=b.count
            for J=0 TO tnblockcount
                  
                   TCMARKET=b.GetStockMarket(J)
                  TCCODE=TCMARKET+b.GetStockCode(J)     
   
   
                  Set Formula = marketdata.STKINDI(TCCODE,TCMARKET,"BKGXMR",0,5) 'BKGXMR为公式中的条件选股（非技术指标）
         
                 application.MsgOut Date &" " &Time& " "&tccode
                
            next      
           
         

    NEXT
 
 
  
 
   application.MsgOut Date &" " &Time& "条件选股完成！"   
End Sub

[此贴子已经被作者于2013-4-18 12:38:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yeyi
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：253 积分：1742 威望：0 精华：0 注册：2010/8/12 13:04:52 		  发帖心情 Post By：2013/4/18 14:53:38 [显示全部帖子]

我这个条件选股中，有增加个股到板块中的语句（是条件语句嵌套vba），根本没有执行
 回到顶部
帅哥哟，离线，有人找我吗？
yeyi
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：253 积分：1742 威望：0 精华：0 注册：2010/8/12 13:04:52 		  发帖心情 Post By：2013/4/18 16:59:52 [显示全部帖子]

终于OK

Code 不能加MARKET

阴沟翻船

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.04688 秒, 6 次数据查询