iOS 14全新亮相,翻牌子系统同步升级

Excel之家ExcelHome Excel之家ExcelHome 2020-06-23
话说上次用Excel开发了个简易的翻牌子系统V2.0(点击蓝字阅读),震动朝庭,皇上看后龙颜大悦。
但是,皇上仅仅用了一次,就私下提出一个新的要求:
“朕翻过一遍的美人,下次就不要再出现了……”
万万没想到,领导会有这样的要求。
你说,酱紫过份不过份?
但既然提出了,肯定是有他的道理。

不过,这有何难,
简直送分题啊。
小编略加思索片刻搞定,
就这样,
翻牌子系统V3.0穿越时空闪亮登场,横空出世,轻松一键,阅尽世间美色。
来个动画先!
V3.0的精髓就是会做一个标记,保证翻过一次的绝不会再次出现,让你永远保持一种神秘感和新鲜感。
还有一个妙处:
当皇上把所有的牌子都翻完了,还想继续翻牌的时候,其实这样后果是非常严重嘀。
我们知道,即使是小朋友玩游戏超过一段时间,系统都会善意提醒,“小朋友,休息一下哦”。由此我深受启发,为了防止皇上沉迷翻牌,于是我也设置了这样一个自动提醒功能。
实在是太贴心了

那如果皇上不听劝告,屡劝不改,非要继续翻牌,OK,再次点击底部的“重新翻牌”按钮,系统又将开始一轮新的翻牌。
考虑实在是太周到了

这么优秀的翻牌子系统,皇上一定会问我是怎么做出来的。
这个嘛,要从最基础的学起,熟悉菜单界面,了解几个函数,学习录制宏,研究一下变量声明语句,循环,分支,窗体控件,顺便了解一下VBA中的几个函数,对象方法属性事件,释放控制权,警告对话框……

“说人话!

那就简单捋一捋思路:
  1. 把所有人物的图片放在pic文件夹

  2. 通过dir遍历文件夹每个图片,将图片名的信息放在B列3.从B2到B列最后一行做循环,随机抽取

  3. 抽取到的名字前面加在当前路径,后面添加.jpg

  4. 用图像控件显示上一步得到的完整文件名的图像

  5. 用文本控件显示获取的姓名

  6. 同时在后一列标记一个 T ,表示已经翻过一次

  7. 下次循环时跳过标记为T的

  8. 用COUNTIF统计T出现的次数,当大于等于总行数减1时,出现警告,表示已经翻完了,因为标题占了一行,所以是总行数减1

  9. 点击重新翻牌,删除C列下方所有标记的T


讲了这么多,懂的人自然懂,不懂的人还是不懂
你和高手之间也许就差了一本入门的书。
如果你还不会VBA,如果你想领略VBA的神奇,不妨看看这一本:

今天这个技巧,在日常工作中还可以用来搞个员工的抽奖活动,也是很有趣的。
练习文件在这里,小伙伴们也来翻一下,试试手气吧。
链接: https://pan.baidu.com/s/1nTRhCtkSF4XfVTmcVVoIHg 
提取码: 8c3t 

图文制作:ForSheet
    本文由自媒体作者Excel之家ExcelHome投稿,版权归原作者所有
    如若侵权,请联系本站删除