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

时间:2021-05-18

  今天为大家分享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 < 1 Or Num > 5 Then MsgBox ("输入错误")

  If Num < 1 Or Num > 5 Then Exit Sub

  以上就是excel vba编程制作一个恶作剧小程序方法介绍,操作很简单的,大家学会了吗?希望能对大家有所帮助!

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章