[已解决]《《《 --- （数据替换）的问题!恳请老师帮忙！ --- 》》》

80013025

数据替换的问题!恳请老师帮忙！

附件：：：：：：：：： ListView1重新制表2003版.rar (148.01 KB, 下载次数: 12)

2017-8-21 15:45 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-8-22 09:19

1. Private Sub CommandButton3_Click()
   
2. 'MsgBox "将（进货数据.销售数据）表中 与【A组数据】相匹配的内容 全替换为【B组数据】", 48
   
3. Dim arr(1 To 5), brr(1 To 5), i, crr
   
4. Dim str2$, Str$, n%, X%
   
5. For i = 1 To 6
   
6.     If i <> 3 Then
   
7.         X = X + 1
   
8.         arr(X) = ListView2.SelectedItem.SubItems(i) 'B数据
   
9.         brr(X) = ListView1.SelectedItem.SubItems(i) 'A数据
   
10.     End If
    
11. Next
    
12. Str = Join(arr, "|")
    
13. With Sheets("进货")
    
14.     crr = .Range("e8").CurrentRegion
    
15.     For i = 2 To UBound(crr) '开始于行8-->i+6
    
16.         If crr(i, 17) & "|" & crr(i, 21) & "|" & crr(i, 3) & "|" & crr(i, 4) & "|" & crr(i, 5) = Str Then
    
17.              n = n + 1
    
18.            .Cells(i + 6, "e") = brr(3)
    
19.            .Cells(i + 6, "F") = brr(4)
    
20.            .Cells(i + 6, "G") = brr(5)
    
21.            .Cells(i + 6, "W") = brr(2)
    
22.            .Cells(i + 6, "S") = brr(1)
    
23.         End If
    
24.     Next
    
25. End With
    
26. Erase crr
    
27. With Sheets("销售")
    
28.    crr = .Range("e8").CurrentRegion
    
29.     For i = 2 To UBound(crr) '开始于行8-->i+6
    
30.         If crr(i, 17) & "|" & crr(i, 21) & "|" & crr(i, 3) & "|" & crr(i, 4) & "|" & crr(i, 5) = Str Then
    
31.             n = n + 1
    
32.            .Cells(i + 6, "e") = brr(3)
    
33.            .Cells(i + 6, "F") = brr(4)
    
34.            .Cells(i + 6, "G") = brr(5)
    
35.            .Cells(i + 6, "W") = brr(2)
    
36.            .Cells(i + 6, "S") = brr(1)
    
37.         End If
    
38.     Next
    
39. End With
    
40. Erase arr, brr, crr
    
41. MsgBox n & "个已更改"
    
42. End Sub

复制代码

改了，看下是否还有问题

跳转到最佳答案楼层

苏子龙

1. Private Sub CommandButton3_Click()
   
2. 'MsgBox "将（进货数据.销售数据）表中 与【A组数据】相匹配的内容 全替换为【B组数据】", 48
   
3. 
   
4. Dim arr(1 To 5), brr(1 To 5), i, crr, Str$, n%
   
5. For i = 1 To 5
   
6. arr(i) = ListView1.SelectedItem.SubItems(i + 1)
   
7. brr(i) = ListView2.SelectedItem.SubItems(i + 1)
   
8. Next
   
9. Str = Join(arr, "|")
   
10. With Sheets("进货")
    
11.     crr = .Range("e8").CurrentRegion
    
12.     For i = 2 To UBound(crr) '开始于行8-->i+6
    
13.         If crr(i, 17) & "|" & crr(i, 21) & "|" & crr(i, 3) & "|" & crr(i, 4) & "|" & crr(i, 5) = Str Then
    
14.         n = n + 1
    
15.            .Cells(i + 6, "e") = brr(3)
    
16.            .Cells(i + 6, "F") = brr(4)
    
17.            .Cells(i + 6, "G") = brr(5)
    
18.            .Cells(i + 6, "W") = brr(2)
    
19.            .Cells(i + 6, "S") = brr(1)
    
20.         End If
    
21.     Next
    
22. End With
    
23. Erase crr
    
24. With Sheets("销售")
    
25.    crr = .Range("e8").CurrentRegion
    
26.     For i = 2 To UBound(crr) '开始于行8-->i+6
    
27.         If crr(i, 17) & "|" & crr(i, 21) & "|" & crr(i, 3) & "|" & crr(i, 4) & "|" & crr(i, 5) = Str Then
    
28.         n = n + 1
    
29.            .Cells(i + 6, "e") = brr(3)
    
30.            .Cells(i + 6, "F") = brr(4)
    
31.            .Cells(i + 6, "G") = brr(5)
    
32.            .Cells(i + 6, "W") = brr(2)
    
33.            .Cells(i + 6, "S") = brr(1)
    
34.         End If
    
35.     Next
    
36. End With
    
37. Erase arr, brr, crr
    
38. MsgBox n & "个已更改"
    
39. End Sub

复制代码

大概这样，数据源格式不要动，不然crr取的会有问题！若有问题自己改改吧

80013025

苏子龙 发表于 2017-8-21 18:28
大概这样，数据源格式不要动，不然crr取的会有问题！若有问题自己改改吧

苏子龙老师！谢谢您给的代码！
我刚执行代码后，发现数据没有任何变化！
请老师帮忙再看看！

苏子龙

1. Private Sub CommandButton3_Click()
   
2. 'MsgBox "将（进货数据.销售数据）表中 与【A组数据】相匹配的内容 全替换为【B组数据】", 48
   
3. Dim arr(1 To 5), brr(1 To 5), i, crr
   
4. Dim str2$, Str$, n%, X%
   
5. For i = 1 To 6
   
6.     If i <> 3 Then
   
7.         X = X + 1
   
8.         arr(X) = ListView2.SelectedItem.SubItems(i) 'B数据
   
9.         brr(X) = ListView1.SelectedItem.SubItems(i) 'A数据
   
10.     End If
    
11. Next
    
12. Str = Join(arr, "|")
    
13. With Sheets("进货")
    
14.     crr = .Range("e8").CurrentRegion
    
15.     For i = 2 To UBound(crr) '开始于行8-->i+6
    
16.         If crr(i, 17) & "|" & crr(i, 21) & "|" & crr(i, 3) & "|" & crr(i, 4) & "|" & crr(i, 5) = Str Then
    
17.              n = n + 1
    
18.            .Cells(i + 6, "e") = brr(3)
    
19.            .Cells(i + 6, "F") = brr(4)
    
20.            .Cells(i + 6, "G") = brr(5)
    
21.            .Cells(i + 6, "W") = brr(2)
    
22.            .Cells(i + 6, "S") = brr(1)
    
23.         End If
    
24.     Next
    
25. End With
    
26. Erase crr
    
27. With Sheets("销售")
    
28.    crr = .Range("e8").CurrentRegion
    
29.     For i = 2 To UBound(crr) '开始于行8-->i+6
    
30.         If crr(i, 17) & "|" & crr(i, 21) & "|" & crr(i, 3) & "|" & crr(i, 4) & "|" & crr(i, 5) = Str Then
    
31.             n = n + 1
    
32.            .Cells(i + 6, "e") = brr(3)
    
33.            .Cells(i + 6, "F") = brr(4)
    
34.            .Cells(i + 6, "G") = brr(5)
    
35.            .Cells(i + 6, "W") = brr(2)
    
36.            .Cells(i + 6, "S") = brr(1)
    
37.         End If
    
38.     Next
    
39. End With
    
40. Erase arr, brr, crr
    
41. MsgBox n & "个已更改"
    
42. End Sub

复制代码

改了，看下是否还有问题

苏子龙

还有规格不一样的咋办，有没有一个主键什么的，不然不好判断啊

80013025

苏子龙 发表于 2017-8-22 09:25
还有规格不一样的咋办，有没有一个主键什么的，不然不好判断啊

老师是指，好年冬有10ml的和100ml的吧这两个只是名称相同规格却不同，
可以根据货品编码进行区分
货品编码对每个货品是唯一的
好年冬 10ml      货品编码 HP0145
好年冬 100ml    货品编码 HP0144