Excel VBA 实例(24) – 新股(债)中签一键批量查询 - 永恒君的百宝箱
微信公众号:yhjbox(永恒君的百宝箱),获取最新文章、资源。

Excel VBA 实例(24) – 新股(债)中签一键批量查询

Excel VBA 实例 永恒君 225℃ 0评论

不知道小伙伴们是否玩过新股(债)申购?今天这个实例就和这个有关。

开始之前得先简单说下证券市场如何核对是否中签。

永恒君写这篇的目的:1、帮大家更好的理解新股(债)中签的摇号规则;2、帮助大家理解VBA的常用代码。

现在新股(债)当天申购之后,都会分配一个起始配号和数量,第二天或者第三天晚上会公布中签的号码,但是只有末尾数。

起始配号是配号的第一个号码,数量则说明给你分配了多少个号码,剩余的号码在起始号码之后依次加1,如果给你分配的这些号码里有尾数的号码和官方公布的一致,则说明中签。

举例说:

起始配号为1234,数量3,那么给你分配的配号就是1234,1235,1236;

官方公布的中签号码如果末三位数是174,那么就没中;如果末三位是234,那么就中签了。

实际操作当中,起始配号会更长,数量更多,公布的中签号码有末三位、四位、五位等等,譬如前几天的东方财富转债,

起始配号:1703530497
配号数量:1000    

中签号码如下:

末位尾数 中签号码

末三位数 174

末四位数 7220,2220,2787

末五位数 58993,08993

末七位数 0814593

末八位数 06622289,19122289,31622289,44122289,56622289,69122289,81622289,94122289

末九位数 256132257,056132257,456132257,656132257,856132257,288276835,038276835,538276835,788276835

末十位数 1789224389

很显然,肉眼一时间是很难看出来是否中,需要一定的计算、核对才能得出结果。

思路

1、把官方公告里的所有中签号码都提取出来,放入excel表格的一列中;
2、根据起始配号,数量,生成所有的配号;
3、分别提取配号的末三位、四位、五位…依次类推,与中签号码对比;
4、出现相同的号码,则为中签,标记中签配号;最后统计出现相同号码的个数,即中了几签;
5、如果有多个起始配号,则重复上面的2-4步。

设计界面如下图:

把中签号码,起始配号,数量依次填入excel中,点击查询,即可看到是否中签,中签数量及号码。

效果

多个配号的中签情况瞬间就可以知道了。

关于中签号码的提取

这里可以用正则表达式(网上有很多在线的工具),把公告里的号码正文部分粘贴进去,填入表达式,筛选出中签的末尾号码,然后再复制粘贴到excel即可。

代码稍微有点长,感兴趣可以微信公号内回复「中签」自取试用,有问题可以联系我。

相关阅读:

Excel VBA 实例(23) – 一键批量提取word表格内容
Excel VBA 实例(22) – 一键筛选其他工作表或工作簿的数据
Excel vba 实例(21) – 如何快速准确录入数据

欢迎交流!

微信公众号:永恒君的百宝箱
个人博客:www.yhjbox.com

anyShare分享到:

转载请注明:永恒君的百宝箱 » Excel VBA 实例(24) – 新股(债)中签一键批量查询

喜欢 (1)
发表我的评论
取消评论

*

code

表情