Excel中使用VBA制作一个恶作剧小程序的操作方法

　　excel中使用vba制作一个恶作剧小程序，具体的操作是怎么样进行的?今天，小编就教大家在Excel中使用VBA制作一个恶作剧小程序的操作方法。

　　Excel中使用VBA制作一个恶作剧小程序的操作步骤如下：

　　首先我们打开一个工作样表作为例子。

　　使用alt+f11组合快捷键进入vbe编辑器，插入一个新模块，并在模块中输入以下代码：

　　Option Explicit

　　Sub 恶作剧()

　　Dim Num%

　　Num = InputBox("选择1-5任意一个数字测试你的性格")

　　MsgBox (Choose(Num, "宅", "腐", "妖", "艳", "man"))

　　End Sub

　　我们声明了一个变量Num为整数型，并将其赋值为输入值，并且提示是输入1-5之间任意一个数字。

　　然后在选取之后，我们使用msgbox将其结果显示出来，这里我们使用choose函数来做选择，并给出对应的1-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制作一个恶作剧小程序的操作