如何在EXCEL表中设置单号自动增加

答案:5 悬赏:0 手机版

解决时间 2021-03-17 19:11

提问者网友：了了无期
2021-03-17 14:37

如何在EXCEL表中设置单号自动增加

最佳答案

五星知识达人网友：风格不统一
2021-03-17 15:00

加一命令按钮，为按钮添加下面代码，即可设功能为打印。同时，A1单元格可自动加1
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Range("A1") = Range("A1") + 1
End Sub

全部回答

1楼网友：鸠书
2021-03-17 17:28

这个要用VBA

2楼网友：酒醒三更
2021-03-17 17:07

编写VBA代码。在打印事件后。序号自动增加1.追问如何编写VBA代码，在哪里写追答ALT+F11——F7——写代码。去百度搜一下代码。追问具体点可以吗？复制代码进去了怎么确定呀，我是小白，帮忙解释清楚点可以吗？

3楼网友：独钓一江月
2021-03-17 15:42

假设编号的单元格在A1
工作表标签上单击右键- 查找代码
然后在工程管理器窗口,双击ThisWorkbook,并粘贴下面的代码
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.[A1].Value = [A1].Value + 1
End Sub
如果编号在其它单元格,则将代码中的A1修改为实际单元格追问单击右键只有查看代码，没有查找代码，更找不到ThisWorkbook追答
追问
追答大哥,要断句换行的

4楼网友：狂恋
2021-03-17 15:33

　　excel里，可以利用时间函数today和row函数自动生成单号。
　　假如A列是单号，可以在A2输入公式：=IF(B2<>"",TEXT(TODAY(),"yyyymmdd")&ROW()-1,"")。公式解析：如果B2单元格为空，就显示为空，否则就返回日期函数和row函数生成的序列号。用today函数生成的序列号，带有日期的信息，可以在以后方便的查找。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息