返回列表 上一主題 發帖

[發問] 編號方式-英文+年月+流水編號2碼.出來沒按順序

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2024-3-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2019-8-11 23:45 | 只看該作者

[發問] 編號方式-英文+年月+流水編號2碼.出來沒按順序

本帖最後由 kkooo15 於 2019-8-11 23:47 編輯

問題﹕編號方式-英文+年月+流水編號2碼.出來沒按順序
按新增的時候應該要跳C190805，為什麼他會跳到C190813?

  1. Private Sub Button1_Click()
  2.     Call 新增編號
  3. End Sub

  5. Private Sub Button3_Click()
  6.     Call 新增資料
  7. End Sub
  8. Sub 新增編號()
  9.     Set wSh = Sheets("工作表1")
  10.     Dim i As Integer
  11.     i = 4
  12.     Do
  13.     i = i + 1
  14.         If wSh.Cells(i, 3) = "" Then Exit Do
  15.         If TBox1.Value = "C" & Application.Text(Date, "YYMM") & Right("00" & Number + 1, 2) Then
  16.         Number = Number + 1
  17.         End If
  18.         TBox1.Value = "C" & Application.Text(Date, "YYMM") & Right("00" & Number + 1, 2)
  19.     Loop

  21. End Sub

  23. Sub 新增資料()
  24.     Set wSh = Sheets("工作表1")
  25.     '防呆
  26.     If TBox1 = "" Or TBox2 = "" Or TBox3 = "" Then MsgBox ("資料輸入不全。")   '結束視窗提示:Exit Sub
  27.     Dim i As Integer
  28.     i = 4
  29.     Do
  30.     i = i + 1
  31.     If wSh.Cells(i, 3) = "" Then Exit Do
  32.     If TBox1.Text = wSh.Cells(i, 3) Then
  33.         MsgBox ("合約編號重複，請重新輸入。")   '結束視窗提示
  34.     Exit Sub
  35.     End If
  36.     Loop
  37.     k = 0
  38.     For j = 3 To 5
  39.     k = k + 1
  40.     wSh.Cells(i, j) = Me("TBox" & k).Value
  41.     Next
  42.     MsgBox ("編號" & TBox1.Text & "合約，新增完成。") '結束視窗提示
  43. End Sub
複製代碼
附件﹕
ZA0004015.rar (20.04 KB)
收藏 分享
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2024-3-28 
3#
發表於 2019-8-12 18:33 | 只看該作者
回復 2# ikboy
非常謝謝，把程式變短了，而且也完成我的需要。

程式碼如下﹕
  1. Private Sub UserForm_Initialize()
  2.     Dim ym$, Myr&
  3.     'Long 的型態宣告字元為 &
  4.     'String 的型態宣告字元為 $
  5.     ym = "C" & Format(Date, "YYMM")
  6.     'ym = "C"開頭 + 年(2碼)月
  7.     Myr = [c65536].End(3).Row
  8.     'Myr = C行最下面往上找到有字的那一格
  9.     a = Cells(Myr, "c")
  10.     'a = Cells(Myr那列,C欄)
  11.     TBox1.Value = ym & Format(IIf(Left(a, 5) = ym, Val(Right(a, 2)), 0) + 1, "00")
  12.     'TBox1 = ym=[c+年+月] & C行最下面往上找到有字的那一格如果= ym的前5個字元
  13.     '就5個字元後面加2碼並加1
  14.     '最後把資料放到TBox1
  15. End Sub
複製代碼
檔案如下﹕(有需要的自取)
ZA0004015-1.rar (23.54 KB)
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
17  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-11-19 

2016猴年全勤獎章
2#
發表於 2019-8-12 12:41 | 只看該作者
衹是編號可以簡化一下:
  1. Private Sub UserForm_Initialize()
  2.     Dim ym$, Myr&
  3.     ym = "C" & Format(Date, "YYMM")
  4.     Myr = [c65536].End(3).Row
  5.     a = Cells(Myr, "c")
  6.     TBox1.Value = ym & Format(IIf(Left(a, 5) = ym, Val(Right(a, 2)), 0) + 1, "00")
  7. End Sub
複製代碼

TOP

        靜思自在 : 得理要饒人，理直要氣和。
返回列表 上一主題