当前位置:→ 股海网股软教程 → 正文
  • 导出的EXCEL股票代码联动股票软件的方法

  • 相关简介:股票代码联动

  • 文章来源:佚名发布时间:2020-08-19 22:09:11浏览次数:下载次数:0收藏:

缘起:
     我经常导出一些选股啊之类的股票列表到EXCEL,我想点击股票代码,股票软件也跟着变化,至于为什么有这个需求,是因为某信软件能按指标数值排序,但不能和K线窗口并显,只能把排序数据导出,导出后我还想按顺序查看每只股票

经过研究,方法如下:



Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Private Declare Function PostMessage& Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Public nMsg As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
nMsg = RegisterWindowMessage("Stock")
If Left(Target, 1) = "6" Then
data = 7000000
Else
data = 6000000
End If
PostMessage 65535, nMsg, data + Target, 0
End Sub


考虑到可能很多朋友会用到,特分享出来  

导出的EXCEL股票代码联动股票软件的方法

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

上一篇:折腾必备OD使用视频教程  下一篇:没有了
股海网粉丝必读
公式解密、改选股联系QQ:78858997(有偿服务)点击查看详情...
股海网指标公式帮助使用说明!新手必读...
股海网新系统使用说明!新手必读...
股海网VIP用户组必读...
说说看法 0条看法
推荐资源

关于我们 - 联系我们 - 广告合作 - 下载声明 - 网站帮助 - 友情链接 - SiteMap - TOP
Copyright © 2020 铭网科技,All Rights Reserved.湘ICP备09016573号-10
本站所有广告和与股海网均无关系,请股友自行判断真假!股海网客服QQ:78858997
股海网股票软件下载中心
股海网股票书籍下载中心 湘公网安备43108102000040号