[已解决]根据年月及连一个表格的号码自动编号

xyh2732

自动编码规律 文件名+年月+000（三位数）应该是分成两个条件，
条件一：输入第一行数据时系统会判断当日年月与  记录表的最后一个编码年月是否相同，如果相同就最后三个数+1，比如记录表最后编码是MARK1212001  那新的编码就是 MARK12120002  .如果年月不一样就变动年月最后三个数变为001 比如 记录表 最后编码是MARK1211009 那新的编码就是 MARK12120001

条件二：根据第一行数据直接把最后3位数+1就可以了，比如第一行数据编码自动生成为MARK1212001 那第二行数据就是MARK1212002
MARK2.rar (11.17 KB, 下载次数: 15)

2012-12-12 22:38 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

suye1010

2012-12-12 22:56

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count = 1 And Target.Column = 2 And IsDate(Target) Then
   
3.     Select Case Target.Offset(-1, -1)
   
4.         Case "编码"
   
5.             If Left(Right(Sheets("记录表").Cells(65536, 1).End(xlUp), 5), 2) <> Format(Target, "MM") Then
   
6.                 Target.Offset(0, -1) = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Format(Target, "YYMM") & Format(1, "000")
   
7.             Else
   
8.                 Target.Offset(0, -1) = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Format(Target, "YYMM") & Format(1 + Val(Right(Sheets("记录表").Cells(65536, 1).End(xlUp), 3)), "000")
   
9.             End If
   
10.         Case Else
    
11.             If Left(Right(Target.Offset(-1, -1), 5), 2) <> Format(Target, "MM") Then
    
12.                 Target.Offset(0, -1) = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Format(Target, "YYMM") & Format(1, "000")
    
13.             Else
    
14.                 Target.Offset(0, -1) = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Format(Target, "YYMM") & Format(1 + Val(Right(Target.Offset(-1, -1), 3)), "000")
    
15.             End If
    
16.     End Select
    
17. End If
    
18. End Sub
    

复制代码

跳转到最佳答案楼层

suye1010

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count = 1 And Target.Column = 2 And IsDate(Target) Then
   
3.     Select Case Target.Offset(-1, -1)
   
4.         Case "编码"
   
5.             If Left(Right(Sheets("记录表").Cells(65536, 1).End(xlUp), 5), 2) <> Format(Target, "MM") Then
   
6.                 Target.Offset(0, -1) = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Format(Target, "YYMM") & Format(1, "000")
   
7.             Else
   
8.                 Target.Offset(0, -1) = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Format(Target, "YYMM") & Format(1 + Val(Right(Sheets("记录表").Cells(65536, 1).End(xlUp), 3)), "000")
   
9.             End If
   
10.         Case Else
    
11.             If Left(Right(Target.Offset(-1, -1), 5), 2) <> Format(Target, "MM") Then
    
12.                 Target.Offset(0, -1) = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Format(Target, "YYMM") & Format(1, "000")
    
13.             Else
    
14.                 Target.Offset(0, -1) = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Format(Target, "YYMM") & Format(1 + Val(Right(Target.Offset(-1, -1), 3)), "000")
    
15.             End If
    
16.     End Select
    
17. End If
    
18. End Sub
    

复制代码