|
|
楼主 |
发表于 2014-12-27 20:49
|
显示全部楼层
TomingTang 发表于 2014-12-26 23:16 
我下载前竟然没有一个人下载你的附件。
看完你的问题：对“根据序号和累計未出訂單貨量在WIP分布里查找相同 ...
您好，以下代码今天测试时有点问题，能帮忙看看吗？就是订单分析里的序号，只能对应的是WIP分布里先找到相同序号，再在那一列查找符合条件的值，感谢帮忙 Dim arr, x&, y&, brr, z%, k%, crr()
Sheets("訂單分析").Select
arr = Range("a1").CurrentRegion
Sheets(3).Select
brr = Range(Range("b2"), Cells(Cells(Rows.Count, 2).End(xlUp).Row, Sheets(3).UsedRange.Columns.Count))
For x = 2 To UBound(arr)
On Error Resume Next
y = Application.WorksheetFunction.Match(arr(x, 1), Sheets(3).Range("b2:b" & Sheets(3).Cells(Rows.Count, 2).End(xlUp).Row), 0)
If Err.Number = 0 Then
For z = Sheets(3).UsedRange.Columns.Count - 1 To 3 Step -1
If brr(y + 2, z) > arr(x, 10) Then
k = k + 1
ReDim Preserve crr(1 To k)
crr(k) = brr(y, z)
Exit For
End If
Next z
Else
k = k + 1
ReDim Preserve crr(1 To k)
crr(k) = "未建立WIP"
End If
Err.Clear
Next x
Sheets("訂單分析").[s2].Resize(k, 1) = Application.Transpose(crr)
Sheets("訂單分析").Select
End Sub |
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2014-12-26 21:52
