话说上次用Excel开发了个简易的
翻牌子系统V2.0(点击蓝字阅读)，
震动朝庭，皇上看后龙颜大悦。
但是，皇上仅仅用了一次，就私下提出一个新的要求：
“朕翻过一遍的美人，下次就不要再出现了……”
万万没想到，领导会有这样的要求。
你说，酱紫过份不过份？
但既然提出了，肯定是有他的道理。
不过，这有何难，
简直送分题啊。
小编略加思索片刻搞定，
就这样，
翻牌子系统V3.0穿越时空闪亮登场，横空出世，轻松一键，阅尽世间美色。
来个动画先！
V3.0的精髓就是会做一个标记，保证翻过一次的绝不会再次出现，让你永远保持一种神秘感和新鲜感。
还有一个妙处：
当皇上把所有的牌子都翻完了，还想继续翻牌的时候，其实这样后果是非常严重嘀。
我们知道，即使是小朋友玩游戏超过一段时间，系统都会善意提醒，“小朋友，休息一下哦”。由此我深受启发，为了防止皇上沉迷翻牌，于是我也设置了这样一个自动提醒功能。
实在是太贴心了
。
那如果皇上不听劝告，屡劝不改，非要继续翻牌，OK，再次点击底部的“重新翻牌”按钮，系统又将开始一轮新的翻牌。
考虑实在是太周到了
。
这么优秀的翻牌子系统，皇上一定会问我是怎么做出来的。
这个嘛，要从最基础的学起，熟悉菜单界面，了解几个函数，学习录制宏，研究一下变量声明语句，循环，分支，窗体控件，顺便了解一下VBA中的几个函数，对象方法属性事件，释放控制权，警告对话框……
“说人话！
”
那就简单捋一捋思路：
。
你和高手之间也许就差了一本入门的书。
如果你还不会VBA，如果你想领略VBA的神奇，不妨看看这一本：
今天这个技巧，在日常工作中还可以用来搞个员工的抽奖活动，也是很有趣的。
练习文件在这里，小伙伴们也来翻一下，试试手气吧。
链接: https://pan.baidu.com/s/1nTRhCtkSF4XfVTmcVVoIHg
提取码: 8c3t
图文制作：ForSheet
V3.0的精髓就是会做一个标记，保证翻过一次的绝不会再次出现，让你永远保持一种神秘感和新鲜感。
还有一个妙处：
当皇上把所有的牌子都翻完了，还想继续翻牌的时候，其实这样后果是非常严重嘀。
我们知道，即使是小朋友玩游戏超过一段时间，系统都会善意提醒，“小朋友，休息一下哦”。由此我深受启发，为了防止皇上沉迷翻牌，于是我也设置了这样一个自动提醒功能。
实在是太贴心了。
那如果皇上不听劝告，屡劝不改，非要继续翻牌，OK，再次点击底部的“重新翻牌”按钮，系统又将开始一轮新的翻牌。
考虑实在是太周到了。
这么优秀的翻牌子系统，皇上一定会问我是怎么做出来的。
这个嘛，要从最基础的学起，熟悉菜单界面，了解几个函数，学习录制宏，研究一下变量声明语句，循环，分支，窗体控件，顺便了解一下VBA中的几个函数，对象方法属性事件，释放控制权，警告对话框……
“说人话！”
那就简单捋一捋思路：
把所有人物的图片放在pic文件夹
通过dir遍历文件夹每个图片，将图片名的信息放在B列3.从B2到B列最后一行做循环，随机抽取
抽取到的名字前面加在当前路径，后面添加.jpg
用图像控件显示上一步得到的完整文件名的图像
用文本控件显示获取的姓名
同时在后一列标记一个 T ，表示已经翻过一次
下次循环时跳过标记为T的
用COUNTIF统计T出现的次数，当大于等于总行数减1时，出现警告，表示已经翻完了，因为标题占了一行，所以是总行数减1
点击重新翻牌，删除C列下方所有标记的T
。
你和高手之间也许就差了一本入门的书。
如果你还不会VBA，如果你想领略VBA的神奇，不妨看看这一本：
今天这个技巧，在日常工作中还可以用来搞个员工的抽奖活动，也是很有趣的。
练习文件在这里，小伙伴们也来翻一下，试试手气吧。
链接: https://pan.baidu.com/s/1nTRhCtkSF4XfVTmcVVoIHg
提取码: 8c3t
图文制作：ForSheet
250
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
