Excel设置可多选下拉菜单.pdf

Excel 中设置可多选下拉菜单 注意：需要在 Excel2003 中进行，必须是.xls 类型的文档，.xlsx 类型的不可以。 第一步：显示“开发工具”选项卡。 1）点击Excel 左上角图标，点击“Excel 选项(I)”。 2 ）点击Excel 左上角图标，在【常规】项中勾选 【在功能区域显示“开发工具”选项卡】。 第二步，设置菜单选项内容：在当前Excel 的另一个工作表 （名称可修改）中输入菜单选项内容。 第三步：拖入ListBox 控件。 1）点击【开发工具】插入ActiveX 控件中ListBox，拖入Excel 表第一个工作表Sheet1 中。 第四步，设置ListBox 属性：选中 ListBox 控件点击【设计模式】点击【属性】点击【按分类序】，修改MultiSelect 项为“1 – fmMultiSelectMulti ”，修改ListStyle 项为“1 –fmListStyleOption ”，设置ListFillRange 项为所选菜单选项所 在的表格名称和单元格范围，具体格式为“表名！单元格开始:单元格结束”。 第五步，编码代码： 1）在 Excel 中点击【开发工具】 【Visual Basic 】打开VB 编辑器。 2 ）在VB 编辑器中双击Sheet1，将以下代码粘贴到编辑器中并保存。 Private Sub ListBox1_Change() If ReLoad Then Exit Sub '见下方说明 For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then t = t & "," & ListBox1.List(i) Next ActiveCell = Mid(t, 2) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) With ListBox1 '说明：ActiveCell.Column=1 表示选下拉列表在第一列显示，可随意修改；ActiveCell.Row>1 表示从第一行开始往下都有 下拉菜单，可改为：ActiveCell.Row=1 只有第一个单元格有下拉菜单，ActiveCell.Row>1 A ND ActiveCell.Row<10 表示 1 到9 行 单元格有下拉菜单 If ActiveCell.Column = 1 And ActiveCell.Row > 1 Then t = ActiveCell.Value ReLoad = True '如果是根据单元格的值修改列表框，则暂时屏蔽 listbox 的change 事件。 For i = 0 To .ListCount - 1 '根据活动单元格内容修改列表框中被选中的内容 If InStr(t, .List(i)) Then .Selected(i) = True Else .Selected(i) = False