上周末写了Power Query的复盘的工具，具体介绍可以看下面的这个链接。
https://www.55188.com/thread-24138673-1-1.html
但是这周使用的时候，还是发现了一些使用不方便的。
第一个是如果数据全部刷新，容易出现问财同时请求，导致刷新失效。
每次右键点击刷新又有一点小麻烦，所以就用vba写了一个简单的刷新按钮在表中，刷新方便一些。
第二个就是看盘的时候，很多时候还要在股票软件上看，手动输入代码还是比较麻烦。
所以在论坛里面找了相应的联动代码，根据需要进行了修改，支持点击股票代码或股票名称，通达信联动。
（暂时只支持通达信，因为通达信有参考，其余的软件没有参考不会。
）Private Declare PtrSafe Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Private Declare PtrSafe 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")
On Error Resume Next
If ActiveCell.Column = 1 Then
If Left(Target, 1) = "6" Then
Data = 7000000
Else
Data = 6000000
End If
PostMessage 65535, nMsg, Data + Target.Value, 0
Else
If Left(ActiveCell.Offset(0, -1), 1) = "6" Then
Data = 7000000
Else
Data = 6000000
End If
PostMessage 65535, nMsg, Data + Target.Offset(0, -1).Value, 0
End If
End Sub
这里再请教一下一下神通广大的朋友，上面红色的代码中，蓝色的65535是什么意思啊？
按照网上的解释，应该是65535应该是句柄，但是句柄不应该是十六进制的吗？
查了很久也没有弄懂，希望高手指导一下。
其中通达信联动的代码，参考的是论坛的这个帖子。
https://www.55188.com/thread-9372939-1-1.html
