- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 16
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2024-3-28
|
- Function zz(面額, 張數)
- Dim rng As Range, n&, r&, c&, b, x, i&
- r = 張數.Row
- c = 張數.Column
- b = Cells(1, c + 1).Resize(r - 1)
- Select Case 面額
- Case 100: x = "A"
- Case 500: x = "B"
- End Select
- For i = 1 To UBound(b)
- If Left(b(i, 1), 1) = x Then n = i
- Next
- If n Then i = Mid(b(n, 1), Application.Find(x, b(n, 1), 2) + 1) Else i = 0
- zz = x & Format(i + 1, "0000000") & "-" & x & Format(i + 張數, "0000000")
- End Function
|
-
-
zz.zip
(14.04 KB)
|
發表於 2021-12-10 10:09
| 