下拉框多选

1578278106

袏飜兲 发表于 2016-2-23 22:00
请问，A列所有单元格单击之后都可以出现这个对话框吗，还有就是所选的甲乙丙丁会显示在A列中吗

看你的需要，vba代码都可以实现。

袏飜兲

1578278106 发表于 2016-2-23 22:05
看你的需要，vba代码都可以实现。

哇，太好了，超级菜鸟不知道您可不可以赐教一下QQ,26605100

1578278106

你上个附件，写明要求、效果。

袏飜兲

1578278106 发表于 2016-2-23 22:16
你上个附件，写明要求、效果。

好的谢谢您，要求在附件中有

袏飜兲

1578278106 发表于 2016-2-23 22:16
你上个附件，写明要求、效果。

好的谢谢您，要求在附件中有

1578278106

1. Private Sub CommandButton1_Click()
   
2.     Dim Ctr As Control
   
3.     Dim i As Integer
   
4.     Dim rn As Range
   
5.     For Each Ctr In Me.Controls
   
6.         If Ctr.Value = True Then s = s & Ctr.Caption & ","
   
7.     Next
   
8.     Set rn = Application.InputBox("请选择存放的单元格", , , , , , , 8)
   
9.     rn.Value = VBA.Left(s, VBA.Len(s) - 1)
   
10. End Sub
    
11. 
    
12. Private Sub CommandButton2_Click()
    
13.     End
    
14. End Sub
    

复制代码

1578278106

1578278106

模板.rar (14.16 KB, 下载次数: 65)

2016-2-24 00:37 上传

点击文件名下载附件

1578278106

改进一下

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column = 4 And Target.Row > 1 Then
   
3.         UserForm1.Show 0
   
4.     End If
   
5. End Sub
   
6. Private Sub CommandButton1_Click()
   
7.     Dim Ctr As Control
   
8.     Dim i As Integer
   
9.     Dim rn As Range
   
10.     For Each Ctr In Me.Controls
    
11.         If Ctr.Value = True Then s = s & Ctr.Caption & ","
    
12.     Next
    
13.     '    Set rn = Application.InputBox("请选择存放的单元格", , , , , , , 8)
    
14.     '    rn.Value = VBA.Left(s, VBA.Len(s) - 1)
    
15.     Selection = VBA.Left(s, VBA.Len(s) - 1)
    
16.     Unload Me
    
17. End Sub
    
18. 
    
19. Private Sub CommandButton2_Click()
    
20.     End
    
21. End Sub
    
22. 
    

复制代码

1578278106

点击d列，自动弹出窗体，勾选之后，点击按钮，把勾选的写进d列当前单元格，窗体退出。