年份 顺序序列号 自动生成

kwzs_abc

我有一个数据工作表如图：

其中:A列为确认编码
        B列为确认日期
        C列为位号
如何实现：当从C2单元格开始输入数据时，A2单元格自动生成一个如2004001这样的编码(该编码是由B列对应日期的年份加一个序列)，且在C3单元格继续输入时，A3单元格自动生成一个如2004002这样的编码，以此递增！！
但B列某一单元格的日期改变时，其对应的A列单元格内自动生成的编码重新以其对应的B列单元格的年份加001开始自动递增编码如2006001、2006002、2009001、2009002？

请高手指点！！谢谢

清风竹-

请测试 一下。

kwzs_abc

先谢谢啦！！再测试！！{:soso_e166:}

shuyee

A2的值,得预先设定.否则公式得多加个判断.
在A3输入公式
=IF(C3,--(YEAR(B3)&TEXT((YEAR(B3)=--LEFT(A2,4))*VALUE(RIGHT(A2,3))+1,"000")),"")

kwzs_abc

可以！！！就是必须先设定A2单元格！！没有达到预先效果!!{:soso_e102:}.，还有好的办法吗？？

kwzs_abc

清风竹- 发表于 2013-10-10 18:16
请测试 一下。

2楼效果好！！就是在C列如遇到相同数据，采取成组输入时或不经意跳行输入时，出现错误！！清风大哥能给个教程，您是咋做成的！！希望指点！！！！

清风竹-

kwzs_abc 发表于 2013-10-11 15:44
2楼效果好！！就是在C列如遇到相同数据，采取成组输入时或不经意跳行输入时，出现错误！！清风大哥能给个 ...

两个问题已解决。请测试。

清风竹-

kwzs_abc 发表于 2013-10-11 15:44
2楼效果好！！就是在C列如遇到相同数据，采取成组输入时或不经意跳行输入时，出现错误！！清风大哥能给个 ...

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim arr
   
3. If Target.Column = 3 Then
   
4.     Application.ScreenUpdating = False
   
5.       m = Range("c65536").End(xlUp).Row
   
6.       n = Range("a65536").End(xlUp).Row + 1
   
7.       arr = Range("c2:c" & m)
   
8.      For j = 1 To UBound(arr)
   
9.          If arr(j, 1) = "" Then
   
10.             MsgBox "输入数据出现空白行。", vbOKOnly, "报告"
    
11.          Exit Sub
    
12.          End If
    
13.      Next
    
14.       For i = n To m
    
15.        If i > 1 And m > n - 1 Then
    
16.           If Format(Cells(i, 2), "yyyy") = Format(Cells(i - 1, 2), "yyyy") Then
    
17.              Cells(i, 1) = Format(Cells(i, 2), "yyyy") & Format(Right(Cells(i - 1, 1), 3) + 1, "000")
    
18.           Else
    
19.              Cells(i, 1) = Format(Cells(i, 2), "yyyy") & "001"
    
20.           End If
    
21.        End If
    
22.       Next
    
23.     Application.ScreenUpdating = True
    
24. End If
    
25. End Sub
    

复制代码

shuyee

kwzs_abc 发表于 2013-10-11 15:38
可以！！！就是必须先设定A2单元格！！没有达到预先效果!!.，还有好的办法吗？？

这么懒？自己加个判断不就解决了么？=if(row()=2,year(b2)&"001",......)

kwzs_abc

清风竹- 发表于 2013-10-11 19:36

效果可以！！！假如当C列某一单元格内容清空或者B列某一单元格日期年份变化，对应的A列的对应单元格也清空或变化，其后的相应单元格也随之变化（序号），反之，补齐了数据了C列某一单元格内容，对应A列的单元格内容及其后的相应单元格也随之变化（序号）！！采用对话框回答有点卡瑟！！再有就是出现上述情况时，无法满足！！

我是初学者，别笑！！