允许多项选择的列表框.docxVIP

技巧 1 允许多项选择的列表框 一般情况下在显示的列表框中用户只能选择一个列表项， 而经过简单的设置， 列表框条 目前可以显示选项按钮，允许进行多项选择，如下面的代码所示。 #001 Private Sub UserForm_Initialize() #002 Dim arr As Variant #003 arr = Array( 经理室 , 办公室 , 生技科 , 财务科 , 营业部 , 制水车间 , 污水厂 , 安装公司 , 其他 ) #004 With Me.ListBox1 #005 .List = arr #006 .ListStyle = 1 #007 .MultiSelect = 1 #008 End With #009 End Sub 代码解析： 窗体的 Initialize 事件过程，在窗体初始化时对列表框进行设置。 其中第 5 行代码使用 List 属性为列表框添加列表项， 请参阅技巧 错误！未找到引用源。 。 第 6 行代码将列表框的 ListStyle 属性设置为 1（ fmListStyleOption ），显示用于多重选择列表的复选框， ListStyle 属性规定列表框或组合框中的列表的外观，语法如下： object.ListStyle [= fmListStyle] 参数 object 是必需的，一个有效的对象。 参数