求助 如何通过VBA实现下拉框多选

aosiner123

，帮忙做个样例谢谢

洋务德雷

1. Dim rng As Range
   
2. Private Sub ListBox1_GotFocus()
   
3.       With Me.ListBox1
   
4.             .Clear
   
5.             .AddItem "选项1"
   
6.             .AddItem "选项2"
   
7.             .AddItem "选项3"
   
8.             .AddItem "选项4"
   
9.             .AddItem "选项5"
   
10.             .AddItem "选项6"
    
11.       End With
    
12. End Sub
    
13. 
    
14. Private Sub ListBox1_LostFocus()
    
15.       Dim str As String, i As Integer
    
16.       str = ""
    
17.       For i = 0 To Me.ListBox1.ListCount - 1
    
18.             If Me.ListBox1.Selected(i) Then
    
19.                   str = str & "," & Me.ListBox1.List(i)
    
20.             End If
    
21.       Next i
    
22.       rng.Value = Right(str, Len(str) - 1)
    
23.       Me.ListBox1.Clear
    
24.       Me.ListBox1.Visible = False
    
25. End Sub
    
26. 
    
27. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
28.       If Target.Column = 2 Then
    
29.             With Me.ListBox1
    
30.                   .Visible = True
    
31.                   .Clear
    
32.                   .AddItem "选项1"
    
33.                   .AddItem "选项2"
    
34.                   .AddItem "选项3"
    
35.                   .AddItem "选项4"
    
36.                   .AddItem "选项5"
    
37.                   .AddItem "选项6"
    
38.                   .Top = Target.Top
    
39.                   .Left = Target.Left + Target.Width
    
40. '                  .Height = Target.Height
    
41.             End With
    
42.             Set rng = Target
    
43.       Else
    
44.             With Me.ListBox1
    
45.                   .Visible = False
    
46.             End With
    
47.       End If
    
48. End Sub
    
49. 
    
50. 
    

复制代码

aosiner123

我想只指定某一个 单元格执行，并不是一列都是这样的，代码如何调整呢

aosiner123

能否上传一个 EXCEL 文档呢，谢谢