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

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

21^# 跳轉到 »

發表於 2021-12-5 17:15 | 只看該作者

V = V - Pv: Px = (Px + Pw) Mod 20

複製代碼

准提版大，能問一下這段會什麼需要使用mod 20嗎

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

22^#

發表於 2021-12-5 19:32 | 只看該作者

回復 21# wsx1130

沒改到, 是18

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

23^#

發表於 2021-12-5 20:28 | 只看該作者

收到，感謝您

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

24^#

發表於 2021-12-5 21:36 | 只看該作者

准林版大，抱歉
我自己試著要將裝版單2序號(no.)的部分套用到裝版單3
反而搞得一蹋糊塗，是哪個地方出問題

XX20211205xx編出貨板x3-v1.rar (40.63 KB)

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

25^#

發表於 2021-12-5 22:47 | 只看該作者

回復 24# wsx1130

需求最好一次說清楚, 沒太多時間逐一跟帖~~

XX20211205編出貨板x3-v1.rar (43.32 KB)

有回應時, 要使用左下方"回復"按鈕, 再發表

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

26^#

發表於 2021-12-5 23:59 | 只看該作者

回復 25# 准提部林
了解了，我再研究看看，非常謝謝您

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

27^#

發表於 2021-12-7 21:46 | 只看該作者

回復 25# 准提部林

準提板大
關於利用裝板單2，另外要產生明細的list
我嘗試著利用您原本條件改成5箱後計算再去貼上，一直無法實現我要的結果，能再麻煩您當我看一下嗎?

XX20211207編出貨板x3-v1.rar (38.01 KB)

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

28^#

發表於 2021-12-10 22:17 | 只看該作者

本帖最後由 wsx1130 於 2021-12-10 22:26 編輯

回復 25# 准提部林

抱歉準提版大，list 序號的部分我按照您的計算方式，一值是不出最後的板號-1之後的流水號，您有空能再幫我看一下嗎

Crr(N, 1) = "工單"
Crr(N, 2) = Arr(i, 1):
Crr(N, 3) = "數量"
Crr(N, 4) = V:
Crr(N + 1, 1) = "機器序號"
X1 = T & Format(TV + 1, "000000"): X2 = T & Format(TV + V, "000000")
Crr(N + 1, 2) = X1 & IIf(V = 1, "", "-" & X2) & Chr(10) & sn
TV = TV + V
Crr(N + 2, 1) = "箱號"
Crr(N + 2, 2) = title & mm & "-" & Cn
Crr(N + 3, 1) = "板號"
Crr(N + 3, 2) = (Int((Cn - 1) / box) + 1) & " - "

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

29^#

發表於 2021-12-10 22:24 | 只看該作者

回復 28# wsx1130

這還要花些時間的, 實抽不出空, 再等等!!
或看是否有人先幫一下, 基本上了解之前寫的邏輯, 應可以用來改改!!
不過還是頗麻煩就是了!!

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

30^#

發表於 2021-12-10 22:39 | 只看該作者

回復 29# 准提部林

了解，我再試試看，因為我是改了好幾天，可是還是達不到想要的需求，您先忙，謝謝