[已解决]老师！帮请帮我实现这个功能！

666666666

录3333入A.rar (13.1 KB, 下载次数: 13)

2016-7-13 23:06 上传

点击文件名下载附件

附件中的:拆 -10 DH-0002的单号我打错了，是DH-0004
请老师写代码时，修改下！
我用手机上网改不了附件！

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-7-16 14:51

金额通过单号进行匹配取值，代码如下：

1. Private Sub CommandButton2_Click()
   
2.     Dim d, i%
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Me
   
5.         For i = 1 To .ListView2.ListItems.Count
   
6.             If Not d.Exists(.ListView2.ListItems(i).SubItems(7)) Then
   
7.                 d.Add (.ListView2.ListItems(i).SubItems(7)), .ListView2.ListItems(i).SubItems(6) * 1
   
8.             Else
   
9.                 d(.ListView2.ListItems(i).SubItems(7)) = d(.ListView2.ListItems(i).SubItems(7)) + .ListView2.ListItems(i).SubItems(6) * 1
   
10.             End If
    
11.         Next
    
12.         For i = 1 To .ListView1.ListItems.Count
    
13.             .ListView1.ListItems(i).SubItems(6) = -d(.ListView1.ListItems(i).SubItems(7))
    
14.         Next
    
15.     End With
    
16. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

查询按钮代码如下：

1. Private Sub CommandButton1_Click()
   
2.     ListView1.ListItems.Clear '清除
   
3.     ListView2.ListItems.Clear '
   
4. 
   
5. With Sheets("sheet1")
   
6.     For i = 2 To .[F65536].End(xlUp).Row
   
7.    If InStr(.Cells(i, 8) & " ", "主") > 0 Then
   
8.                        Set Itm = ListView1.ListItems.Add()
   
9.                             qq = ListView1.ListItems.Count
   
10.             Itm.Text = qq
    
11.             Itm.SubItems(1) = qq
    
12.             Itm.SubItems(2) = .Cells(i, 1)
    
13.             Itm.SubItems(3) = .Cells(i, 2)
    
14.             Itm.SubItems(4) = .Cells(i, 3)
    
15.             Itm.SubItems(5) = .Cells(i, 4)
    
16.             Itm.SubItems(6) = Application.WorksheetFunction.SumIfs(.Columns("E:E"), .Columns("h:h"), "副", .Columns("F:F"), .Cells(i, 6)) * -1
    
17.             Itm.SubItems(7) = .Cells(i, 6)
    
18.             Itm.SubItems(8) = .Cells(i, 7)
    
19.             Itm.SubItems(9) = .Cells(i, 8)
    
20.     End If
    
21.           Next i
    
22.           End With
    
23.           Call CommandButton3_Click
    
24. End Sub

复制代码

666666666

老司机带带我 发表于 2016-7-14 08:48
查询按钮代码如下：

老师！如ListView1直接从ListView2取值，怎么修改。
因为ListView2里面的金额是手动修改的，并非来自单元格！

老司机带带我

666666666 发表于 2016-7-14 11:17
老师！如ListView1直接从ListView2取值，怎么修改。
因为ListView2里面的金额是手动修改的，并非来自单元 ...

直接取值你里面的项目名称怎么处理？比如编号，名称，规格

666666666

[ 本帖最后由 666666666 于 2016-7-16 11:03 编辑 ]\n\nPrivate Sub CommandButton2_Click()
    Dim i As Integer
    With Sheets("sheet1")
For G = 1 To ListView1.ListItems.Count
              ListView1.ListItems(G).SubItems(6) = Application.WorksheetFunction.SumIfs(.Columns("E:E"), .Columns("h:h"), "副", .Columns("F:F"), ListView1.ListItems(G).SubItems(7)) * -1
            Next G
    End With
End Sub
想改成从ListView2.ListItems(G).SubItems中取值
Private Sub CommandButton2_Click()
    Dim i As Integer
    With Sheets("sheet1")
For G = 1 To ListView1.ListItems.Count
              ListView1.ListItems(G).SubItems(6) = Application.WorksheetFunction.SumIfs(.Columns("ListView2.ListItems(G).SubItems(6):ListView2.ListItems(G).SubItems(6)"), .Columns("ListView2.ListItems(G).SubItems(9):ListView2.ListItems(G).SubItems(9)"), "副", .Columns("ListView2.ListItems(G).SubItems(7):ListView2.ListItems(G).SubItems(7)"), ListView1.ListItems(G).SubItems(7)) * -1
            Next G
    End With
End Sub
请老师再出手帮帮忙！

666666666

请老师出手再帮帮我

老司机带带我

金额通过单号进行匹配取值，代码如下：

1. Private Sub CommandButton2_Click()
   
2.     Dim d, i%
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Me
   
5.         For i = 1 To .ListView2.ListItems.Count
   
6.             If Not d.Exists(.ListView2.ListItems(i).SubItems(7)) Then
   
7.                 d.Add (.ListView2.ListItems(i).SubItems(7)), .ListView2.ListItems(i).SubItems(6) * 1
   
8.             Else
   
9.                 d(.ListView2.ListItems(i).SubItems(7)) = d(.ListView2.ListItems(i).SubItems(7)) + .ListView2.ListItems(i).SubItems(6) * 1
   
10.             End If
    
11.         Next
    
12.         For i = 1 To .ListView1.ListItems.Count
    
13.             .ListView1.ListItems(i).SubItems(6) = -d(.ListView1.ListItems(i).SubItems(7))
    
14.         Next
    
15.     End With
    
16. End Sub

复制代码