大家好，雨雨来为大家解答以上问题，整人小程序视频，整人小程序很多人还不知道，现在让我们一起来看看吧！

今天给大家分享一下在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编程制作恶作剧小程序的介绍。操作很简单。你学会了吗？希望能对大家有所帮助！

本文讲解到此结束，希望对大家有所帮助。