楼主没有举例说明具体需求,下面以选择多个姓名为例,步骤如下:
先在清单表中列举一个姓名列表
在多选下拉菜单表中设置多选下拉框,按Alt+F11键进入VBE编辑器,将如下两段代码粘贴到多选下拉菜单这个表的右侧代码区
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSFormsReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If ListBox1ListIndex = -1 Then Exit Sub
Dim i&, str$
With ListBox1
For i = 0 To ListCount - 1
If Selected(i) Then
str = str & ";" & List(i)
End If
Next
TopLeftCellOffset(, -1)Value = Mid(str, 2)
Visible = False
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If TargetCount > 1 Then Exit Sub
If TargetRow > 2 And TargetColumn = 2 Then
Dim arr
arr = Sheets("清单")Cells(2, 1)Resize(Sheets("清单")Cells(RowsCount, 1)End(xlUp)Row - 1)
With ListBox1
MultiSelect = 1
ListStyle = 1
List = arr
Top = TargetTop
Left = TargetLeft + TargetWidth
Height = TargetHeight 15
Width = 90
Visible = True
End With
Else
ListBox1Clear
ListBox1Visible = False
End If
End Sub
最终效果如图:
注意:档案要保存为启用宏的工作簿
第一步:先选定其中一个需要多项选择下拉菜单的单元格,点击excle上的数据选项栏——数据有效性——选中下拉中的数据有效性。
第二步:d出数据有效性窗口。
第三步:一般做多项选择下拉菜单的时候,有效性条件允许中找到“序列”选项。
第四步:在来源中,写出你的多项选项的下拉菜单项目(每个项目中间用英文状态下的逗号表示)。例如:我,我们,你,你们,他,他们。
第五步:点击“确定”按钮,在之前选择的单元格中即可看到设置的多项选择下拉菜单。
第六步:如果下面的单元格同样如此,即可点击原有的单元格进行下拉即可。
选择设置区域:在“数据”选项下的“数据有效性”“设置”中,选择“序列”;来源中输入下拉菜单内容,以英文逗号分隔,或直接选择下拉菜单内容所在区域,确定后,即可生成下拉菜单。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)