Question

Excel数据有效性设置的下拉菜单内容有多个，但选择时只能单选，如何设置下拉菜单，可以在选择时多选？

Answer 1

多选功能无法通过设置数据有效性来实现，需要插入“列表框”来实现该功能。

操作方法（以excel2007以上版本）：

1、首先点击工具栏中的“开发工具”选项，点击“插入”中的“列表框”图标。

2、然后在表格上画出一个列表框，并点击“属性”按钮。

3、在打开的设置窗口中选择数据源区域为需要显示的数据单元格，勾选“复选”，点击确定。

4、设置后即可实现在列表框内点击不同的数据可以同时选中，进行多选操作。

Answer 2

1、打开excel表，选择数据选项卡中的数据验证，如下图所示。

2、弹出对话框，输入要设置的序列，注意，序列之间用英文的逗号隔开。

3、确定后即可看到设置的下拉菜单。

4、还有一种方法是，在excel空白单元格处按列输入对应的序列。

5、然后选择数据验证，弹出对话框选择框选按钮。

6、框选已输入的序列。

7、即可看到对应的设置。就完成了。

Answer 3

这个不是用单元格的数据有效性作的，而是利用VBA控件中的列表框做的。单元格的数据有效性没有这个功能。

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim ar(), Str$
    For i = 0 To ListBox1.ListCount - 1
       If ListBox1.Selected(i) = True Then
        ReDim Preserve ar(k)
        ar(k) = ListBox1.List(i)
        k = k + 1
       End If
    Next
    Str = Join(ar(), ",")
    ActiveCell = Str
End Sub

追问

1. 我想要的效果：点击单元格，弹出多选的窗体，在窗体中选择，按确定，单元格中显示多选的内容。

2. 代码的具体的操作步骤是什么？在哪里设置多选的选项？
   

追答

Private Sub CommandButton1_Click()
    Dim ar(), Str$
    For i = 0 To ListBox1.ListCount - 1
       If ListBox1.Selected(i) = True Then
        ReDim Preserve ar(k)
        ar(k) = ListBox1.List(i)
        k = k + 1
       End If
    Next
    Str = Join(ar(), ",")
    ActiveCell = Str
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Dim ar, Str$
    Str = "我,你,他,她,我们,你们,他们,她们"
    ar = Split(Str, ",")
    With Me.ListBox1
        .Clear
        For i = 0 To UBound(ar)
            .AddItem
            .List(i) = ar(i)
        Next
        .ListStyle = fmListStyleOption
        .MultiSelect = fmMultiSelectMulti
    End With
End Sub

Answer 4

可以在单元格用快捷键ALT+向下的方向键。

Answer 5