[已解决]就差一点点就完成代码了，大神们帮帮忙

qdwfjmqj

应该只差几两句代码的问题！基本的做法我是做出来了，就是不知道怎么将双击后的值写入A1单元格，还有个位置跟随的问题，看附件！大神们帮帮忙

最佳答案

月排行榜 / 总排行榜

grf1973

2017-11-2 10:47

1. Private Sub CommandButton1_Click()
   
2.     arr = [{"123","234","1234","2345","23456"}]
   
3.     With Me.ListBox1
   
4.         .Clear
   
5.         .List = arr   '显示内容
   
6.         .Top = Me.CommandButton1.Top + Me.CommandButton1.Height   '显示位置（跟随按钮：top=按钮top+按钮的高度，left=按钮的left）
   
7.         .Left = Me.CommandButton1.Left
   
8.         .Visible = True
   
9.     End With
   
10. End Sub
    
11. 
    
12. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    
13.     For i = 0 To Me.ListBox1.ListCount - 1   '选中后在A1单元格显示
    
14.         If Me.ListBox1.Selected(i) = True Then [a1] = Me.ListBox1.List(i)
    
15.     Next
    
16.     Me.ListBox1.Visible = False
    
17. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Private Sub CommandButton1_Click()
   
2.     arr = [{"123","234","1234","2345","23456"}]
   
3.     With Me.ListBox1
   
4.         .Clear
   
5.         .List = arr   '显示内容
   
6.         .Top = Me.CommandButton1.Top + Me.CommandButton1.Height   '显示位置（跟随按钮：top=按钮top+按钮的高度，left=按钮的left）
   
7.         .Left = Me.CommandButton1.Left
   
8.         .Visible = True
   
9.     End With
   
10. End Sub
    
11. 
    
12. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    
13.     For i = 0 To Me.ListBox1.ListCount - 1   '选中后在A1单元格显示
    
14.         If Me.ListBox1.Selected(i) = True Then [a1] = Me.ListBox1.List(i)
    
15.     Next
    
16.     Me.ListBox1.Visible = False
    
17. End Sub
    

复制代码

qdwfjmqj

grf1973 发表于 2017-11-2 10:47

太感谢了，就是不会这！我想了很多代码和帮忙，结果你这么一写，我哭了，我白想了1天，哎，我真的是学的太少了，非常感谢！

exc姜

学习