返回列表 上一主題 發帖

[發問] 依據面額不同所需張數自動產生流水編號

=REPLACE(TEXT(MMULT((IF(B3=100,64564,81140)+SUMIF(B$2:B2,B3,C$2:C2)+C3^{0,1}),10^{7;0}),REPT(IF(B3=100,"A","B")&"0000000",2)),9,,"-")

TOP

回復 17# cypd


不知道是否檔案格式問題,
我這邊重新下拉公式, 或C3重新輸入, 都可以正常!!!

TOP

回復 23# cypd

2000版做的, 公式及vba各一:
XX20211213v01(分類流水號).rar (8.91 KB)

TOP

若想100,200,500分別編碼:
Sub 流水編號()
Dim Arr, i&, P%, V&, N&, T1$, T2$, x%, TR, YR, SS&(3)
Arr = Range([c1], [b65536].End(xlUp)(1, 0))
TR = [{"A","F","B"}]
YR = [{64564,38000, 81140}]
For i = 3 To UBound(Arr)
    If Arr(i, 1) = "合計" Then Exit For
    N = N + 1: Arr(i - 2, 1) = ""
    P = Val(Arr(i, 2)): V = Val(Arr(i, 3))
    x = Switch(P = 100, 1, P = 200, 2, P = 500, 3, P = P, 0)
    If P = 0 Or V = 0 Or x = 0 Then GoTo i01
    T1 = TR(x) & Format(YR(x) + SS(x) + 1, "0000000")
    T2 = TR(x) & Format(YR(x) + SS(x) + V, "0000000")
    Arr(i - 2, 1) = T1 & IIf(T1 = T2, "", "-" & T2)
    SS(x) = SS(x) + V
i01: Next i
[d3].Resize(N) = Arr
End Sub

TOP

回復 27# cypd


是的~~
給變數, 再引用陣列中的元素

TOP

回復 29# cypd


應該是你檔案問題, 傳檔案看看~~~
XX20211213v01(分類流水號).rar (9.58 KB)

TOP

回復 31# cypd


都是最普通的函數, 會有一個正常,一個錯誤值, 也許借別人的電腦試試,
可能要重新安裝EXCEL

TOP

        靜思自在 : 我們最大的敵人不是別人.可能是自己。
返回列表 上一主題