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

国勇情

hzruziniu先生，你好，你的录入框非常好，  谢谢分享，小弟学习了，但 UserForm1  列表框录入到26行以下就不在窗口中了，能否修改代码，使之录入多行始终在窗口中央，这样就更完美了，谢谢！

deng91000203

ppp520 发表于 2011-5-9 11:11
谢谢各位大侠了！我终于都搞懂啦！

怎么弄得？我也想知道

cbjliulh

很实用，学习了！

flower890312

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

您好，请问怎么实现的？

Zamyi

flower890312 发表于 2015-5-15 10:48
您好，请问怎么实现的？

附件不是吗？

李小李毛小毛

Zamyi 发表于 2015-5-29 20:31
附件不是吗？

您好，我想做一个下拉多选的表格，下载了您的附件，可是看不懂，应该怎么操作呢！如果可以我可以把表格给您！谢谢

李小李毛小毛

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

版主您好，我这边有一个表格也需要做下拉多选，研究了一下版主在帖子中回复的内容，昨天弄了一晚上，还是没有成功。版主能够帮一下。特别想学会这个技能。

蓝桥玄霜

李小李毛小毛 发表于 2015-6-5 09:25
版主您好，我这边有一个表格也需要做下拉多选，研究了一下版主在帖子中回复的内容，昨天弄了一晚上，还是 ...

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

李小李毛小毛

蓝桥玄霜 发表于 2015-6-6 08:58
建议上传表格附件来说明问题。

版主，想要做下拉复选框的表格是SHEET1，复选框需要的内容在复选内容的表格中。谢谢版主。

蓝桥玄霜

1. Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2. Dim i&, xm$
   
3. If KeyCode = 13 Then
   
4. For i = 0 To ListBox1.ListCount - 1
   
5.     If ListBox1.Selected(i) Then
   
6.         xm = xm & ListBox1.List(i) & ","
   
7.     End If
   
8. Next
   
9. If xm <> "" Then ActiveCell = Left(xm, Len(xm) - 1): ListBox1.Visible = False
   
10. End If
    
11. End Sub
    
12. 
    
13. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
14. If Target.Count > 1 Then ListBox1.Visible = False: Exit Sub
    
15. If Target.Column <> 26 Or Target.Row < 4 Then ListBox1.Visible = False: Exit Sub
    
16. Dim Arr, i&
    
17. Arr = Sheet3.[a1].CurrentRegion
    
18. With ListBox1
    
19.     .Visible = True
    
20.     .Clear
    
21.     For i = 1 To UBound(Arr)
    
22.         .AddItem Arr(i, 1)
    
23.     Next
    
24.     .Top = Target.Top
    
25.     .Left = Target.Left + Target.Width
    
26.     .ListStyle = 1
    
27.     .MultiSelect = 1
    
28. End With
    
29. End Sub
    
30. 
    

复制代码