多选功能无法通过设置数据有效性来实现，需要插入“列表框”来实现该功能。
操作方法（以excel2007以上版本）：
1、首先点击工具栏中的“开发工具”选项，点击“插入”中的“列表框”图标。
2、然后在表格上画出一个列表框，并点击“属性”按钮。
3、在打开的设置窗口中选择数据源区域为需要显示的数据单元格，勾选“复选”，点击确定。
4、设置后即可实现在列表框内点击不同的数据可以同时选中，进行多选操作。
温馨提示：内容为网友见解，仅供参考
第1个回答 2020-02-14
1、打开excel表，选择数据选项卡中的数据验证，如下图所示。
2、弹出对话框，输入要设置的序列，注意，序列之间用英文的逗号隔开。
3、确定后即可看到设置的下拉菜单。
4、还有一种方法是，在excel空白单元格处按列输入对应的序列。
5、然后选择数据验证，弹出对话框选择框选按钮。
6、框选已输入的序列。
7、即可看到对应的设置。就完成了。
第2个回答 2017-07-17
这个不是用单元格的数据有效性作的，而是利用VBA控件中的列表框做的。单元格的数据有效性没有这个功能。
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 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
第3个回答 2019-12-23
可以在单元格用快捷键ALT+向下的方向键。
第4个回答 2020-03-21
相似回答
