Excel和AccessPK第二期：Access自定义单号

purplerose

哈哈，两位高手对决，我只是看看，不说话

pureshadow

用了两个工作表事件，第一段代码是模仿王站的代码写的。

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. If Target.Column = 1 Or Target.Column = 2 Then
   
4.     Dim strArea As String
   
5.     Dim strDate As String
   
6.     Dim strSeqNo As String
   
7.     strArea = Cells(Target.Row, 1)
   
8.     strDate = Format(Cells(Target.Row, 2), "YYYYMMDD")
   
9.     strSeqNo = Format(Application.CountIf(Range("c2:c" & Target.Row - 1), strArea & strDate & "*") + 1, "000")
   
10.     Cells(Target.Row, 3) = strArea & strDate & strSeqNo
    
11. End If
    
12. If Target.Column = 4 Or Target.Column = 5 Then
    
13.     Cells(Target.Row, 6) = Cells(Target.Row, 4) * Cells(Target.Row, 5)
    
14. End If
    
15. End Sub
    
16. 
    
17. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
18. If Target.Column = 3 Or Target.Column = 6 Then
    
19.     Range("a1").Select
    
20. End If
    
21. End Sub
    

复制代码

闻启学

pureshadow 发表于 2016-3-19 17:10
这个问题，Access的处理步骤是什么呢？也不公布一下

小妖老师  TEXT(COUNTIF(C$1:C1,A2&TEXT(B2,"emmdd")&"???")+1,"000"))  后面那个什么意思

我都对一半 TEXT(B2,"emmdd")&"???")+1,"000"))

pureshadow

在C$1:C1里，A2&TEXT(B2,"emmdd")&"???")不存在，下拉以后，C$1:C1变成C$1:C2，如果有存在同号的，就会有1，以此类推。
另外，我不老，谢谢！

轻风

精彩对决。小妖喜欢人家叫她小妖同学

纸鸽

这个直接用表格就可以了吧，不用IF判断，直接输入下一行就可以了。

tmtony

楼上是“小童” 吗，强！

pureshadow

纸鸽 发表于 2016-3-25 10:13
这个直接用表格就可以了吧，不用IF判断，直接输入下一行就可以了。

如果题目没有要求C列和F列不可修改的话，你这个办法真是棒极了。

纸鸽

tmtony 发表于 2016-3-25 10:15
楼上是“小童” 吗，强！

是的，王站，谢谢你还记得我

纸鸽

pureshadow 发表于 2016-3-25 14:04
如果题目没有要求C列和F列不可修改的话，你这个办法真是棒极了。

谢谢妖姐夸奖，我没注意需要锁定。。。。