Excel单元格中怎么才能设置一个下拉菜单提供多选功能

freshleaf · 发表于 2011-12-9 11:35

请教一下，如何让下拉框只适用于sheet1中的某一列，而不是整张sheet？？

freshleaf · 发表于 2011-12-9 11:08

本帖最后由 freshleaf 于 2011-12-9 11:09 编辑

请教一下：
ThisWorkbook中的代码：
Private Sub Workbook_Open()
Sheet1.ComboBox1.Clear
For i = 1 To 10
Sheet1.ComboBox1.AddItem "A" & i
Next
End Sub
如果下来菜单是固定值，而不是A1-A10，例如：王二、李三
那怎么该上面的语句呢？
谢谢！

noegonoego · 发表于 2012-1-5 09:45

本帖最后由 noegonoego 于 2012-1-5 09:47 编辑

Private Sub Worksheet_Change(ByVal Target As Range)
If OldValue <> "" And Target.Value <> "" Then '多项选择
      Application.EnableEvents = False
      Cells(Target.Row, Target.Column) = OldValue & ";" & Target.Value
      Application.EnableEvents = True
      OldValue = Cells(Target.Row, Target.Column)
Else:
      OldValue = Target.Value
End If

End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
OldValue = Target.Value
End Sub

好像我的方法更简单

molihim · 发表于 2012-9-17 23:44

顶一下学习学习3楼

hlhk · 发表于 2013-3-19 09:34

找了很久，希望有用。

shao1988 · 发表于 2014-4-8 12:00

我也是，球ZAMYI指教，最近公司叫我做个下拉菜单能多选的，查了好几天了，能教我详细过程不（QQ:494653608)

lopping · 发表于 2014-6-3 15:23

认真学习MSO中，EXCEL实在太深奥了

chenpong1974 · 发表于 2014-7-10 21:07

求ZAMYI或高手指教，教我做个下拉菜单能多选的，查了好几天了，能教我详细过程不（QQ:542767627)，希望能有详细的操作步骤。谢谢啦

chenpong1974 · 发表于 2014-7-10 21:08

希望能发我邮箱，542767627@qq.com

艾米麗兒 · 发表于 2014-8-29 14:41

Zamyi 发表于 2011-5-6 11:31
TRY........

大侠，如何实现的啊？

		自动登录	找回密码
密码			免费注册

[已解决] Excel单元格中怎么才能设置一个下拉菜单提供多选功能