- 帖子
- 8
- 主題
- 2
- 精華
- 0
- 積分
- 16
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- office2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-5-16
- 最後登錄
- 2012-12-6
|
6#
發表於 2012-12-2 16:52
| 只看該作者
回復 5# stillfish00
大大,
原始程式如下,
這個部份目前在檔案上都有實際對應的SHEET去作業,
目前我在修改的就是把這些"表"轉成"陣列"去運算,
不知道這樣子大大您有看懂小的問題嗎?
麻煩大大您了,
謝謝!!!
Set rgpn = Range(Sheets("wh").[a2], Sheets("wh").[a65535].End(xlUp)) '庫存資料-庫存料號
Set rgw00 = Range(Sheets("wh").[j2], Sheets("wh").[j65535].End(xlUp)) '庫存資料-成品倉
Set rgw01 = Range(Sheets("wh").[i2], Sheets("wh").[i65535].End(xlUp)) '庫存資料-零件倉
Set rgabpn = Range(Sheets("表1").[C2], Sheets("表1").[C65535].End(xlUp)) '表1料號
cl = Sheets("表2").Range("L1").End(xlToRight).Column '取表2最後一欄
z22 = Sheets("表1").Range("a65535").End(xlUp).Row
z33 = Sheets("表2").Range("a65535").End(xlUp).Row
For i = 2 To z33
pn = Sheets("表2").Range("a" & i)
stk00 = Application.SumIf(rgpn, pn, rgw00)
stk01 = Application.SumIf(rgpn, pn, rgw01)
ttqty = m02a + m01a + m011 + m015 + m019 + m011w + m015w + m019w
Sheets("表2").Range("K" & i) = ttqty
Next
For i = 12 To cl ''''由表2取A件料號後計算表1上的需求
For j = 2 To z33
Dim rgabqty As Range
Set rgabqty = Range(Sheets("表1").Cells(2, i), Sheets("表1").Cells(z22, i)) '缺料分析R前置置作業-缺料前置的a組件的各日需求
awpn = Sheets("表2").Cells(j, 1) ' 取表2的料號
aqty = Application.SumIf(rgabpn, awpn, rgabqty) ''''取表1上的A件單日需求
qty = Sheets("表2").Cells(j, i - 1) |
|
發表於 2012-12-4 16:24
| 