wsx1130

中學生 Rank: 2

帖子: 51
主題: 11
精華: 0
積分: 110
點名: 0
作業系統: win 10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2017-7-15
最後登錄: 2024-10-27

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-11-27 13:04 | 只看該作者

[發問] 求救高手，vba計算上一直計算錯誤

各位大大請幫幫忙
連續工單數量少的時候就發生錯誤，每個棧板變成>40箱(從第9箱開始有問題)
不知道哪裡計算出問題

編出貨板.rar (42.76 KB)
規則如附件data2

1.每個訂單留一板QC留樣(70pcs)
2.每個棧板最多放6000pcs(40箱)
3.未滿的棧板會用下張訂單補足前一張訂單
4.箱號XX50-mm-001(箱號)
5.no尾碼依照上方顏色

樓主熱帖

wsx1130

中學生 Rank: 2

帖子: 51
主題: 11
精華: 0
積分: 110
點名: 0
作業系統: win 10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2017-7-15
最後登錄: 2024-10-27

48^#

發表於 2022-2-10 00:11 | 只看該作者

回復 wsx1130

同板號放同一區塊???
最少三行, 同一板號超過三行, 怎放?

最好先模擬想要的結果, ...
准提部林發表於 2022-1-16 08:41

抱歉，準提板大，我嘗試改了list1，但仍無法往前補lot編號，您有空能幫我看看哪裡需要修改嗎?謝謝

XX2022210編出貨板x4-v1.rar (72.97 KB)

TOP

wsx1130

中學生 Rank: 2

帖子: 51
主題: 11
精華: 0
積分: 110
點名: 0
作業系統: win 10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2017-7-15
最後登錄: 2024-10-27

47^#

發表於 2022-1-16 10:23 | 只看該作者

回復 46# 准提部林
不好意思，準提板大，我之前有先查過，此lot基本上都蠻大的，3欄已經是可以足夠的狀況，基本上都會以2欄為主

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

46^#

發表於 2022-1-16 08:41 | 只看該作者

本帖最後由准提部林於 2022-1-16 08:42 編輯

回復 45# wsx1130

同板號放同一區塊???
最少三行, 同一板號超過三行, 怎放?

最好先模擬想要的結果, 不要老是去人猜!

TOP

wsx1130

中學生 Rank: 2

帖子: 51
主題: 11
精華: 0
積分: 110
點名: 0
作業系統: win 10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2017-7-15
最後登錄: 2024-10-27

45^#

發表於 2022-1-15 21:28 | 只看該作者

回復 wsx1130

If Val(Arr(i, 2)) = 0 Or Val(Arr(i, 5)) = 0 Then GoTo 101

或
If Val(Arr(i, 2)) ...
准提部林發表於 2022-1-15 17:44

感謝，可以跳過此步驟
但準提板大，如何將同一個棧板往上併，如果我在Brr設定，會有重複的值出現

XX20220115編出貨板x4-v1.rar (72.29 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

44^#

發表於 2022-1-15 17:44 | 只看該作者

回復 43# wsx1130

If Val(Arr(i, 2)) = 0 Or Val(Arr(i, 5)) = 0 Then GoTo 101

或
If Val(Arr(i, 2)) = 0 Or Left(Arr(i, 5), 2) = "QC" Then GoTo 101

TOP

wsx1130

中學生 Rank: 2

帖子: 51
主題: 11
精華: 0
積分: 110
點名: 0
作業系統: win 10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2017-7-15
最後登錄: 2024-10-27

43^#

發表於 2022-1-15 12:18 | 只看該作者

回復 wsx1130

1) 箱號+月份
箱號 = [S2]
改為:
箱號 = [S2] & Format(日期, "-mm")

2) 修正四 ...
准提部林發表於 2022-1-3 13:34

準提板大，關於裝板單一要另外產生一個板號，我使用list2的方式去修改，但會碰上QC字眼，就無法計算
您有空再麻煩幫我看一下，謝謝

XX20220115編出貨板x4-v1.rar (61.62 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

42^#

發表於 2022-1-3 13:34 | 只看該作者

回復 41# wsx1130

1) 箱號+月份
箱號 = [S2]
改為:
箱號 = [S2] & Format(日期, "-mm")

2) 修正四小箱整合一外箱錯誤
Cr(2) = Int((Cv - Cr(1) * 外箱數) / 外箱數) * 外箱數
改為:
Cr(2) = Int((Cv - Cr(1)) / 外箱數) * 外箱數

TOP

wsx1130