番茄系统家园 - 免费重装系统!简单装系统,人人都是装机大师!
当前位置:首页>软件问题 > excel如何使用vba编程制作一个恶作剧小程序

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

来源:番茄系统家园浏览:时间:2022-08-30 14:39:20

今天为大家分享excel中使用vba制作一个恶作剧小程序方法,很不错,值得大家学习,推荐过来,一起来学习吧!

步骤

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

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

Option Explicit

Sub 恶作剧()

Dim Num%

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

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

End Sub

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

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

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

4、然后在选取之后,我们使用msgbox将其结果显示出来,这里我们使用choose函数来做选择,并给出对应的1-5的选项。

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

5、这里我们没有对输入的数字进行验证,如果输入小于1,或者是大于5的数字,那么choose函数会因为数字下标超出而报错。

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

6、所以我们必须对Num变量的输入值进行一个限制,限制的方法可以使用if函数对Num变量值进行判断,如果出现错误则显示错误并且退出过程。

If Num 5 Then MsgBox ("输入错误")

If Num 5 Then Exit Sub

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

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

推荐系统

  • 雨林木风 winxp下载 纯净版 永久激活 winxp ghost系统 sp3 系统下载

    雨林木风 winxp下载 纯净版 永久激活 winxp ghost系统 sp3 系统下载64位
    系统大小:0MB系统类型:WinXP

    雨林木风在系统方面技术积累雄厚深耕多年,打造了国内重装系统行业知名品牌,雨林木风WindowsXP其系统口碑得到许多人认可,积累了广大的用户群体,是一款稳定流畅的系统,雨林木风 winxp下载 纯净版 永久激活 winxp ghost系统 sp3 系统下载,有需要的朋友速度下载吧。

    系统等级:
    进入下载 >
  • 萝卜家园win7纯净版 ghost系统下载 x64 联想电脑专用

    萝卜家园win7纯净版 ghost系统下载 x64 联想电脑专用64位
    系统大小:0MB系统类型:Win7

    萝卜家园win7纯净版是款非常纯净的win7系统,此版本优化更新了大量的驱动,帮助用户们进行舒适的使用,更加的适合家庭办公的使用,方便用户,有需要的用户们快来下载安装吧。

    系统等级:
    进入下载 >
  • 雨林木风xp系统 xp系统纯净版 winXP ghost xp sp3 纯净版系统下载

    雨林木风xp系统 xp系统纯净版 winXP ghost xp sp3 纯净版系统下载64位
    系统大小:1.01GB系统类型:WinXP

    雨林木风xp系统 xp系统纯净版 winXP ghost xp sp3 纯净版系统下载,雨林木风WinXP系统技术积累雄厚深耕多年,采用了新的系统功能和硬件驱动,可以更好的发挥系统的性能,优化了系统、驱动对硬件的加速,加固了系统安全策略,运行环境安全可靠稳定。

    系统等级:
    进入下载 >
  • 萝卜家园win10企业版 免激活密钥 激活工具 V2023 X64位系统下载

    萝卜家园win10企业版 免激活密钥 激活工具 V2023 X64位系统下载64位
    系统大小:0MB系统类型:Win10

    萝卜家园在系统方面技术积累雄厚深耕多年,打造了国内重装系统行业的萝卜家园品牌,(win10企业版,win10 ghost,win10镜像),萝卜家园win10企业版 免激活密钥 激活工具 ghost镜像 X64位系统下载,其系统口碑得到许多人认可,积累了广大的用户群体,萝卜家园win10纯净版是一款稳定流畅的系统,一直以来都以用户为中心,是由萝卜家园win10团队推出的萝卜家园

    系统等级:
    进入下载 >
  • 萝卜家园windows10游戏版 win10游戏专业版 V2023 X64位系统下载

    萝卜家园windows10游戏版 win10游戏专业版 V2023 X64位系统下载64位
    系统大小:0MB系统类型:Win10

    萝卜家园windows10游戏版 win10游戏专业版 ghost X64位 系统下载,萝卜家园在系统方面技术积累雄厚深耕多年,打造了国内重装系统行业的萝卜家园品牌,其系统口碑得到许多人认可,积累了广大的用户群体,萝卜家园win10纯净版是一款稳定流畅的系统,一直以来都以用户为中心,是由萝卜家园win10团队推出的萝卜家园win10国内镜像版,基于国内用户的习惯,做

    系统等级:
    进入下载 >
  • windows11下载 萝卜家园win11专业版 X64位 V2023官网下载

    windows11下载 萝卜家园win11专业版 X64位 V2023官网下载64位
    系统大小:0MB系统类型:Win11

    萝卜家园在系统方面技术积累雄厚深耕多年,windows11下载 萝卜家园win11专业版 X64位 官网正式版可以更好的发挥系统的性能,优化了系统、驱动对硬件的加速,使得软件在WINDOWS11系统中运行得更加流畅,加固了系统安全策略,WINDOWS11系统在家用办公上跑分表现都是非常优秀,完美的兼容各种硬件和软件,运行环境安全可靠稳定。

    系统等级:
    进入下载 >