EXCEL中用VBA编写自动流水号
2013-08-31
展开全部
假设流水号保存在Sheet1工作表的A1单元格
把下面的代码添加到文件的THISWORKBOOK模块
Private Sub Workbook_Open()
Sheets("Sheet1").Range("A1").Value = Sheets("Sheet1").Range("A1").Value + 1
End Sub
自定义流水号位数可以通过自定义格式完成,升滑首吵数比如6位流水号,
可以自让纳定义格式为 000000
把下面的代码添加到文件的THISWORKBOOK模块
Private Sub Workbook_Open()
Sheets("Sheet1").Range("A1").Value = Sheets("Sheet1").Range("A1").Value + 1
End Sub
自定义流水号位数可以通过自定义格式完成,升滑首吵数比如6位流水号,
可以自让纳定义格式为 000000
2013-08-31
展开全部
你的邮箱是多少。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询