大部分炒股的朋友都知道有一个叫做龙虎榜的数据，根据百度百科解释其价值作用：
龙虎榜是公开的主力运作，虽然是盘后的，但还是很有实际意义的，不是所有的主力主力资金流入后，第二天就流出的，有的后期还是很牛的，有了进出记录，或成交记录后，这样股民可以分析，这些大户是否在出脱、加码买进的数据？股民依照数据做出正向或逆向操作，从而达到获利或者止损的目的。
本文讨论的并不是龙虎榜的使用方法，
而是教大家如何根据同花顺的龙虎榜来仿制一个本地就可以使用的EXCEL复盘龙虎榜
先给大家看看效果：
EXCEL里面的龙虎榜
在同花顺网站：
http://data.10jqka.com.cn/market/longhu/ 可以看到原版的龙虎榜
同花顺网站上的原版龙虎榜
下载数据
如何将同花顺网站上的龙虎榜数据放到EXCEL中呢，
可以通过【数据】-【自网站】 输入上面的网址，然后依次点击【转到】-【导入】，
再选择导入单元格地址：
按照上面的顺序依次点击后导入网站数据
整理数据
在进行上面操作后，表格中已经有龙虎榜数据了，
但数据比较凌乱，
需要进行整理，具体整理过程，可参考：
将下载后的数据进行整理
根据原同花顺龙虎榜进行格式调整
通过跟网站上的数据格式对比，
可以发现表格上的 股票代码 中类似000955这样的数据显示为955
因为单元格默认是常规格式，
如果要显示000955这种样式，需要在【单元格格式】中修改，
选中 股票代码 列， 右键单元格格式中【自定义】
涨幅大于0的需要调整字体颜色为红色，
涨幅小于0的需要调整字体颜色为绿色
可以通过条件格式来设置，
【可以将 净买入额 的字体颜色设置为红色，在条件格式中设置负数为绿色即可】
添加VBA代码那如何可以通过点击相应的股票名称，
就可以显示相应的龙虎榜数据呢？
此处用到了EXCEL里面的终极武器 - VBA
在工作表标签上右键-【查看代码】
然后在代码窗口中，黏贴如下面的代码后如图
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub '单元格选择数量大于1个就退出运行
If .Column = 2 And .Value <> "" Then '当前单元格在2列，且不为空则运行
Dim rng As Range
Set rng = Sheet2.[a:a].Find(.Offset(, -1).Text) '通过股票代码在sheet2中查找对应的龙虎榜数据
If Not rng Is Nothing Then '如果找到 则
[g:j].ClearContents '清空之前有查询数据的G列至J列内容
r = rng.Offset(, 1).End(4).End(4).Row - rng.Row - 1 '确定龙虎榜数据区域行数
.Offset(, 5).Resize(r, 4).Value = rng.Offset(2).Resize(r, 4).Value '将查询的数据填入当前表格
End If
End If
End With
End Sub
结果上面一系列的操作，就基本上完成了这个模仿任务。如果对上面的模仿表格有兴趣，可以私信 “龙虎榜” 给我，提供附件下载。附件已修改成自动下载最新的龙虎榜数据，需要抓紧下载试试。
那以后复盘就轻松多了。
同花顺手机软件有个模拟练习K线盘感的，喜欢技术操作的，很有帮助，
引用地址:https://www.gupiaohao.com/202311/44868.html
tags: