返回列表 上一主題 發帖

[發問] 帶入對應的日期

52ee24

帖子
51 
主題
19 
精華
0 
積分
84 
點名
0  
作業系統
vista 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2014-11-26 
最後登錄
2024-1-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-5-2 00:14 | 只看該作者

[發問] 帶入對應的日期

各位學長姐好
我想在sheet(WIP)加入交期欄位(圖一)
帶入的規則是
先看預定完成日的日期
越舊的優先出貨
再比對sheet(交期)A欄的料號(圖二)
相同的料號在未滿足交期數量(C欄)前
都帶入B欄的交期
滿足後再帶入下一個日期
例如
(圖一)sheet(WIP)列2
料號0201-ACR-041，數量96。比對sheet(交期)後
sheet(WIP) D2應帶入"2020/5/8"
在還沒滿足sheet(交期)C7 的250數量前
sheet(WIP)裡同為"0201-ACR-041"料號的都帶入"2020/5/8"
以上說明
請各位幫忙了，感恩!!!

圖一.png (19.51 KB)

圖一.png

圖二.png (42.31 KB)

圖二.png

測試.rar (24.27 KB)

收藏 分享

hcm19522

帖子
1392 
主題
4 
精華
0 
積分
1402 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-12-27 

熱烈參與勳章
2#
發表於 2020-5-2 10:08 | 只看該作者
{=MIN(IF((交期!$A$2:$A$99=A2)*(SUMIF(A$2:A2,A2,C$2:C2)<=SUMIF(OFFSET(交期!A$2,,,ROW($1:$98)),交期!A$2:A$99,交期!C$2:C$99)),交期!B$2:B$99))
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

52ee24

帖子
51 
主題
19 
精華
0 
積分
84 
點名
0  
作業系統
vista 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2014-11-26 
最後登錄
2024-1-15 
3#
發表於 2020-5-2 12:10 | 只看該作者
回復 2# hcm19522


感謝hcm19522大
可以帶入了
但沒有出貨交期的料號都會帶入"1900/1/0"
請問怎麼解決??
我想的解決方案是
如果算出是"1900/1/0"的欄位
就帶入sheet(WIP)B欄的日期
這樣要怎麼寫函數??
再麻煩了!!
謝謝

TOP

hcm19522

帖子
1392 
主題
4 
精華
0 
積分
1402 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-12-27 

熱烈參與勳章
4#
發表於 2020-5-2 14:24 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/589095734
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1447 
主題
40 
精華
0 
積分
1471 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-12-5 
5#
發表於 2023-6-1 13:22 | 只看該作者
謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習方案如下,請各位前輩指教

交期表:


WIP表執行前:


WIP表執行結果:



Option Explicit
Sub TEST() '↑
Dim Arr, Brr, Crr, V$, Y, R&, i&, S&, T1$, T3$
Set Y = CreateObject("Scripting.Dictionary")
Brr = Range([交期!C2], [交期!A65536].End(xlUp))
For i = 1 To UBound(Brr): Y(Brr(i, 1)) = Y(Brr(i, 1)) & "/" & i: Next
Crr = Range([WIP!C2], [WIP!A65536].End(xlUp))
ReDim Arr(1 To UBound(Crr), 1 To 1)
For i = 1 To UBound(Crr)
   T1 = Crr(i, 1): T3 = Crr(i, 3)
   If Y(T1) = "" Then Arr(i, 1) = "無訂單": GoTo i01
i00: S = Y(T1 & "|餘量")
   If S <= 0 Then
      V = Mid(Y(T1), InStr(Y(T1), "/") + 1) & "/": R = Val(V)
      If R = 0 Then Arr(i, 1) = "無續單": GoTo i01
      Y(T1) = V: Y(T1 & "|餘量") = Brr(R, 3) + S
      If Y(T1 & "|餘量") <= 0 Then GoTo i00
      Y(T1 & "|交期") = Brr(R, 2)
   End If
   Arr(i, 1) = Y(T1 & "|交期")
   Y(T1 & "|餘量") = Y(T1 & "|餘量") - Crr(i, 3)
i01: Next
[WIP!D2].Resize(UBound(Arr)) = Arr
Set Y = Nothing: Erase Arr, Brr, Crr
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題