资 源 简 介
Option ExplicitPublic Enum LetterSize Regular = 0 Oversized = 1End EnumPublic Enum Region Canada = 0 EuropeanUnion = 1 International = 2End EnumPublic Enum RegularWeights Small = 0 Regular = 1End EnumPublic Enum OversizeWeights Small = 0 Medium = 1 Large = 2End EnumPrivate Sub UserForm_Initialize() cmbLetterSize.AddItem "Regular", 0 cmbLetterSize.AddItem "Oversized", 1 cmbRegion.AddItem "Canada", 0 cmbRegion.AddItem "European Union", 1 cmbRegion.AddItem "International", 2