请教ListView1选择行添加到ListView2的实例

鄂龙蒙

请教：想要在ListView1中显示的多行数据，勾选一行就添加到ListView2，再选一行又添加到ListView2，这方面的实例。
谢谢！
Listview1选择添加到Listview2.rar (17.36 KB, 下载次数: 101)

2016-1-13 20:43 上传

点击文件名下载附件

bajifeng

勾选？
请问在哪里勾选，在您自定义的窗体吗？
还是工作表中的数据?

鄂龙蒙

bajifeng 发表于 2016-1-13 19:42
勾选？
请问在哪里勾选，在您自定义的窗体吗？
还是工作表中的数据?

谢谢您！
是在ListView1里选中，一行一行地添加到ListView2

鄂龙蒙

bajifeng 发表于 2016-1-13 19:42
勾选？
请问在哪里勾选，在您自定义的窗体吗？
还是工作表中的数据?

实际上是：如ListView1中显示了10行数据，想有选择地如将2、5、9行数据添加到ListView2中。

鄂龙蒙

bajifeng 发表于 2016-1-13 19:42
勾选？
请问在哪里勾选，在您自定义的窗体吗？
还是工作表中的数据?

做了个模拟表，请您帮助！谢谢！

bajifeng

鄂龙蒙 发表于 2016-1-13 20:44
做了个模拟表，请您帮助！谢谢！

供参考>>>>>>>>>>>

bajifeng

1. Private Sub UserForm_Initialize()
   
2.   With ListView1
   
3.     .ColumnHeaders.Add , , "姓名", 60
   
4.     .ColumnHeaders.Add , , "语文", 55
   
5.     .ColumnHeaders.Add , , "数学", 55
   
6.      .View = lvwReport
   
7.     .Gridlines = True
   
8.   End With
   
9.   TextBox1.TabIndex = 0
   
10. End Sub
    
11. 
    
12. Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
13.   Dim firstAddress As String, rng As Range
    
14.      ListView1.ListItems.Clear
    
15.   If TextBox1.Text = "" Then GoTo line
    
16.   With Range("a:a")
    
17.     Set rng = .Find(TextBox1.Text, LookIn:=xlValues, Lookat:=xlPart)
    
18.     If Not rng Is Nothing Then
    
19.       firstAddress = rng.Address
    
20.       Do
    
21.         Set Item = ListView1.ListItems.Add()
    
22.         Item.Text = rng.Text
    
23.         Item.SubItems(1) = rng.Offset(0, 1).Text
    
24.         Item.SubItems(2) = rng.Offset(0, 2).Text
    
25.         Set rng = .FindNext(rng)
    
26.       Loop While rng.Address <> firstAddress
    
27.     End If
    
28.   End With
    
29. line:
    
30.   ListView1.Height = ListView1.Font.Size * ListView1.ListItems.Count + 25
    
31.   Me.Height = ListView1.Height + 70
    
32. End Sub

复制代码

鄂龙蒙

bajifeng 发表于 2016-1-13 21:12

谢谢您！不过想要的不是这种情况。

bajifeng

鄂龙蒙 发表于 2016-1-14 09:35
谢谢您！不过想要的不是这种情况。

好吧，那我就把原原本本帮你写一遍吧。

bajifeng

1. 
   
2. Dim dn%, k
   
3. Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
   
4. 'by bajifeng
   
5. ReDim s(1 To dn, 1 To 2)
   
6. For Each ck In ListView1.ListItems
   
7.     m = m + 1
   
8.     If ck.Checked Then
   
9.         n = n + 1
   
10.         s(n, 1) = n
    
11.         s(n, 2) = ListView1.ListItems(m)
    
12.     End If
    
13. Next
    
14. With ListView2
    
15.     .ListItems.Clear
    
16.     .ColumnHeaders.Add , , "序号", 30
    
17.     .ColumnHeaders.Add , , "凭证号码", 50
    
18.     .View = lvwReport
    
19.     .FullRowSelect = True
    
20.     .Gridlines = True
    
21.     For i = 1 To UBound(s)
    
22.         Set Itm = .ListItems.Add()
    
23.         Itm.Text = s(i, 1)
    
24.         Itm.SubItems(1) = s(i, 2)
    
25.     Next i
    
26. End With
    
27. End Sub
    
28. 
    
29. Private Sub UserForm_Initialize()
    
30. Dim arr, a, d, i, t
    
31. Set d = CreateObject("scripting.dictionary")
    
32. With Sheets("sheet1")
    
33.     a = .Range("D2").End(xlDown).Row
    
34.     arr = .Range("D2:D" & a)
    
35.     For i = 2 To UBound(arr)
    
36.         d(arr(i, 1)) = ""
    
37.     Next i
    
38.     k = d.keys
    
39.     t = d.items
    
40.     dn = d.Count
    
41. End With
    
42. With ListView1
    
43.     Dim Itm
    
44.     .ListItems.Clear
    
45.     .ColumnHeaders.Add , , "凭证号码", 50
    
46.     .View = lvwReport
    
47.     .FullRowSelect = True
    
48.     .Gridlines = True
    
49.     .MultiSelect = True
    
50.     .CheckBoxes = True
    
51.     For i = 0 To UBound(k)
    
52.         Set Itm = .ListItems.Add()
    
53.         Itm.Text = k(i)
    
54.     Next i
    
55. End With
    
56. 
    
57. With ListView2
    
58.     .ListItems.Clear
    
59.     .ColumnHeaders.Add , , "序号", 30
    
60.     .ColumnHeaders.Add , , "凭证号码", 50
    
61.     .View = lvwReport
    
62.     .FullRowSelect = True
    
63.     .Gridlines = True
    
64. End With
    
65. End Sub

复制代码