作者闲着无聊时总喜欢玩斗地主，在玩的过程中就想自己编写一套发牌系统。于是经过几个昼夜的奋斗终于写出来了，现分享给大家参考。工具/原料moreExcelVBA 代码方法/步骤1/9分步阅读

首先在在images目录下存放54张扑克牌的图片。如图所示，每张图片的格式为jpg。

2/9

在excel的Sheet上设置一个“随机发牌”按钮以及显示20张扑克牌的空图片。

3/9

点击“随机发牌”按钮后，下方空图片会随机显示扑克牌图像。

4/9

需要的VBA代码主要有以下几个，第一个是指定每次显示几张扑克牌以及总扑克牌数量。作者这里分别设置的是20和54.

5/9

第二个代码是随机发牌顺序和斗地主的牌序到文件序号。

6/9

第三个代码是指定控件显示指定图片，这也是本系统最为核心的代码。

7/9

第四个代码是产生1~imagsCount的随机数,并保存起来转换为斗地主的牌序再保存。

8/9

第五个代码是自动检测是否已产生了上一个排布顺序。

9/9

自此，整个发牌系统就可以运行了。

EXCEL自动发牌系统