返回列表 上一主題 發帖

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

  1. Function zz(面額, 張數)
  2. Dim rng As Range, n&, r&, c&, b, x, i&
  3. r = 張數.Row
  4. c = 張數.Column
  5. b = Cells(1, c + 1).Resize(r - 1)
  6. Select Case 面額
  7.     Case 100: x = "A"
  8.     Case 500: x = "B"
  9. End Select
  10. For i = 1 To UBound(b)
  11.     If Left(b(i, 1), 1) = x Then n = i
  12. Next
  13. If n Then i = Mid(b(n, 1), Application.Find(x, b(n, 1), 2) + 1) Else i = 0
  14. zz = x & Format(i + 1, "0000000") & "-" & x & Format(i + 張數, "0000000")
  15. End Function
複製代碼

zz.zip (14.04 KB)

TOP

回復 5# ikboy


    化碼基本上是追蹤對上一次的號碼,在没有的情調下從1開始,若一定在没有對上一次的號碼,要用指定的號碼,可以在 13 行 else 後面的 i 做修改。

TOP

        靜思自在 : 不要小看自己,因為人有無限的可能。
返回列表 上一主題