今天为大家分享excel中使用vba制作一个恶作剧小程序方法，很不错，值得大家学习，推荐过来，一起来学习吧!
　　步骤
　　1、首先我们打开一个工作样表作为例子。
　　2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新模块，并在模块中输入以下代码：
　　Option Explicit
　　Sub 恶作剧()
　　Dim Num%
　　Num = InputBox(＂选择1-5任意一个数字测试你的性格＂)
　　MsgBox (Choose(Num， ＂宅＂， ＂腐＂， ＂妖＂， ＂艳＂， ＂man＂))
　　End Sub
　　3、我们声明了一个变量Num为整数型，并将其赋值为输入值，并且提示是输入1-5之间任意一个数字。
　　4、然后在选取之后，我们使用msgbox将其结果显示出来，这里我们使用choose函数来做选择，并给出对应的1-5的选项。
　　5、这里我们没有对输入的数字进行验证，如果输入小于1，或者是大于5的数字，那么choose函数会因为数字下标超出而报错。
　　6、所以我们必须对Num变量的输入值进行一个限制，限制的方法可以使用if函数对Num变量值进行判断，如果出现错误则显示错误并且退出过程。
　　If Num < 1 Or Num > 5 Then MsgBox (＂输入错误＂)
　　If Num < 1 Or Num > 5 Then Exit Sub
　　以上就是excel vba编程制作一个恶作剧小程序方法介绍，操作很简单的，大家学会了吗?希望能对大家有所帮助!

红米K40怎么设置24小时24小时在哪里设置24小时制是一种可以方便小伙伴们了解时间的方式，那么在红米K40中要如何来设置呢？现在就有小编来为大家介绍一下吧。一红米K40怎么设置24小时1我们可以在手机界面中找到lt时钟gt微信识别二维码出现424很多微信网友都会遇到使用微信二维码扫一扫功能的时候，扫描图片会显示查找失败424。那么，遇到这个问题该怎么解决呢？下面就为大家带来微信识别二维码出现424的解决方法。微信识别二维码三星8250手机如何刷机图文教程三星8250手机是三星公司在2012年的时候推出的一款手机，购买它的人大都已经使用很久了，众所周知的是智能手机一旦使用的时间久了，就会出现各种卡的情况，三星8250手机也不例外，很鸿蒙系统怎么开启volte高清通话鸿蒙系统开启开启volte高清通话步骤自从鸿蒙系统更新后一些小伙伴们还不太熟悉鸿蒙系统的操作，鸿蒙系统怎么开启volte高清通话？下面小编为大家带来鸿蒙系统开启开启volte高清通话步骤，感兴趣的小伙伴们快来看看吧！鸿乐Pro3怎么开通VOLTE乐Pro3开通VOLTE方法图解乐Pro3已经正式发布几天了，相信很多朋友都打算入手。而现在，开通VOLTE是很多人使用4G手机都会做的选择。那么，乐Pro3怎么开通VOLTE？今天，小编就为大家带来乐Pro3开魅族PRO6怎么开启VoLTE魅族PRO6开启VoLTE教程详解VoLTE是高清语音功能，相信不少人都想尝试。不过，可能很多朋友都不知道在魅族手机中有一个VoLTE高清语音功能，默认是关闭的，如果想要开启VoLTE需手动设置，下面以魅族pro6u盘怎么格式化u盘格式化方法详解说到U盘大家都不陌生，u盘的存在，很大程度上方便了人们转移数据随身携带数据等等，而有时候u盘出现中毒，扇区损坏等情况时，那么就需要u盘进行格式化才能够继续使用了，但是不少人对于u盘浴霸如何清洁保养浴霸清洗保养方法详解北方人对浴霸都不太了解，因为有暖气。但相信南方人对于浴霸一定不会陌生，在寒冷的冬天，浴室里寒冷异常，沐浴不再是一件让人放松的事情。但好在浴霸的出现，帮助人们解决了这一难题，浴霸这么单灯暖浴霸怎么保养单灯暖浴霸的清洁和保养详解现在人们的生活好了，家庭也有了各种电器服务着我们，浴霸就是其中之一。单灯暖浴霸是浴霸中的一种，这种浴霸比起风暖浴霸要更加美观和性能优越，而且单灯暖浴霸可以起到照明的作用。单灯暖浴霸浴室浴霸怎么保养浴室浴霸保养方法详解想拥有一个安逸舒服的洗浴环境，那就安装一个浴霸吧。浴霸解决了秋冬洗澡寒冷的问题，让人们倍感舒适。由于浴霸在长期的使用过程中，多多少少会受到一些损害。因此需要人们来定期保养浴霸。究竟浴霸排气扇怎么保养浴霸排气扇保养方法介绍浴霸中主要的部件就是排风扇，换气扇与外面相连，把热空气疏散到空气中，使房间温度上升。很多家庭使用了浴霸产品，却不会对浴霸进行常规的保养，而正确的保养方法才能很好的保护换气扇，延长其