Excel中使用VBA制作一个恶作剧小程序的操作方法
发布时间：2023-12-02 06:10:53
标签：恶作剧,数字,程序,输入,Excel函数
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制作一个恶作剧小程序的操作
0
投稿猜你喜欢
- 在Excel中，如果按年限总和法计算固定资产折旧额，可以使用SYD函数按年限总和法计算固定资产折旧额。Excel2007可使用SYD函数按年
- 函数说明VLOOKUP函数的主要作用是在表格或数值数组的首列查找指定的数值，并由此返回表格或数组当前行中指定列处的数值。当比较值位于数据表首
- Excel中经常需要用到函数取绝对值，具体该如何用函数取绝对值呢?接下来是小编为大家带来的excel取绝对值函数的用法，供大家参考。exce
有如下数据表：要求：1、按人事部、财务处、市场部、后勤处的顺序对部门进行排序；2、同一部门内，入职日期升序排列；3、同一部门、同一日期，姓名- 在Excel中插入的原始图表，可能并不能满足我们需要的美观，那么可以自己对图表进行美化，下面教大家操作步骤，让你的Excel图表高大上。美化
- max函数是返回一组值中最大值的函数，组值可以直接输入，也可以引用单元格。今天，小编就教大家在Excel中max函数的运用方法。Excel中
- excel表格是日常工作中常常需要使用到的办公软件之一，而其中，很多网友都会使用excel表格进行数据的记录。那么大家知道怎么设置自动排序呢
- Win10电脑蓝屏代码0xc000007b无法进入系统怎么办？相信许多电脑用户都有遇到过一些电脑蓝屏问题，许多小伙伴在遇到这些问题的时候都不
- 我们在使用word表格时，有时候需要给word表格加粗，那怎进行加粗呢，接下来这篇文章会告诉大家当我们要对word中插入的表格边框进行加粗的
- 如何在Word 2016中使用自动更正！Word 2016中的自动更正功能可即时修复数百种常见的拼写错误和拼写错误。您必须快速查看实际操作。
- Word有个很好的功能就是记忆功能，不少人在打开Word的时候就会默认打开上一次的文档，尽管这个功能很好但是仍然有不少人不喜欢这样的设置。
- 如何查看Word 2016中的修订？在您收到的糟糕的，残缺的Word 2016文档退还给您之后，查看审阅者（编辑者）造成的损害的最佳方法是使
- 合并单元格很常用的功能.一般的方法都知道了吧.其实这里面还有些小技巧的合并单元格很简单，只需要选取要合并的多个单元格，点合并就可以把单元格合
- 今天跟大家分享如何在工作表中进行分组别动态排名。应用案例对下图工作表中“一组”人员和“二组”人员分别按成绩进行小组排名，参考效果见D列。如果
- 都说Excel是处处皆技巧，这还真不是闹着玩。看看下面这组数据，需要制作一个柱形图。这些数据貌似没啥特殊的，咱们继续往下看。单击数据区域任意
- 在Word论文及长文档的编写中，需要对文章中的一些词语进行解释，这个时候可以插入脚注，如果是在Word文章的末尾，就称之为尾注。 添加脚注和
- 如何分离下图中B列单元格中的日期和文字？ 解决思路：由于日期与文本之间没有空格或相通类的符号，所以利用分列
- 在Word2010文档中进行邮件合并操作时，用户可以使用Outlook联系人作为收件人，不过前提是在Outlook中事先配置了联系人列表。在
- 模板可以存储样式、“自动图文集”词条、“自动更正”词条、宏、工具栏、自定义菜单设置和快捷键。加载一个模板可以使其成为共用模板，这样，在使用基
- Excel怎么把中文翻译成英文呢？下面小编来教大家。01、首先，我们打开我们电脑上面的excel，然后我们点击审阅；02、之后我们点击翻译；
