excel学习库

excel表格_excel函数公式大全_execl从入门到精通

第34讲:VBA类应用中枚举Enumeration的利用

大家好,今日继续类的讲解,到上一讲,我们的pigsy类的羽翼已经逐渐丰满,本篇的内容将让它变得更加专业。 不知道你注意到没有,pigsy类中对Gender(性别)属性的设计存在一点缺陷:我们用私有模块级字符串变量myGender宿主来保存性别数据,既然是一个字符串变量,那就可以往里面保存任何字符串数据,比如“女”,“女性”,“Female”,“男”,“男性”,“male”。虽然字面上都是可以理解的意思,但是写法上都不相同,你无法控制使用者会给myGender赋什么值,这样就会造成信息处理和判断上的混乱。作为一个较为专业的类的设计者,我们要提供一套规范的取值范围。 在上面的文字中,我提到了六个取值,这些值可以说是一个相对固定的常量,我们可以在类中使用像这种固定的常量名称,这种在类中使用常量的方式是非常普遍的。现在我们就来介绍如何在自己的类中使用这种常量。 这种常量实际上是枚举类型(Enumeration)中的一个值。我们在pigsy类的头部,为性别属性定义一个枚举类型pGender: Public Enum pGender Female Male End Enum 这里的枚举是pGender,其中“p”代表类名“pigsy”我们定义的是公有的(Public)枚举类型,这个枚举类型在整个项目范围内都是可见的,将类名缩写作为前缀有利于与其他类中的枚举类型相互区分。 特别注意点:一般的常量在定义的时候,需要给定一个常量值,可以为各种类型,比如Const PI As Double = 3.14,就是双精度型。但是枚举类型常量很特殊,它只能是长整形(Long)比如Female = 0。但是我们这里连“=0”都没有写。如果什么都没写,叫表示“从0开始,依次加1”,所以上述代码与下述代码是一样的: Female = 0 Male = 1 好了,枚举类型的定义就介绍到这里。我们来看看如何使用它。 有了pGender这个类型,我们就可以将性别属性定义为这种类型了。我们将 Private myGender As String 改为Private myGenderA As pGender,将Gender的读写属性做相应修改,相关代码最后效果如下: Private myGenderB As pGender Public Property Get Gender() As pGender Gender = myGenderA End Property Public Property Let Gender(inGender As pGender) Static myFlag As Boolean If myFlag = False Then myFlag = True myGenderA = inGender Else MsgBox "对不起,二师兄不能做性别修改" End If 类修改枚举部分的代码截图:有了这些修改以后,我们在类的测试代码中,就会发现不一样的效果了,如下图:通过以上的修正,类的使用者(模块1中的测试代码)在给性别赋值的时候,IDE的智能提示就会自动显示出来,供其选择。 类中的枚举常量使用起来非常简单,但是它极大地增加了类的友好性,也是开发人员专业性的直观体现。是一项投资回报率非常高的技能。 本讲的实际测试代码读者可以参考随书的测试文件VBA-CLASS(上34).xlsm 文件。 今日内容回向 1 本讲中讲了枚举,读者是否明白了? 2 本讲的代码中类的属性是否发生了改变?在取代OFFICE新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非VBA莫属!学习VBA是个过程,如太白诗云:众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山。 “水善利万物而不争”,绵绵密密,微则无声,巨则汹涌。学习亦如此,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时再去做自欺欺人的言论。要努力提高自己,有一颗充满生机的心灵,把握现在,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。茶,满也好,少也好,不要计较;浓也好,淡也好,其中自有值得品的味道。去感悟真实的时间,静下心,多学习,积累福报。而不是天天混日子,也不是天天熬日子。在后疫情更加严峻的存量残杀世界中,为自己的生存进行知识的储备,特别是新知识的储备。学习时微而无声,利用时则巨则汹涌。 VBA是利用Office实现自己小型办公自动化的有效手段,我记得20年前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。20年过去了,为了不让学习VBA的朋友重复我之前的经历,我根据自己多年VBA实际利用经验,推出了五部VBA专门教程。 第一VBA代码解决方案是VBA中各个知识点的讲解,覆盖绝大多数的VBA知识点,初学必备; 第二VBA数据库解决方案数据库是数据处理的专业利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。 第三VBA数组与字典解决方案数组和字典是VBA的精华,字典是VBA代码水平提高的有效手段,值得深入的学习。 第四VBA代码解决方案之视频是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。 第五VBA中类的解读和利用是一部高级教程,讲解类的虚无与肉身的度化,可以对促进自己理论的提高。 学习的过程也是修心的过程,修一个平静的心。在代码的世界中,心平静了,心情好了,身体自然而然就好。心静则正,内心里没有那么多邪知邪见,也就没有那么多妄想。利人就是利己。我的上述教程是我多的经验的传递,大家可以根据1,3,2,5或者是4,3,2,5的顺序逐渐深入的逐渐学习。 最后将一阙词送给致力于VBA学习的朋友: 浮云掠过,暗语无声,唯有清风,惊了梦中啼莺。 望星,疏移北斗,奈将往事雁同行。 阡陌人,昏灯明暗,忍顾长亭。 多少VBA人,暗夜中,悄声寻梦,盼却天明。 怎无凭! 分享成果,随喜正能量

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

«    2024年12月    »
1
2345678
9101112131415
16171819202122
23242526272829
3031
控制面板
您好,欢迎到访网站!
  查看权限
网站分类
搜索
最新留言
    文章归档
      友情链接