返回列表 上一主題 發帖

請問可否做到自動扣減資料

請問可否做到自動扣減資料

Book1.rar (8.27 KB)
請問可否做到自動扣減。
顯示SO NO還有那些文件沒有寄出、
無論下面三個欄輸入的字是否相同,只要儲存格有資料就代表相同
I欄=O欄,無論儲存格的資料是否相同,只要這兩欄同時有資料,就代表沒有OBL
J欄=P欄,無論儲存格的資料是否相同,只要這兩欄同時有資料,就代表沒有OHC
K欄=Q欄,無論儲存格的資料是否相同,只要這兩欄同時有資料,就代表沒有CO
sheet1是資料庫,ON HAND是要的效果

回復 1# 198188

Book1.rar (8.4 KB)
資料庫:
   
1        Receive Docs        111111        A        AA        23-Oct-12        1/12/2012        DHL123        OBL*3        OHC                PM                                               
2        Send Out Docs        111111        A        AA        23-Oct-12        2/12/2012        SF123                OHC                AM
3        Receive Docs        222222        B        BB        15-Nov-12        2/12/2012        DHL124                        CO2        AM                                               
4        Receive Docs        111111        A        AA        23-Oct-12        2/12/2012        DHL125                        CO        AM                                               
5        Receive Docs        222222        B        BB        15-Nov-12        3/12/2012        DHL126        OBL                        AM                                               
6        Receive Docs        222222        B        BB        15-Nov-12        4/12/2012        DHL127                OHC                AM                                               
7        Receive Docs        333333        C        CC        25-Nov-12        6/12/2012        DHL128        OBL        OHC        CO        AM                                               
8        Send Out Docs        222222        B        BB        15-Nov-12        7/12/2012        SF124                OHC        CO        AM
9        Send Out Docs        333333        C        CC        25-Nov-12        7/12/2012        SF125                        CO        AM
10        Send Out Docs        333333        C        CC        25-Nov-12        8/12/2012        SF126                OHC                AM
11        Receive Docs        444444        D        DD        25-Dec-12        9/12/2012        DHL129        OBL        OHC        CO        AM                                               
12        Send Out Docs        333333        C        CC        25-Nov-12        9/12/2012        SF127        OBL                        AM
13        Send Out Docs        444444        D        DD        25-Dec-12        9/12/2012        SF128                OHC        CO        AM


結果:
SO NO        BUYER        AGENT        ETA                             DOCS LIST
111111        A        AA        23-Oct-12        OBL,CO
222222        B        BB        15-Nov-12        OBL
444444        D        DD        25-Dec-12        OBL

剛才的附件有問題,現重新上傳附件。

Book1.rar (8.4 KB)

TOP

回復 3# GBKEE


    沒有兩欄SO,我剛才打開都沒有?只有item no and SO

你是不是問SO內的資料相同?

TOP

回復 3# GBKEE

Book1.rar (8.62 KB)


見到了,可能不小心打多了,現附上更正的附件。

TOP

回復 6# GBKEE
Book1.rar (8.68 KB)
SO NO 111111 分別收到OBL*3, OHC, CO ; 及分別寄出OHC
所以
SO NO        BUYER        AGENT        ETA                            DOCS LIST
111111        A        AA        23-Oct-12        OBL,CO

SO NO 222222 分別收到CO*2, OBL, OHC ; 及分別寄出OHC, CO
所以
SO NO        BUYER        AGENT        ETA                            DOCS LIST
222222        B        BB        15-Nov-12        OBL

SO NO 333333 分別收到 OBL, OHC, CO ; 及分別寄出 CO, OHC, OBL
所以
SO NO        BUYER        AGENT        ETA                            DOCS LIST

SO NO 444444 分別收到 OBL, OHC, CO ; 及分別寄出 OHC, CO
所以
SO NO        BUYER        AGENT        ETA                            DOCS LIST   
444444        D        DD        25-Dec-12        OBL

I欄和O欄不管儲存格內容是什麼,只要儲存格內有資料,電腦就自動默認它是OBL
J欄和P欄不管儲存格內容是什麼,只要儲存格內有資料,電腦就自動默認它是OHC
K欄和Q欄不管儲存格內容是什麼,只要儲存格內有資料,電腦就自動默認它是CO

TOP

回復 8# Hsieh


   
.[A2].Resize(d.Count, 5) = Application.Transpose(Application.Transpose(d.items))
出現error RUN-TIME ERROR'13':  TYPE MISMATCH

TOP

回復 10# Hsieh


   可以了,謝謝~
但是 如果SO NO沒有收件,而先寄件,也顯示出來了。不過這種情況除非人為錯誤,否則也不會未有件就可以寄件

TOP

回復 10# Hsieh

高人可否幫我看看下面link的程式錯在哪裡?
    http://forum.twbts.com/viewthrea ... amp;page=4#pid47882

TOP

        靜思自在 : 慈悲沒有敵人,智慧不起煩惱。
返回列表 上一主題