返回列表 上一主題 發帖

[發問] 列出先進先出訊息

qaqa3296

帖子
45 
主題
7 
精華
0 
積分
102 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2016 
閱讀權限
20 
註冊時間
2019-4-27 
最後登錄
2024-4-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-3-29 21:22 | 顯示全部帖子

[發問] 列出先進先出訊息

各位大大


我想列出有顏色的部分訊息

要依流水號依序跟庫存取資料，每筆資料會獨立計算並消耗庫存數

請各位大大給我點提示，感謝

test.zip (10.14 KB)

收藏 分享

qaqa3296

帖子
45 
主題
7 
精華
0 
積分
102 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2016 
閱讀權限
20 
註冊時間
2019-4-27 
最後登錄
2024-4-20 
2#
發表於 2020-3-30 21:23 | 顯示全部帖子
回復 2# ikboy

感謝這位大大回復

目前出現錯誤 執行階段錯誤'1004':

但是看不太懂這位大大的程式碼
不知是不是我敘述的不好，我想自動列出黃色區域訊息

流程是
需求的項目，依流水號順序去庫存找相同料件，如果有相同的料件則將他取出並顯示在黃色區域D2:E2再向下尋找相同料件資料往右2格再列出，直到滿足需求數量為止，如果數量不足則顯示不足
再依序流水號順序執行，但因為前面流水號的料件已將庫存數量取走，所以後面的需求很容易出現數量不足。

TOP

qaqa3296

帖子
45 
主題
7 
精華
0 
積分
102 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2016 
閱讀權限
20 
註冊時間
2019-4-27 
最後登錄
2024-4-20 
3#
發表於 2020-3-31 22:38 | 顯示全部帖子
回復 4# n7822123

感謝 n7822123 大大的回復

這程式碼已達到需求

看起來淺顯易懂，正好可以學習一下

#也感謝ikboy大大的回復

刪除第二行依舊出現錯誤

執行階段錯誤'1004':

偵錯顯是在  .Resize(n, 3) = b 這行

但我看不懂ikboy大大的程式碼，所以無法自行除錯

TOP

qaqa3296

帖子
45 
主題
7 
精華
0 
積分
102 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2016 
閱讀權限
20 
註冊時間
2019-4-27 
最後登錄
2024-4-20 
4#
發表於 2020-4-2 20:31 | 顯示全部帖子
回復 8# 准提部林

感謝准提部林大大提供其他方式

能稍微解釋新增這兩行的邏輯嗎?

If 庫存 = 0 Then TR(k) = ""
xD(Brr(i, 1)) = Trim(Join(TR, " "))

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
返回列表 上一主題