求助单元格下拉框实现复选框多选

804568712

能使排产单中壳体、接线方式、螺纹、配件在下拉框选择时实现多选

蓝桥玄霜

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Column > 8 Or Target.Row < 4 Or Target.Row > 5 Then GoTo 100
   
3. Dim Arr, d, col$, j&
   
4. Target = ""
   
5. col = "1478"
   
6. j = InStr(col, Target.Column)
   
7. Set d = CreateObject("Scripting.Dictionary")
   
8. Arr = [l1].CurrentRegion
   
9. For i = 2 To UBound(Arr)
   
10.     If Arr(i, j) = "" Then Exit For
    
11.     d(Arr(i, j)) = ""
    
12. Next
    
13. With Me.ListBox1
    
14.     .Visible = True
    
15.     .Top = [c6].Top
    
16.     .Left = Cells(5, Target.Column).Left
    
17.     .Clear
    
18.     .List = d.keys
    
19. End With
    
20. Exit Sub
    
21. 100:
    
22. With Me.ListBox1
    
23.     .Visible = False
    
24. End With
    
25. 
    
26. End Sub
    
27. Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
28.     Dim i&, aa$, bb$
    
29.     If KeyCode = 13 Then       '回车
    
30.         If ListBox1.ListCount > 0 Then
    
31.             For i = 0 To ListBox1.ListCount - 1
    
32.                 If ListBox1.Selected(i) Then
    
33.                     aa = aa & ListBox1.List(i) & vbCrLf
    
34.                 End If
    
35.             Next
    
36.             ActiveCell = aa
    
37.             Me.ListBox1.Clear
    
38.             Me.ListBox1.Visible = False
    
39.             KeyCode = 0
    
40.             ActiveCell.Offset(1, 0).Select
    
41.         End If
    
42.     End If
    
43. End Sub
    
44. 
    

复制代码

蓝桥玄霜

请见附件。
选择以后按回车键输入。

804568712

蓝桥玄霜 发表于 2016-6-30 10:23
请见附件。
选择以后按回车键输入。

非常实用，谢谢

dvdriper

谢谢,如果不从表格取数,直接输入引用的字符,应该怎么弄呢?