excel vba编程制作一个恶作剧小程序
我要评论今天小编为大家分享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编程制作一个恶作剧小程序方法介绍，操作很简单的，大家学会了吗？希望能对大家有所帮助！
相关文章
阳历/农历转换对照表怎么做? Excel制作日历表/万年历的最终版
想要制作阳历/农历转换对照表，，通过这个对照表，你只需知道阳历日期，就可以快速准确的找到对应的农历日期，下面我们就来看看详细制作方法2025-04-10- 工作上需要制作一个日历表/万年历，该怎么制作呢？我们需要使用三个excel函数来实现，详细请看下文介绍2025-04-10
- Excel中有一个功能非常强大的函数，它就是SUMPRODUCT函数，既能求和、计数、权重计算，还能排名等，今天我们就来看看Excel根据权重求和的技巧2025-04-10
tocol函数哪个版本能用? excel中tocol函数的两种高级用法
TOCOL函数公式非常强大，值得一学，从字面意义可以理解出来，它是将数据转换成一列的，今天分享TOCOL函数的2种高级用法2025-04-10Excel隐藏行和折叠行有什么不同? 隐藏行和折叠使用方法和区别介绍
excel表格进行操作的时候，发现有隐藏和和折叠行，看上去效果一样，都隐藏了，但是两者是有很大区别的，详细请看下文介绍2025-03-21Excel工龄计算不再愁! Excel隐藏函数DATEDIF轻松计算精确到天级的工龄
在日常工作中，我们经常需要计算员工的工龄，以便进行人事管理、薪资调整等工作，本文将详细介绍如何在Excel表格中计算工龄，并提供多种实用方法供您选择2025-03-13- Excel数据处理遇到的问题，99%都是由于奇葩的数据格式造成的，今天跟大家整理了几个Excel表格构建的规则,先不要问为什么，照着做就对了2025-03-06
Excel透视表1月到12月不能排序怎么办? 数据透视表日期无法排序解决方法
如图对数据透视表日期进行升序排序后，仍不是我们想要的结果，有可能月份是文本，不能排列，下面我们就来看看详细解决办法2025-03-06- 首先咱们得明确一下账龄的概念，简单来说，账龄就是某个账户的余额从产生到现在的时间长度，比如，一年以内的账龄就是那些在过去一年内产生的债权或债务，下面我们就来看看2025-03-06
实现办公自动化! DeepSeek搭配Excel制作自定义按钮的技巧
DeepSeek生成想要的代码很方便，如果将生成的代码放到excel中作为vba代码使用，岂不是能实现办公自动化？下面我们就来看看实现方法2025-03-05
最新评论