求救高手，vba計算上一直計算錯誤 - Excel程式區

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

32^#

發表於 2021-12-11 20:43 | 只看該作者

回復 31# 准提部林

感謝板大，我研究看看，好厲害的寫法，真的還要多加的學習，再次的感謝

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

33^#

發表於 2021-12-11 21:22 | 只看該作者

回復 31# 准提部林

抱歉板大，有重複箱號是修改這一段嗎?還是Brr公式那部分

If Px > 0 Then '(2)有餘量--板號相同
Pv = S2 - Px: If Pv > V Then Pv = V
C = Int((Pv + S1 - 1) / S1)
Call 寫入BRR(T$, Pv&, C&, TT$, TV&, Cx$, Cn&, U&, Un&, N&)
Px = (Px + Pv) Mod S2
V = V - Pv: TV = TV + Pv: Cn = Cn + C: N = N + 5

複製代碼

擷取.PNG (20.34 KB)

XX20211211編出貨板x4-v1.rar (57.63 KB)

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

34^#

發表於 2021-12-11 23:30 | 只看該作者

多做了一個動作, 再看看:

XX20211207編出貨板x4-v2.rar (56.05 KB)

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

35^#

發表於 2021-12-14 22:41 | 只看該作者

回復 34# 准提部林
準提板大，如果我要改變起始箱數(不論是單裝板123，我可以先設定Cn=cells(1,16)或是設定一個值例如XX=Cells(1,16)
例如X1 = "KEC4-" & Cn + 1+C+XX
這邊來做修正嗎?

For j = 1 To 3
C = Cr(j): Km = Int((C + sb - 1) / sb): If C > sb Then C = sb
If C > 0 Then CK = 1
For k = 1 To Km
N = N + 1: P = C * 20
Crr(N, 3) = Arr(i, 1): Crr(N, 4) = P: Crr(N, 5) = C
X1 = "KEC4-" & Cn + 1: X2 = "KEC4-" & Cn + C
Crr(N, 6) = X1 & IIf(C = 1, "", "-" & X2)
Cn = Cn + C
Crr(N, 7) = Int((Cn - 1) / sb) + 1
X1 = T & Format(TV + 1, "000000"): X2 = T & Format(TV + P, "000000")
Crr(N, 10) = X1 & "-" & X2
TV = TV + P: N = N + 1

複製代碼

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

36^#

發表於 2021-12-14 23:42 | 只看該作者

回復 35# wsx1130
準提板大，我已經修改好了，我再多設了一欄If Cn = 0 Then Cn = xx可以執行
謝謝

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

37^#

發表於 2021-12-20 19:52 | 只看該作者

多做了一個動作, 再看看:
准提部林發表於 2021-12-11 23:30

不好意思，準提板大
我利用裝板單3修改一個修改裝板單4
但在外箱的數量也一值無法算出要的數量(EX)，數量的那欄也無法以1080為單位進行切換
再麻煩幫我看一下，哪個地方寫得有問題

另外之前的裝板單3，最後的一個都會計算成餘數，不是補前袋數，是Px這欄位要修改嗎?

XX20211220編出貨板x4-v1.rar (63.82 KB)

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

38^#

發表於 2021-12-28 21:15 | 只看該作者

多做了一個動作, 再看看:
准提部林發表於 2021-12-11 23:30

不好意思，準提板大
我利用裝板單3修改一個修改裝板單4
但在外箱的數量也一值無法算出要的數量(EX)， ...
wsx1130 發表於 2021-12-20 19:52

與有點反過來之前都是要先以棧板數來算可放數量，但這是每欄位總數量最多1080

If V + C * sb + Pv < st Then
Crr(N, 7) = "合併"
Else
Crr(N, 7) = -Int(-(V / st))
End If
Cn = Cn + 1

複製代碼

我另加了這段，但計算到後面還是會有箱號超過總數，在麻煩您有空幫看看
謝謝

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

39^#

發表於 2021-12-31 23:09 | 只看該作者

回復 37# wsx1130

邏輯都差不多, 自己再抓看看:

XX20211220編出貨板x4-v1.rar (63.71 KB)

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

40^#

發表於 2022-1-2 21:14 | 只看該作者

回復 39# 准提部林
非常感謝准提版大，我再仔細看您的計算邏輯，真的好厲害
有些地方真的還要多學習，謝謝