excel如何使用vba编程制作一个恶作剧小程序
番茄系统家园 · 2022-08-30 06:39:20
今天为大家分享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 5 Then MsgBox ("输入错误")
If Num 5 Then Exit Sub
以上就是excel vba编程制作一个恶作剧小程序方法介绍，操作很简单的，大家学会了吗?希望能对大家有所帮助!
免责声明： 凡标注转载/编译字样内容并非本站原创，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责。如果你觉得本文好，欢迎推荐给朋友阅读；本文链接： https://m.nndssk.com/rjwt/3931382g8EIr.html。猜你喜欢
最新应用
热门应用
