[已解决]Enum 语句啥时适用？

爱疯

1. 
   
2. Enum 菜价   '定义一个枚举类型"菜价"
   
3.     白菜 = 2
   
4.     萝卜 = 3
   
5.     土豆 = 4   
   
6. End Enum
   
7. 
   
8. Sub test()
   
9.     Dim x As 菜价
   
10.    
    
11.     x = 白菜 + 萝卜
    
12.     MsgBox x
    
13. End Sub

复制代码

和处理多个Const 语句的效果差不多。.... Enum最大的亮点是啥呢？
请问如题，谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2011-1-31 10:09

和常数差不多，最大的优点就是直观，而且可以分类。
当你定义一个变量为菜价后，等号后面会显示菜价枚举下的所有数据，而不会显示桌子凳子的价格。
在Excel内置的对象属性中，很多都是枚举，这样使用起来很方便。
比如你输入以下

1. cells.SpecialCells

复制代码

后面会直接跳出来关于Specialcells的各类参数值，这样就不会混淆。

跳转到最佳答案楼层

amulee

和常数差不多，最大的优点就是直观，而且可以分类。
当你定义一个变量为菜价后，等号后面会显示菜价枚举下的所有数据，而不会显示桌子凳子的价格。
在Excel内置的对象属性中，很多都是枚举，这样使用起来很方便。
比如你输入以下

1. cells.SpecialCells

复制代码

后面会直接跳出来关于Specialcells的各类参数值，这样就不会混淆。

爱疯

谢谢阿木！
原来就是直观和方便。只是觉得，我们很少很少会去用它。

amulee

一般，不开发大型程序都用不到

爱疯

学习了{:25:}

xdwy81129

回复 amulee 的帖子

与爱疯的提问结合没有理解到具体的东西

：（

老糊涂

学习了{:1112:}

戏子

不一定大型程序才能用到
代码写出来不一定是自己使用，特别是函数中参数，使用枚举不容易出错

爱疯

戏子 发表于 2011-2-4 22:38
不一定大型程序才能用到
代码写出来不一定是自己使用，特别是函数中参数，使用枚举不容易出错

谢谢戏子老师！
学习了{:25:}

戏子

1. Public Enum 计算方式
   
2. 加
   
3. 减
   
4. 乘
   
5. 除
   
6. End Enum
   
7. Public Function test(ByVal a As Double, ByVal b As Double, Optional ByVal c As 计算方式 = 0)
   
8.   Select Case c
   
9.       Case Is = 0
   
10.         test = a + b
    
11.       Case Is = 1
    
12.         test = a - b
    
13.       Case Is = 2
    
14.         test = a * b
    
15.       Case Is = 3
    
16.         test = a / b
    
17.    End Select
    
18. End Function

复制代码