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

阅读 作者:股海网时间 2020-08-19 股软教程

缘起:
     我经常导出一些选股啊之类的股票列表到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


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

上传会员: 
股海网
上传时间: 
2020-08-19
下载积分: 
-
免责申明: 
请仔细阅读并同意后才能下载
本附件为论坛用户分享上传,股海网没有对文件进行验证,不能保证下载资源的准确性、安全性和完整性,也不保证下载资源能正常安装和使用,且下载后扣除的积分无法退还,除非您充分理解并完全接受本声明,否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利,其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究,不得用于商业或非法用途,如有侵犯您的版权,请参看 《侵权处理流程》《免责声明条款》
点击下载无反应时,更换手机自带浏览器重登录操作,如华为浏览器,苹果Safari浏览器,第三方浏览器有不兼容现象,或先收藏再到电脑端下载
同意以上声明才能下载,扣除积分无法退还!
我已知晓! 点我同意 所有条款自愿下载!
如有问题请点关闭提交问题反馈→
关闭
收藏
全部评论共 0 条

问题反馈 取消