vba 枚举示例

创建一个类模块 名字就叫 example

Private myGenderA As pGender
Public Enum pGender
    female = 1
    male = 2
End Enum

Public Property Get getGender() As pGender
Gender = myGenderA
End Property

Public Property Let setGender(inGender As pGender)
    myGenderA = inGender
End Property

调用之前的枚举类

  Dim rest As example
  Set rest = New example
  rest.Gender=

Sub ss()
    Dim re As example
    Set re = New example

    re.Gender = female
    Debug.Print re.Gender
End Sub

注意枚举只能是系统常量，数值 或者颜色 例如

Enum 颜色
紫色 = &H2552355
棕色 = &H1255987
粉色 = &HE1E4FF
深红 = &H2222B2
蓝色 = &HFF901E
灰色 = &H908070
春绿 = &H7FFF00
绿色 = &H228B22
土黄 = &H20A5DA
End Enum