列出先進先出訊息 - Excel程式區

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

1^# 跳轉到 »

發表於 2020-4-1 14:36 | 顯示全部帖子

日期必須是由小而大排序的~~
程式碼簡化不了, 慢慢看吧!

Sub TEST()
Dim Arr, Brr, Crr, xD, i&, k%, R&, C%, 需求&, 庫存&, V&, TR, Mx&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([庫存!C1], [庫存!A65536].End(xlUp))
For i = 2 To UBound(Arr)
xD(Arr(i, 1)) = Trim(xD(Arr(i, 1)) & " " & i)
Next i
'---------------------------------
Brr = Range([C2], [B65536].End(xlUp))
ReDim Crr(1 To UBound(Brr), 1 To 100)
For i = 1 To UBound(Brr)
C = 1: 需求 = Brr(i, 2)
TR = Split(Trim(xD(Brr(i, 1)) & " 1"), " ")
For k = 0 To UBound(TR)
庫存 = Val(Arr(TR(k), 3)): If 庫存 = 0 Then GoTo k01
V = IIf(庫存 < 需求, 庫存, 需求)
Crr(i, C) = CDate(Arr(TR(k), 2)): Crr(i, C + 1) = V
需求 = 需求 - V: 庫存 = 庫存 - V: Arr(TR(k), 3) = 庫存
C = C + 2
k01: Next k
If 需求 > 0 Then Crr(i, C) = "沒有資料": Crr(i, C + 1) = "數量不足"
Next i
[D2].Resize(UBound(Crr), 100) = Crr
End Sub

複製代碼

Xl0000064.rar (14.91 KB)

================================

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

2^#

發表於 2020-4-2 10:08 | 顯示全部帖子

稍修一下, 若資料較多, 可減少不必要的迴圈:

Xl0000064-V2.rar (17.54 KB)

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

3^#

發表於 2020-4-3 10:43 | 顯示全部帖子

回復 9# qaqa3296

If 庫存 = 0 Then TR(k) = ""
_如果庫存=0, 將原有[行號]變成空字符

xD(Brr(i, 1)) = Trim(Join(TR, " "))
__Join(TR, " ") 重新將split的陣列以[空白字元]組成字串
__Trim(Join(TR, " "))...利用Trim去掉字串前後的空白字元, 變成新字串(字串會越來越短,甚至為空)

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

4^#

發表於 2020-4-4 09:44 | 顯示全部帖子

回復 11# n7822123

因對excel公式有些經驗, 所以程式碼中摻入了公式技巧,
雖然看起來短, 但效率及易讀性不一定就比較好!
其實程式碼最好是效率兼顧易讀性, 利于以後的修改。

因將變數定義為整數, 所以用val(???) 來避錯,
也可少一次IF的判斷~~ IF ISNUMERIC(ARR(I,3)) THEN