返回列表 上一主題 發帖

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

非常感准提版大,的確是我需要的計算方式
您真的好厲害,再次感謝您

TOP

  1. V = V - Pv:   Px = (Px + Pw) Mod 20
複製代碼
准提版大,能問一下這段會什麼需要使用mod 20嗎

TOP

收到,感謝您

TOP

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

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

TOP

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

TOP

回復 25# 准提部林

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

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

TOP

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

回復 25# 准提部林

抱歉準提版大,list 序號的部分我按照您的計算方式,一值是不出最後的板號-1之後的流水號,您有空能再幫我看一下嗎
  1.        Crr(N, 1) = "工單"
  2.        Crr(N, 2) = Arr(i, 1):
  3.        Crr(N, 3) = "數量"
  4.        Crr(N, 4) = V:
  5.        Crr(N + 1, 1) = "機器序號"
  6.        X1 = T & Format(TV + 1, "000000"):  X2 = T & Format(TV + V, "000000")
  7.        Crr(N + 1, 2) = X1 & IIf(V = 1, "", "-" & X2) & Chr(10) & sn
  8.        TV = TV + V
  9.        Crr(N + 2, 1) = "箱號"
  10.        Crr(N + 2, 2) = title & mm & "-" & Cn
  11.        Crr(N + 3, 1) = "板號"
  12.        Crr(N + 3, 2) = (Int((Cn - 1) / box) + 1) & " - "
  13.   
複製代碼

TOP

回復 29# 准提部林


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

TOP

回復 31# 准提部林

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

TOP

回復 31# 准提部林

抱歉板大,有重複箱號是修改這一段嗎?還是Brr公式那部分
  1. If Px > 0 Then '(2)有餘量--板號相同
  2.        Pv = S2 - Px: If Pv > V Then Pv = V
  3.        C = Int((Pv + S1 - 1) / S1)
  4.        Call 寫入BRR(T$, Pv&, C&, TT$, TV&, Cx$, Cn&, U&, Un&, N&)
  5.        Px = (Px + Pv) Mod S2
  6.        V = V - Pv: TV = TV + Pv: Cn = Cn + C: N = N + 5
複製代碼

擷取.PNG (20.34 KB)

擷取.PNG

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

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題