查找与判断

曹银强

查找与判断

duquancai

惜字如金！

jiangxiaoyun

TEXT.rar (6.86 KB, 下载次数: 16)

2018-7-19 20:21 上传

点击文件名下载附件

曹银强

老师，意思为相同的批号，产品名称，加工工序，数量（分流加工数量),计件工资中有四个数量60，60，50，50其实只有两个分流加工数量60，50；要比较计划与计件工资中同比号，产品名称在同一工序中分流数量和的比较。谢谢

lsc900707

曹银强 发表于 2018-7-19 21:24
老师，意思为相同的批号，产品名称，加工工序，数量（分流加工数量),计件工资中有四个数量60，60，50，50其 ...

这些专业术语第一次看到，别说如何理解了。

曹银强

用计件工资中批号，产品名称，加工工序，数量作为一个整体，求不重复值和，再与计划中的对应批号,产品名称所对应计划数比较，以判断是否超出计划数。谢谢！！

LMY123

曹银强 发表于 2018-7-19 21:58
用计件工资中批号，产品名称，加工工序，数量作为一个整体，求不重复值和，再与计划中的对应批号,产品名称 ...

1. Sub 字典的项去重复后求和参考()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Range("F1").CurrentRegion.Offset(1, 0)
   
4.     For i = 2 To UBound(arr)
   
5.         S = arr(i, 1) & "," & arr(i, 2) & "," & arr(i, 3)
   
6.         If InStr(d(S), arr(i, 4)) = 0 Then
   
7.             d(S) = d(S) & "|" & arr(i, 4)
   
8.         End If
   
9.     Next
   
10.     k = d.keys
    
11.     t = d.items
    
12.     ReDim brr(0 To d.Count - 1, 1 To 10)
    
13.     For i = 0 To d.Count - 1
    
14.         brr(i, 1) = Split(k(i), ",")(0)
    
15.         brr(i, 2) = Split(k(i), ",")(1)
    
16.         tt = Split(Mid$(t(i), 2), "|")
    
17.         For c = 0 To UBound(tt)
    
18.             If InStr(t(i), "|") = 0 Then
    
19.                 brr(i, 3) = tt(c)
    
20.             Else
    
21.                 brr(i, 3) = brr(i, 3) + Val(tt(c))
    
22.             End If
    
23.         Next c
    
24.     Next i
    
25.     drr = Range("A1").CurrentRegion.Offset(2, 0)
    
26.     ReDim crr(1 To UBound(drr), 1 To UBound(drr, 2))
    
27.     For i = 1 To UBound(drr)
    
28.         For j = 0 To UBound(brr)
    
29.             If drr(i, 1) = brr(j, 1) And drr(i, 2) = brr(j, 2) And brr(j, 3) > drr(i, 3) Then
    
30.                 n = n + 1
    
31.                     For c = 1 To UBound(drr, 2)
    
32.                     crr(n, c) = brr(j, c)
    
33.                 Next c
    
34.             End If
    
35.         Next j
    
36.     Next i
    
37.     ReDim Err(1 To UBound(arr), 1 To UBound(arr, 2))
    
38.     For y = 2 To UBound(arr)
    
39.         For x = 1 To UBound(crr)
    
40.             If Len(crr(x, 1)) Then
    
41.                 If InStr(arr(y, 1), crr(x, 1)) And InStr(arr(y, 2), crr(x, 2)) And arr(y, 3) = "下料" Then
    
42.                     m = m + 1
    
43.                     For Z = 1 To UBound(arr, 2)
    
44.                         Err(m, Z) = arr(y, Z)
    
45.                     Next Z
    
46.                 End If
    
47.             End If
    
48.         Next x
    
49.     Next y
    
50.     Sheet2.Cells.Clear
    
51.     Sheet2.[A1].Resize(UBound(Err), UBound(Err, 2)) = Err
    
52. End Sub
    

复制代码

lqf336

添加一新列，把三个条件的内容用字符串连接在一块儿，组成一个新的列。然后分类汇总不就行啦。

曹银强

lqf336 发表于 2018-7-20 18:03
添加一新列，把三个条件的内容用字符串连接在一块儿，组成一个新的列。然后分类汇总不就行啦。

谢谢老师。

曹银强

lqf336 发表于 2018-7-20 18:03
添加一新列，把三个条件的内容用字符串连接在一块儿，组成一个新的列。然后分类汇总不就行啦。

谢谢老师指导