excel自定义枚举常量
发布时间：2023-09-02 10:28:07
VBA提供了一些内置枚举常量，例如MsgBox函数的buttons参数成员vbOkOnly、vbOkCancel等，可以在程序中方便使用，并且这些常量可读性好，便于程序维护。当然，你可以创建自已的枚举常量，用于自已的代码。
使用Enum语句来创建枚举常量。Enum语句用于定义常量的名称、其内部各常量成员的名称以及对应的值。其语法为：
[Public Private] Enum 常量名
常量成员名 [ = 常量数值 ]
常量成员名 [ = 常量数值 ]
…
End Enum
说明：
Enum语句只能放置在代码模块的声明部分
常量数值必须为Long型，可以是一个正数或负数
如果从一开始就省略了常量数值，那么其常量成员名被赋值为0，后面依次加1。如果省略的不是第一个成员名，那么后面的比前面的数值大1
创建枚举常量后，就可以将变量声明为枚举常量，也可以作为自定义函数返回值的类型
枚举中的常量数值可以叠加，例如MsgBox函数中buttons参数值可以设置为vbCritical + vbYesNo
示例
下面的代码创建自定义枚举常量，并在程序中使用。
Enum MyText
MyExcel = 1
MyPerfect = 2
MyExclaim = 4
End Enum
Sub ExcelPerfect(eText AsMyText)
Dim strText As String
Select Case eText
Case 1
strText = “Excel”
Case 2
strText = ” ”
Case 3
strText = ” Excel”
Case 4
strText = “微信 ”
Case 5
strText = “excelperfect”
End Select
MsgBox strText
End Sub
Sub CallExcelPerfect()
ExcelPerfect MyExcel
ExcelPerfect MyPerfect + MyExcel
End Sub
运行CallExcelPerfect过程后的结果如下和所示。
0
投稿猜你喜欢
无论您是为轨道创建特定声音，还是构建复杂的多采样乐器，kontakt 6 mac破解版就是您需要的灵活的编辑器，具有七种播放模式，内置效果和- 我们在用WPS和Word办公时，通常会遇到在文档中插入表格的情况，在设置表头时，我们通常会需要在一个单元格内输入两个内容，这时候通常都会需要
- Wps是一款很受欢迎的办公软件，有不少小伙伴都在使用，但有部分小伙伴在使用Wps制作一些表格文件的时候因特殊原因需要调整整个框架，但有些接触
- 众所皆知Photoshop CS3是款多功能的图片处理软件，很多用户都会在电脑中安装使用，但是Photoshop CS3在使用中难免会一些错
- Win10当前主题壁纸在哪个文件夹？win10系统的个性化设置，让很多用户都会自己进行自定义设置主题壁纸，那么这些下载的主题壁纸放在哪个文件
- 有很多朋友了解到，普通的删除方式并不能让文件彻底消失，是有可能被恢复的，有些隐私的内容不想有被恢复的风险，尤其是想要卖掉旧电脑的时候，大家想
- 不少老师都习惯使用希沃白板录制知识胶囊微课，不过也有老师有遗憾，微课只能观看而无法了解学生掌握情况。最新版的希沃白板终于让我们的遗憾不再，微
- AV-TEST公布了2018年1~2月杀毒软件的最新测试情况，稍稍有点不接地气的是，基于Windows 10企业版平台。排名第一的依然是铁打
- 有用户表示，Win8系统添加打印机失败，提示“Windows无法连接到打印机”，错误代码为0X00000490。小编认为这可能是打印机的驱动
- 不管在什么系统上，快捷键都是让你高效操作电脑的一个方法。Win10系统出来后，大家在关注Win10上有哪些常用快捷键，下面跟小编一起来看看吧
- keninet.exe是一个代理服务器软件相关程序进程文件： keninet or keninet.exe 进程名称： AVM Ken Se
- 为什么Premiere会崩溃！有很多不同的原因可以解决这种情况，但有一个很大的解决方案，你可以尝试，它往往真的适用于很多人，如果没有，我们将
- 字号，是用来调整文字的大小的，中文字号越小，字体越大；下边的阿拉伯数字字号越大，字体也也大。WPS文字中文字号有哪些？WPS办公软件中，中文
- PowerPoint2007中默认的公式颜色是黑色的，简单的公式如x+y+z=0想变换颜色很方便，只要选取公式再点击“开始”选项卡下功能区的
- Mp3tag是一款功能非常强大的音乐管理编辑软件，它支持在MP3文件中加入曲名，演唱者，专集，年月，流派，注释等信息，受很多音乐工作者所青睐
- 在使用Win7时一直找不到“休眠”按钮，windows自带的帮助里也没有什么比较有用的东西，下面与大家分享下windows7系统不支持休眠的
- win8系统hiberfil.sys删除不了怎么办?最近有win8用户在磁盘中发现了一个hiberfil.sys文件，但不知道这个文件是干嘛
- 在用WPS 处置表格的 时分， 常常会 呈现行高和列宽不 同一， 假如表格数据 许多，那手动一个一个 调解就太 华侈 工夫了。>>
- 电脑就要面对着桌面，每天都看着同样的桌面，如果桌面背景太单调的就整个人都不好了，下面为大家介绍下把图片设置为Win10桌面背景的方法使用电脑
- 目前，越来越多的网友会选择金山wps作为自己的办公软件，而金山wps的强大功能也让网友们都感觉非常实用。其中，金山wps的云文档就是一个大家
