帖子: 14
主題: 4
精華: 0
積分: 18
點名: 0
作業系統: WINDOWS
軟體版本: VISTA
閱讀權限: 10
註冊時間: 2010-9-10
最後登錄: 2015-1-6

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-4-10 10:33 | 只看該作者

[發問] 前輩關於數列減去的寫法

本帖最後由 GBKEE 於 2014-4-10 10:41 編輯

致各位前輩能煩替小弟解惑，在附件中的檔案
小弟雖寫了些語法，但仍未能達成，我要的想法
在附件裡  ，

》》以多筆的資料裡，j欄位為目前  g欄位（品項）的所有庫存數  。

1比對g欄位（品項），如不同品項，則以 h欄位（訂單數）；作為i 欄位（可出貨數）

2.但比對g欄位（品項），如為同品，則以 j 欄位的庫存為基準，依序扣除  至庫存為0 為止，後續如還有同品要出，則直接刪除，不繼續比對。

但在過程中，這裡遇到些狀況，如上一筆扣完庫存數如還有 4個，下一筆  訂單是要  5個，但在判斷上，仍是得出 4個，但不刪除，是刪除後續的訂單。

item 訂單數實際可出庫存數
a             4                4             10
1 b             5                5             10
2 b             5                5             10
3 b             5                0             10 刪去

這裡由心謝過各位

樓主熱帖

melvinhsu

小學生 Rank: 1

帖子: 14
主題: 4
精華: 0
積分: 18
點名: 0
作業系統: WINDOWS
軟體版本: VISTA
閱讀權限: 10
註冊時間: 2010-9-10
最後登錄: 2015-1-6

論壇贊助勳章

2^#

發表於 2014-4-10 11:23 | 只看該作者

回復 1# melvinhsu

板大，小弟附上，

活頁簿1.zip (27.79 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2014-4-10 19:00 | 只看該作者

本帖最後由 GBKEE 於 2014-4-10 19:06 編輯

回復 2# melvinhsu
試試看

Option Explicit
Sub testing3()
Dim i As Integer, D1 As Object, D2 As Object, Rng As Range
Set D1 = CreateObject("SCRIPTING.DICTIONARY") '字典物件
Set D2 = CreateObject("SCRIPTING.DICTIONARY") '字典物件
i = 2 '第2列開始
Do While Cells(i, "G") <> "" '執行迴圈條件 G欄<>""
With Cells(i, "G") 'G欄i列的物件
If Not D1.Exists(.Value) Then '字典的key不存在
D1(.Value) = Cells(i, "J") '庫存數
D2(.Value) = 0 '出貨數總數
End If
If (D1(.Value) - D2(.Value)) >= Cells(i, "H") Then '庫存數-出貨數總數>=訂單數
Cells(i, "I") = Cells(i, "H") '訂單實際出貨數
D2(.Value) = D2(.Value) + Cells(i, "I") '訂單實際出貨數的加總
ElseIf (D1(.Value) - D2(.Value)) > 0 And (D1(.Value) - D2(.Value)) < Cells(i, "H") Then
'庫存數-出貨數總數 > 0 '庫存數-出貨數總數 > 訂單數
Cells(i, "I") = D1(.Value) - D2(.Value) '訂單實際出貨數=庫存數-出貨數總數
D2(.Value) = D2(.Value) + Cells(i, "I") '出貨數總數=出貨數總數+訂單實際出貨數
ElseIf D1(.Value) = D2(.Value) Then '無貨可出:庫存數=出貨數總數
Cells(i, "I") = ""
If Not Rng Is Nothing Then
Set Rng = Union(Rng, Range("F" & i & ":J" & i))
Else
Set Rng = Range("F" & i & ":J" & i)
End If
End If
End With
i = i + 1
Loop
If Not Rng Is Nothing Then Rng.Select
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

melvinhsu

小學生 Rank: 1

帖子: 14
主題: 4
精華: 0
積分: 18
點名: 0
作業系統: WINDOWS
軟體版本: VISTA
閱讀權限: 10
註冊時間: 2010-9-10
最後登錄: 2015-1-6

論壇贊助勳章

4^#

發表於 2014-4-10 21:28 | 只看該作者

回復 3# GBKEE

謝謝板大，耐心的回應小弟的問題，小弟的道行真的差太遠

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-11-28

5^#

發表於 2023-4-18 14:20 | 只看該作者

本帖最後由 Andy2483 於 2023-4-18 14:28 編輯

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,變更情境為模擬出貨結餘或不足,
學習方案如下,請各位前輩指教

執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Brr, Y, Lh&, Lj&, i&, Tg$, xR As Range
Set Y = CreateObject("Scripting.Dictionary")
Set xR = Range([J1], Cells(Rows.Count, "G").End(xlUp)): Brr = xR
For i = 2 To UBound(Brr)
If i = 2 Then Brr(1, 1) = "訂單量累加": Brr(1, 2) = "虛擬出貨後庫存": Brr(1, 3) = "備註"
Tg = Brr(i, 1): Lh = Brr(i, 2): Lj = Brr(i, 4)
If Y(Tg) = "" Then
   Y(Tg) = Lh: Y(Tg & "庫存") = Lj
   Else: Y(Tg) = Y(Tg) + Lh
End If
Y(Tg & "庫存") = Y(Tg & "庫存") - Lh
Brr(i, 1) = Y(Tg)
Brr(i, 2) = Y(Tg & "庫存")
If Brr(i, 2) < 0 Then
   Brr(i, 3) = Tg & "_庫存數不足累計 " & -Brr(i, 2)
   ElseIf Brr(i, 2) = 0 Then Brr(i, 3) = Tg & "_0庫存"
   Else: Brr(i, 3) = Tg & "_庫存數結餘 " & Brr(i, 2)
End If
Next
With Intersect(xR.Offset(0, 4), [K:M])
.EntireColumn.ClearContents
.Value = Brr
End With
Set Y = Nothing: Set xR = Nothing: Erase Brr
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP