如何用VB实现合同编号

liujialin0o0

1. Sub tt()
   
2. 
   
3. For Each sh In Sheets
   
4.     If sh.Name = "ZXXS" & Format(Date, "yyyymmdd") & Format(i + 1, "000") Then
   
5.         i = i + 1
   
6.     End If
   
7. Next
   
8. 
   
9. [D6] = "ZXXS" & Format(Date, "yyyymmdd") & Format(i + 1, "000")
   
10. 
    
11. Sheets("销售合同").Copy after:=Sheets(Sheets.Count)
    
12. Sheets(Sheets.Count).Name = Cells(6, 4)
    
13. 
    
14. Sheets("销售合同").Activate
    
15. [D6] = ""
    
16. [J6] = ""
    
17. [J7] = ""
    
18. [C12:J17] = ""
    
19. [B18] = "备注："
    
20. [J21] = ""
    
21. [E24:H24] = ""
    
22. [D39:D45] = ""
    
23. [I39:I45] = ""
    
24. 
    
25. MsgBox "合同编号为：" & Sheets(Sheets.Count).Name
    
26. 
    
27. End Sub
    

复制代码

zhaozh2h

simic1989 发表于 2018-9-14 15:17
合同编号写在哪？订单号码那边吗？日期你是想要当天的日期？比如这种形式ZXXS20180914001？你点击后想要形 ...

就是订单号码那边，日期就是当天的日期，ZXXS20180914001这样，然后我点击就是确认这个合同编号成功记录，然后会生成新一个新表，新编号（ZXXS20180914002）这样，表格的模式就我附件那样。

zhaozh2h

liujialin0o0 发表于 2018-9-14 15:44

语法错误啊~！！！就是TT那段语法

liujialin0o0

zhaozh2h 发表于 2018-9-14 17:05
语法错误啊~！！！就是TT那段语法

不可能阿,我测试可以的呀.什么错误原因,难道是强制声明原因
那就加句 dim i%

小风风风

给顶一下,自己等级积分都不够...赚点分