[發問] 求助~排程填入日期

帖子: 38
主題: 4
精華: 0
積分: 65
點名: 0
作業系統: Window7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-12-16
最後登錄: 2013-12-13

2^#

發表於 2013-1-10 14:18 | 只看該作者

回復 1# adam2010

試試看吧

Private Sub CommandButton1_Click()
Dim LotID As Range, Tagt As Range, Qty As Range
Dim a, TalQty
With sheet2
For Each LotID In .Range("A2:A" & .[A65536].End(xlUp).Row)
For Each Tagt In .Range("B" & LotID.Row & ":J" & LotID.Row)
If Tagt <> "" Then
With Sheet1
a = Application.Match(LotID, .[A:A], 0)
aa = Application.CountIf(.[A:A], LotID)
TalQty = 0
For Each Qty In .Range("D" & a & ":D" & (a + aa - 1))
If Qty.Offset(, 1) <> "" Then GoTo ntxa
Qty = Qty + TalQty
If Qty < Tagt Then
Qty.Offset(, 1) = sheet2.Cells(1, Tagt.Column)
TalQty = Qty
Else
Qty.Offset(, 1) = sheet2.Cells(1, Tagt.Column)
GoTo ntla
End If
ntxa:
Next Qty
ntla:
End With
End If
Next Tagt
Next LotID
End With
End Sub

複製代碼

帖子: 145
主題: 42
精華: 0
積分: 193
點名: 0
作業系統: Windows7
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2010-11-25
最後登錄: 2025-8-28

論壇贊助勳章

3^#

發表於 2013-1-10 22:10 | 只看該作者

感謝Dino大大迅速的協助，不過執行後
有部分數量被改到了，跟手動排的也有一些差異(如下圖綠底的部分是手排的結果)
小弟汗顏看不出是哪裡的問題？再次懇請協助，謝謝！

差異.jpg (159.89 KB)

Adam

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 267
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-31

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-1-10 22:45 | 只看該作者

回復 3# adam2010

排程應該會考慮每批最大量或最小量是多少?
就以1/1的250來說，為何要排成2批100、200
不能排100、150嗎?
程式設計必須考慮到整體邏輯相通，若有特別規定就必須詳細說明各種限制條件
才能整理出共同特性來解決問題

學海無涯_不恥下問

帖子: 145
主題: 42
精華: 0
積分: 193
點名: 0
作業系統: Windows7
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2010-11-25
最後登錄: 2025-8-28

論壇贊助勳章

5^#

發表於 2013-1-11 00:20 | 只看該作者

感謝超級版主的提醒，應該是我描述得不夠清楚...
關於版主所提的問題~排程應該會考慮每批最大量或最小量是多少?
就以1/1的250來說，為何要排成2批100、200，不能排100、150嗎?
因為公司產品特性投料時是外購而來一根一根長短不一的晶棒，批量則是根據切的厚度計算出來的片數，會有上下限但是無法控制批量大小
而且有時候因為機台作業特性(一次要切兩段)，所以可能需求只有250但是投料的時候需要投2段就變成會有多的一批是暫時沒有交期的

因此以這個範例來看只能先將超過1/1需求量的批次A001~A002定交期為1/1，而A002剩下的50片則可以給1/5
然後1/5需要的300片就用A003....一直到最後一批因為前面的數量已經足夠所以就暫時沒有交期
物料B的則一樣因為1/5需求550，所以要有兩個批次才夠
另外就是訂單的出貨日是客戶給的數量以及需求的日期，所以並不會有一定的規則

不知道這樣的描述是不是比較清楚

Adam

帖子: 145
主題: 42
精華: 0
積分: 193
點名: 0
作業系統: Windows7
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2010-11-25
最後登錄: 2025-8-28

論壇贊助勳章

6^#

發表於 2013-1-11 00:31 | 只看該作者

再補充一點就是有時候也會有
有訂單，但是尚未投料的狀況，所以只要將交期分配到同一個物料的批號結束即可

Adam

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

7^#

發表於 2013-1-11 14:14 | 只看該作者

本帖最後由 stillfish00 於 2013-1-11 14:15 編輯

回復 6# adam2010
試試看

Sub Test()
Dim rng As Range
Dim s1 As Long, s2 As Long
Dim cindex As Long
With Sheets(2)
Set rng = .Range(.[A1], .[A1].End(xlToRight).End(xlDown).Offset(, -1)) '[出貨日]資料範圍
End With
For Each c In Sheets(1).[E2:E15] '[交期]資料填入範圍
If c.Offset(, -4).Value <> c.Offset(-1, -4).Value Then
cindex = 1
s1 = 0 '累積至前一批數量
s2 = 0 '累積出貨需求數量
Else
s1 = s1 + c.Offset(-1, -1).Value
End If
Do While s2 <= s1 And cindex < rng.Columns.Count
cindex = cindex + 1
s2 = s2 + Application.VLookup(c.Offset(, -4).Value, rng, cindex, False)
Loop
If s2 <= s1 Then
c.Value = "NA"
Else
c.Value = rng.Cells(1, cindex).Value
End If
Next
Set rng=Nothing
End Sub

複製代碼

帖子: 145
主題: 42
精華: 0
積分: 193
點名: 0
作業系統: Windows7
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2010-11-25
最後登錄: 2025-8-28

論壇贊助勳章

8^#

發表於 2013-1-11 22:44 | 只看該作者

太感動了!感謝stillfish00大大的協助，這裡真是高手如雲，每個都是大師級的
剛才試了一下完全符合我的需求，不過套用到公司正式的大型檔案發現還有2個小問題
1.For Each c In Sheets(1).[E2:E15] '[交期]資料填入範圍→如果範圍是變動的該如何修改
2.如果遇到交期裡面有但是出貨日沒有的物料就會因為找不到卡在21行→要如何增加一個判別讓找不到的也顯示NA
解決了這2個問題應該就很完美了

Adam