请教如何在打开一个表格时候自动生成一个编号？

FANZHW53

如附件,就是希望在打开一工作表时自动自成一个单号

谢谢了

FANZHW53

没有人理我

张三李四

编号是要有规则的，没有规则无法编号。

FANZHW53

张三李四 发表于 2014-7-22 16:27
编号是要有规则的，没有规则无法编号。

就是按日期来的,然后后面加序列号01,02,03,..这样

张三李四

FANZHW53 发表于 2014-7-22 16:28
就是按日期来的,然后后面加序列号01,02,03,..这样

何时为什么01？ 何时又为02？

FANZHW53

张三李四 发表于 2014-7-22 16:29
何时为什么01？ 何时又为02？

我就是想它打开时自动叠加
按日期
比如今天打开的第一个表就自动成01
打开的第二个就02

张三李四

该下班了。看有没有其它人与你交流。问题也许不复杂，只不过你不能表达你的操作过程。

临时户口

你的序号当月累计01 02 03....次月重新01 02...。变量又因为文件关闭会自动清零。所以借助了辅助列“I2”单元格来完成。用了二个事件代码如下

1. .

复制代码

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Sheets("修订").Range("i2").Value = Sheets("修订").Range("i2").Value + 1
   
3. End Sub
   
4. 
   
5. Private Sub Workbook_Open()
   
6.     Dim myname As String
   
7.     Dim mypath As String
   
8.     Dim s
   
9.     Dim t      As Long
   
10.     Dim m      As Long
    
11.     Dim arr
    
12.     mypath = ThisWorkbook.Path
    
13.     myname = ThisWorkbook.Name
    
14.     s = VBA.FileDateTime(mypath & "" & myname)
    
15.     t = VBA.Month(s)
    
16.     If t = Month(Now) Then
    
17.         m = m + Sheets("修订").Range("i2").Value
    
18.         arr = Replace(VBA.Split(Now, " ")(0), "-", "")
    
19. 
    
20.         If Len(VBA.CStr(m)) = 1 Then
    
21.             Sheets("修订").Range("i3").Value = arr & 0 & m
    
22.         Else:
    
23.             Sheets("修订").Range("i3").Value = arr & m
    
24.         End If
    
25.     Else
    
26. Sheets("修订").Range("i2").Value = 1
    
27.         m = 0
    
28.         m = m + Sheets("修订").Range("i2").Value
    
29. 
    
30.     End If
    
31. 
    
32. End Sub
    

复制代码

FANZHW53

临时户口 发表于 2014-7-22 23:31
你的序号当月累计01 02 03....次月重新01 02...。变量又因为文件关闭会自动清零。所以借助了辅助列“I2”单 ...

太感谢了，写这么多，我试了下好象还是不行，能弄好发给我吗：？？直接发表格给我？？？

a68508122

test01.rar (17.9 KB, 下载次数: 197)

2014-7-23 08:57 上传

点击文件名下载附件

以上
请笑纳

实现方法：每次打开时，将今天日期（如20140723）填进去，然后自动累加尾号，不需要另外写单元格