今天给大家分享一下在excel中用vba制作恶作剧小程序的方法。很好，值得学习。请大家推荐一下，一起学习！
步骤
1.首先我们打开一个工作样表作为例子。
2.使用alt f11组合键进入vbe编辑器，插入一个新模块，并在模块中输入以下代码：
选项显式
Sub恶作剧()
维度数量%
Num=InputBox('从1到5中选择任意数字来测试您的角色')
MsgBox (Choose(Num，'宅''腐''妖''颜''人'))
末端接头
3.我们声明一个变量Num是一个整数，并将其赋为输入值，提示是输入1到5之间的任意数字。
4.然后，在选择之后，我们使用msgbox来显示结果。这里我们用choose函数进行选择，给出相应的1-5个选项。
5.这里，我们不验证输入的数字。如果输入的数字小于1或大于5，choose函数将报告错误，因为数字的下标超过了。
6.因此，我们必须限制Num变量的输入值。限制方法可以使用if函数来判断Num变量的值。如果有错误，它将显示错误并退出进程。
如果数字1或数字5，则MsgBox('输入错误')
如果数字1或数字5，则退出Sub
以上是excel vba编程制作恶作剧小程序的介绍。操作很简单。你学会了吗？希望能对大家有所帮助！
