excel如何使用vba编程制作一个恶作剧小程序
今天为大家分享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
最新科技数码科普
excel2013定位方法?
excel2013定位怎么做?第一种方法:步骤1:开始—查找和选择—定位条件步骤2:快捷键CTRL+G第二种方法:1、首先,我们启动Excel 2013工作表...
展开详情穿越火线REZ文件报错怎么办
穿越火线REZ文件报错怎么办1、尝试删除报错文件,完全修复游戏,但要注意节点同步2、在无盘系统管理端上重置缓存文件,并且删除报错后修复3、遇到极端情况的分析方...
展开详情冷门却很有趣的手机小游戏有哪些 冷门却很有趣的手机小游戏
摆脱榜首!一大波冷游戏来袭!冷门却很有趣的手机小游戏分享给大家!那些火爆的热门游戏你还没有玩腻吗?不过你还能玩多久呢?1个星期?2个星期?1个月?2个月?别逗...
展开详情能在MacOSX或者Linux上安装360手机助手吗
360(91)手机助手目前只能在Windows系统的电脑上使用,其他桌面操作系统暂时不支持。360手机助手是一款智能手机的资源获取平台。可以给用户提供海量的游...
展开详情GTA5 PC版错误代码1005解决方法 SocialClub错误怎么办
GTA5 PC版错误代码1005解决方法 GTA5SocialClub错误怎么办心仪已久的《GTA5》下好了,但是很多玩家进游戏时出现1005代码文图,别急,...
展开详情长焦相机和单反区别有哪些 长焦相机和单反区别详解
相机,可以帮我们记录生活中的各类美好瞬间。因此我们无论是工作还是生活都需要这类工具,不过各种形式的相机让人眼花缭乱。我们在众多的产品分类中,应该选择哪种呢?许...
展开详情