利用Excel VBA代码编写一套简单的发牌系统

 时间:2024-10-13 04:58:09

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

利用Excel VBA代码编写一套简单的发牌系统

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

利用Excel VBA代码编写一套简单的发牌系统

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

利用Excel VBA代码编写一套简单的发牌系统

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

利用Excel VBA代码编写一套简单的发牌系统

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

利用Excel VBA代码编写一套简单的发牌系统

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

利用Excel VBA代码编写一套简单的发牌系统

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

利用Excel VBA代码编写一套简单的发牌系统

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

利用Excel VBA代码编写一套简单的发牌系统

9、自此,整个发牌系统就可以运行了。

  • 在excel中增加、删除、有条件添加批注的vba代码
  • 怎么使用VBA禁用指定区域的右键菜单功能
  • 怎样使用VBA删除选中区域单元格中的公式?
  • 如何用Power Query做合并查询
  • 怎样用VBA按单元格背景颜色对当前列排序?
  • 热门搜索
    手抄报图片大全3年级 一年级清明节手抄报 欢欢喜喜过大年手抄报 小学三年级手抄报 世界无烟日手抄报图片 创城手抄报 诗配画手抄报 关于名人的手抄报 红领巾心向党手抄报图片 安全小知识手抄报