- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2025-3-24
|
衹是編號可以簡化一下:- Private Sub UserForm_Initialize()
- Dim ym$, Myr&
- ym = "C" & Format(Date, "YYMM")
- Myr = [c65536].End(3).Row
- a = Cells(Myr, "c")
- TBox1.Value = ym & Format(IIf(Left(a, 5) = ym, Val(Right(a, 2)), 0) + 1, "00")
- End Sub
|
|
發表於 2019-8-12 12:41
| 