vba
littleZhuHui
程序员
展开
-
纯Excel VBA开发的俄罗斯方块游戏 怀念多年前的无聊时光
少年时的梦小时候家里没有钱,看到同学拿着手持式游戏机打俄罗斯方块游戏,羡慕得不行。当时觉得俄罗斯方块真是世界上最好玩的游戏,要是能把同学的游戏机借来玩一整天该多好。程序员的山赛货上了大学,有了属于自已的电脑,各种电脑游戏一大堆,可是有一天突发奇想,能不能用excel做一个俄罗斯方块游戏呢?恰好那时领导交待的许多任务和excel有关,天天和VBA打交道,也算比较熟悉。记得那时还在图书馆看到一本...原创 2019-06-25 13:31:29 · 1479 阅读 · 0 评论 -
用VBA实现的在Excel上随机显示扑克牌的小程序
引子曾经想用VBA做一个斗地主的游戏,只做了一点功能,后来发现可以通过手机玩斗地主,就没有再做下去。不过在excel中加载与显示图片的功能也许以后会派上用场,所以做一个小小的记录。实现原理在images目录下存放有扑克牌图片,如下图所示:在excel的Sheet上有一个“随机发牌”按钮,如下图所示:点击“随机发牌”按钮后,下方随机显示扑克牌图像,如下图所示:每点击一次“随机发牌”...原创 2019-07-06 10:15:34 · 2448 阅读 · 0 评论 -
在excel中执行Sql语句,实现复杂查询
引子Excel过滤与查找数据的功能很强,但如果是非常复杂的查询还是用SQL语句来得直接。但这需要有一些数据库的专业知识。实事上excel支持对Sheet上的数据进行sql查询,这时Sheet名就是要查询的数据表的名字,只不过要加上中括号。为了方便用sql语句直接操作sheet上的数据,特地用VBA写了一个小程序。实例操作程序的文件结构如下:execlSQL.xls是主程序所在的exc...原创 2019-07-06 11:10:41 · 30196 阅读 · 2 评论 -
在word中用vba为选中区域自动添加行号或删除行号
需求说明用word编辑文档时,希望快速为选中内容添加行号或删除行号。如果手动来做,当行数很多时,就会比较麻烦,这时VBA就可以派上用场。vba源码'为选中内容添加行号Sub 添加行号() ' n = 0 Dim selectdRange As Range Set selectdRange = Selection.Range ...原创 2019-09-29 21:55:06 · 1736 阅读 · 0 评论