如何根据参数表中的部门通过点击姓名窗体形式动态显示钩选修改人员所属部门

yzyyyyyyy

原始表：姓名，所属部门
参数表：列出所有部门
目标：根据参数表中的部门，点击原始表中的每个人员姓名，自动弹出当前的部门，多个部门是以逗号隔开的，可以自主钩选修改 如何根据参数表中的部门通过点击姓名窗体形式动态显示钩选修改人员所属部门.rar (4.37 KB, 下载次数: 13)

2017-11-23 11:34 上传

点击文件名下载附件

zpy2

一个人可以分属多个部门啊？

cqlpjxx

是一个高难度的问题，谁知道姓名10是哪个部门的？？？

yzyyyyyyy

cqlpjxx 发表于 2017-11-24 09:12
是一个高难度的问题，谁知道姓名10是哪个部门的？？？

所列出的部门一个也不钩选，就是空白。即暂时无部门。

chxw68

1. Private Sub ListBox1_Change()
   
2.   Dim i%
   
3.   ss = ""
   
4.   For i = 0 To ListBox1.ListCount - 1
   
5.     If ListBox1.Selected(i) Then
   
6.       ss = ss & "," & ListBox1.List(i)
   
7.     End If
   
8.   Next
   
9.   If Len(ss) <> 0 Then
   
10.     ActiveCell = Mid(ss, 2)
    
11.   Else
    
12.     ActiveCell = ""
    
13.   End If
    
14. End Sub
    
15. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
16.   Dim d As Object
    
17.   Set d = CreateObject("scripting.dictionary")
    
18.   If Target.Column = 2 Then
    
19.     ListBox1.Visible = True
    
20.     ListBox1.Left = ActiveCell(2, 2).Left
    
21.     ListBox1.Top = ActiveCell(2, 2).Top
    
22.     ListBox1.List = Application.Transpose(Sheets("参数表").Range("a2:a" & Sheets("参数表").Range("A65536").End(xlUp).Row))
    
23.   Else
    
24.     ListBox1.Visible = False
    
25.   End If
    
26.   If Len(Target.Value) <> 0 Then
    
27.     Application.EnableEvents = False
    
28.     arr = Split(Target.Value, ",")
    
29.     For i = 0 To UBound(arr)
    
30.       d(arr(i)) = ""
    
31.     Next
    
32.     With ListBox1
    
33.       For i = 0 To .ListCount - 1
    
34.         If d.exists(.List(i)) Then
    
35.           .Selected(i) = True
    
36.         End If
    
37.       Next
    
38.     End With
    
39.     Application.EnableEvents = True
    
40.   End If
    
41. End Sub
    
42. 
    

复制代码

chxw68

学习别的老师的代码。

蓝桥玄霜

窗体等自己能做的就应该自己先做好，不要完全做伸手党。