excel如何使用vba编程制作一个恶作剧小程序

　　今天为大家分享excel中使用[使用是一个汉语词汇，读音为shǐyòng，使人员、器物、资金等为某种目的的服务。]vba制作一个[《一个》是韩寒自任主编推出电子读物，2012年6月11日在腾讯网上线。]恶作剧[恶作剧，就是故意与他人开玩笑、戏耍、互相捉弄的行为。]小程序方法，很不错，值得大家学习，推荐过来，一起来学习吧!　　步骤　　1、首先我们打开一个工作样表作为例子。　　2、使用alt+f11组合快捷键[快捷键，又叫快速键或热键，指通过某些特定的按键、按键顺序或按键组合来完成一个操作，很多快捷键往往与如 Ctrl 键、Shift 键、Alt 键、Fn 键以及 Windows 平台下的 Windows 键和 Mac 机上的 Meta 键等配合使用。]进入vbe编辑器[编辑器是软体程序，一般是指用来修改电脑档案的编写软件，但也有人称 PE2、HE4（汉书）……等文书软件为编辑器。]，插入一个新模块[模块是对词条中部分内容进行格式化整理的模板。]，并在模块中输入以下代码：　　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编程制作一个恶作剧小程序方法介绍，操作很简单的，大家学会了吗?希望能对大家有所帮助!86％的科技爱好者也看的内容：固态硬盘和7200转硬盘有什么区别如何查询西数移动硬盘的真伪gtx770+e3 1230v2 满载时500瓦电源够吗？a10-7850k相当于860k加什么显卡用a10 7870k剩下的怎么配？我不要显卡，能玩lol就可以ipad3如何下载歌曲_ipad3下载歌曲全解析台式电脑电源线怎么连接主板？怎么提高手机SD卡读写速度