单号每月从数字0开始

760636412

如附件，代码，我想修改下，具体要求是：假如，从9月份开始每新增一次，单号自动加1，一直到10月份时，新增单号时从0开始加1，到11月份单号新增又从0开始新增。目前我是手动修数数值（N2），但偶尔会忘记改了，能不能将附件的代码修改成自动的，谢谢 新增单号.zip (17.42 KB, 下载次数: 10)

2024-10-7 19:34 上传

点击文件名下载附件

ykcbf1100

加二行代码，每月1日[n2]单元格自动置0

ykcbf1100

每月1日，N2单元格自动置0

longwin

加一句判断一下，当前月份与单号的月份不一致则将[n2]置0

760636412

ykcbf1100 发表于 2024-10-7 19:54
每月1日，N2单元格自动置0

谢谢，请教下，如果每月1号或2号当天不上班，休息或者请假了，3号上或当月不固定的其中一天呢？，当时设置的1号，2号，不是过期了，代码不运行，如附件中，我也这样设置过，但是还是有缺陷，理不清思路，请教大神再次指点下，谢谢

taller

760636412

taller 发表于 2024-10-7 23:47

谢谢，再次请教下，如果每月1号或2号当天不上班，休息或者请假了，3号上或当月不固定的其中一天呢？，当时设置的1号，2号，不是过期了，代码不运行，如附件中，我也这样设置过，但是还是有缺陷，理不清思路，请教大神再次指点下，谢谢

zxsea_7426

760636412 发表于 2024-10-8 14:29
谢谢，再次请教下，如果每月1号或2号当天不上班，休息或者请假了，3号上或当月不固定的其中一天呢？，当 ...

L8单元格中使用了日期，可以截取这个月份与当前月份做比对,然后再使用L8中的数字来进行增减。


供参考:

ykcbf1100

760636412 发表于 2024-10-7 23:30
谢谢，请教下，如果每月1号或2号当天不上班，休息或者请假了，3号上或当月不固定的其中一天呢？，当时设 ...

设一个强制置0按钮

lxdexcel

实际上，应该有一个持久性保存最后单号及日期的方法，否则无法实现你的需求，可以用一个文件保存。在工作簿打开时获取，关闭时保存。

1. Public lastDate As Date
   
2. Public lastID As Long
   
3. 
   
4. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
5. Dim fileID As Long
   
6.   Dim str As String
   
7.   fileID = FreeFile()
   
8.   Open ThisWorkbook.Path & "\lastDateID.txt" For Output As #fileID
   
9.   
   
10.   Print #fileID, Format(lastDate, "yyyy-mm-dd")
    
11.    
    
12.   Print #fileID, lastID & ""
    
13.    
    
14.   Close #fileID
    
15. End Sub
    
16. 
    
17. 
    
18. 
    
19. Private Sub Workbook_Open()
    
20.   Dim fileID As Long
    
21.   Dim str As String
    
22.   fileID = FreeFile()
    
23.   Open ThisWorkbook.Path & "\lastDateID.txt" For Input As #fileID
    
24.   
    
25.   Line Input #fileID, str
    
26.    lastDate = CDate(str)
    
27.    Line Input #fileID, str
    
28.    lastID = CLng(str)
    
29.   Close #fileID
    
30.   If Year(lastDate) <> Year(Date) Or Month(lastDate) <> Month(Date) Then
    
31.       lastDate = Date
    
32.       lastID = -1
    
33.       
    
34.   End If
    
35. 
    
36. Sub Call送货单号()
    
37. '送货单
    
38. Dim strpo As String
    
39. 
    
40. Application.ScreenUpdating = False '停止刷新
    
41. 
    
42. 'Dim a
    
43. 'a = [K10]
    
44. 'If Day(a) = 1 Then [N2] = 0
    
45. ThisWorkbook.lastID = ThisWorkbook.lastID + 1
    
46. 'Sheets("送货单").[N2].Value = Sheets("送货单").[N2].Value + 1  '在原有编号+1
    
47. 'strpo = Format(Date, "yymmdd") & Format(Sheets("送货单").[N2].Value, "0000")  '单号年月日+0000
    
48. strpo = Format(Date, "yymmdd") & Format(ThisWorkbook.lastID, "0000")  '单号年月日+0000
    
49. Sheets("送货单").[L8].Value = strpo '单号所在单元格
    
50. Sheets("送货单").[N2].Value = ThisWorkbook.lastID '不需要可删除
    
51. 
    
52. Application.ScreenUpdating = True '刷新
    
53. End Sub
    

复制代码