[已解决]条件提取

yyyydddd8888

请用这一个文件，刚才好象传成了第一个文件：

我首先统计了车间的个数：brr 里面装的就是车间的个数，因此可以统计任意多个车间的前10名。
再按各车间进行了统计。

张雄友

yyyydddd8888 发表于 2013-11-3 15:52
请用这一个文件，刚才好象传成了第一个文件：

我首先统计了车间的个数：brr 里面装的就是车间的个数，因 ...

可以解释一下这几句？？？

crr(1, n) = arr(i, 1)
        crr(2, n) = "烫衣"
        crr(3, n) = arr(i, 2)
        crr(4, n) = arr(i, 4)
        crr(5, n) = arr(i, 5)

yyyydddd8888

张雄友 发表于 2013-11-3 15:32
可以用于多个车间？哪句代码可以看出？谢谢！

For i = 1 To UBound(arr)
    If Not dic.exists(arr(i, 1)) Then
       dic(arr(i, 1)) = ""
       End If
  Next i
    brr = dic.keys


这一句代码就是统计车间名称的，后面的代码再按照名称进行统计前10名。

请用11楼的附件，肯定没有问题。

yyyydddd8888

张雄友 发表于 2013-11-3 15:57
可以解释一下这几句？？？

crr(1, n) = arr(i, 1)

For i = 1 To UBound(arr)                  '这是装有数据源的数组，从第一条开始依次判断，如果符合下面的条件就把它装入数组crr    If arr(i, 1) = brr(k) And arr(i, 3) Like "*烫衣*" Then      
n = n + 1     
ReDim Preserve crr(1 To 5, 1 To n)      
crr(1, n) = arr(i, 1)       ' 因为要redim preserve只能改变数组的第二维，所以把arr中的值转置后赋给crr.就是把arr中第一行的        crr(2, n) = "烫衣"         '第一列给crr的第一行的第一列，把arr的第一行的第二列给crr的第三行第一列，把arr的第一行第四列        crr(3, n) = arr(i, 2)       '给crr的第四行第一列，把arr的第一行第五列给crr的第五行第一列。因为最后的结果的第二列的职务        crr(4, n) = arr(i, 4)       '全为“烫衣",所以把crr的第二行全都赋值为”烫衣".  有一个符合条件就给n增加一个，这样就能把所有        
crr(5, n) = arr(i, 5)     ’符合条件的都装在crr的列中了。
End If
Next i