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

艾米麗兒

蓝桥玄霜 发表于 2011-5-9 10:20
ThisWorkbook中的代码只是为了给组合框设置一个示例。
可以放到sheet1里面的。

版主，我一点都不懂的VBA，我花了一天的时间尝试着学习理解vba，但真心的是一头雾水，我现在遇到同样的问题，需要在一个单元格设置下拉菜单可以单选或是多选，求助，求赐教！

蓝桥玄霜

艾米麗兒 发表于 2014-8-29 15:23
版主，我一点都不懂的VBA，我花了一天的时间尝试着学习理解vba，但真心的是一头雾水，我现在遇到同样的问 ...

建议上传表格附件来说明问题。

艾米麗兒

谢谢版主提醒，见附件，需要将事故类型1的词条在事故类型1的一列单元格设置每个单元格可以有下拉菜单，并可以单选或是多选，拜托版主！

艾米麗兒

蓝桥玄霜 发表于 2014-8-29 16:12
建议上传表格附件来说明问题。

谢谢版主提醒，见附件，需要将事故类型1的词条在事故类型1的一列单元格设置每个单元格可以有下拉菜单，并可以单选或是多选，拜托版主！

艾米麗兒

蓝桥玄霜 发表于 2014-8-29 16:12
建议上传表格附件来说明问题。

版主，有我的问题能解么？

蓝桥玄霜

1. Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2. Dim i&, aa$
   
3. If KeyCode = 13 Then
   
4. For i = 0 To ListBox1.ListCount - 1
   
5.     If ListBox1.Selected(i) = True Then
   
6.         aa = aa & ListBox1.List(i) & " "
   
7.     End If
   
8. Next
   
9.         ActiveCell.Value = aa
   
10.         ListBox1.Visible = False
    
11. End If
    
12. End Sub
    
13. 
    
14. 
    
15. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
16. Dim Myr&, Arr
    
17. If Target.Count > 1 Then Me.ListBox1.Visible = False: Exit Sub
    
18. If Target.Column <> 9 And Target.Column <> 10 Then Me.ListBox1.Visible = False: Exit Sub
    
19. If Target.Column = 9 Then
    
20.     Myr = Cells(Rows.Count, "XFB").End(xlUp).Row
    
21.     Arr = Range("xfb2:xfb" & Myr)
    
22. Else
    
23.     Myr = Cells(Rows.Count, "XFc").End(xlUp).Row
    
24.     Arr = Range("xfc2:xfc" & Myr)
    
25. End If
    
26. With Me.ListBox1
    
27.     .Clear
    
28.     .List = Application.Index(Arr, 0, 1)
    
29.     .Left = Target.Left + Target.Width
    
30.     .Top = ActiveCell.Top
    
31.     .Width = ActiveCell.Width * 1.4
    
32.     .Height = ActiveCell.Height * 8
    
33.     .Visible = True
    
34. End With
    
35. End Sub
    

复制代码

蓝桥玄霜

可以单选也可以多选。回车赋值给单元格。
请见附件。

hzruziniu

用窗体不是很好吗
列表框.rar (19.86 KB, 下载次数: 1220)

2014-8-30 14:57 上传

点击文件名下载附件

chuily

hzruziniu 发表于 2014-8-30 14:57
用窗体不是很好吗

您好，我这边先做一个简单的下拉复选窗口，我下载了您的附件，但是不懂VBA还是做不成，希望您可以帮我看下，怎么做，如果可以麻烦加一下QQ：350941573，万分感谢！

大头菜871118

长见识了啊