47、Excel UserForms与加载项的应用与创建

Excel UserForms与加载项的应用与创建

1. UserForms中的趣味应用

在Excel的UserForms中，有两个有趣的应用示例，分别是滑动拼图游戏和视频扑克游戏。

1.1 滑动拼图游戏

滑动拼图游戏是由诺伊斯·查普曼（Noyes Chapman）在19世纪后期发明的。这个游戏显示在UserForm中，目标是将打乱的瓷砖（命令按钮控件）按数字顺序排列。用户可以点击空白空间旁边的按钮，使按钮移动到空白处。组合框控件允许用户从三种配置中选择：3x3、4x4和5x5。“新建”按钮用于打乱瓷砖，标签控件则记录移动的次数。

该应用使用类模块来处理所有按钮事件。VBA代码较长，以下是查看代码时需要注意的几点：
- 命令按钮控件通过代码添加到UserForm中，按钮的数量和大小由组合框的值决定。
- 瓷砖通过模拟数千次随机点击按钮来打乱。另一种选择是简单地分配随机数，但这可能会导致一些无法解决的游戏。
- 瓷砖网格中的空白空间实际上是一个Visible属性设置为False的命令按钮。
- 类模块包含一个事件过程（MouseUp），每当用户点击瓷砖时执行。

当用户点击命令按钮瓷砖时，其标题会与隐藏按钮交换，代码实际上并不会移动任何按钮。该游戏的相关文件“sliding tile puzzle.xlsm”可在网站获取。

1.2 视频扑克游戏

视频扑克游戏将UserForm设置为赌场风格的视频扑克游戏。该游戏具有以下特点：
- 两种游戏选择：百搭小丑（Joker’s Wild）和杰克或更好（Jacks or Better）。
- 显示输