Excel 表格里如何自动生成单号，打印之后自动递增？

Excel 表格里如何自动生成单号，打印之后自动递增~

1、通过《收款单》，来逐步看一下设置表格打印后编码自动加1。

2、同时按下Alt+F11键，弹出如图对话框。

3、依次点击菜单栏，“插入-模块”。

4、在模块对话框中输入：Sub PR()
ActiveSheet.Printout
[D2]=[D2]+1
End Sub
其中【D2】为编码单元格，输入完毕后，关闭VB对话框。

5、在对话框中，依次选取【自定义】-【开发工具选项卡】-【宏安全性】，将【宏安全性】添加到右栏，点击【确定】。

6、会发现工具栏中出现了【宏安全性】图标。

7、双击【宏安全性】图标，弹出【信息中心】对话框，在其中点击【宏设置】，选取“启用所有宏”，点击确定。

8、同时按下Alt+F8二键，弹出【宏】对话框。

9、在【宏】对话框中，点击【选项】，弹出【宏选项】界面，在此界面中可以设置热键，设置成“CTRL+P”，点击【确定】，设置完毕。

10、按下“CTRL+P”，打印的同时，编码自动变化+1。

1、利用countif判定是第几个“单据编号”
2、利用text，将编号显示成5位数 例如 00001
3、利用&符号连接前面的字母 搞定

您好，1、通过《收款单》，来逐步看一下设置表格打印后编码自动加1。
2、同时按下Alt+F11键，弹出如图对话框。
3、依次点击菜单栏，“插入-模块”。
4、在模块对话框中输入：Sub PR()

ActiveSheet.Printout

[D2]=[D2]+1

End Sub
其中【D2】为编码单元格，输入完毕后，关闭VB对话框。
5、在对话框中，依次选取【自定义】-【开发工具选项卡】-【宏安全性】，将【宏安全性】添加到右栏，点击【确定】。
6、会发现工具栏中出现了【宏安全性】图标。
7、双击【宏安全性】图标，弹出【信息中心】对话框，在其中点击【宏设置】，选取“启用所有宏”，点击确定。
8、同时按下Alt+F8二键，弹出【宏】对话框。
9、在【宏】对话框中，点击【选项】，弹出【宏选项】界面，在此界面中可以设置热键，设置成“CTRL+P”，点击【确定】，设置完毕。
10、按下“CTRL+P”，打印的同时，编码自动变化+1。

能不能连续打印，然后单号也递增

---

赣榆县13112336762： excel 中如何自动增加单号 - ？
亢耐伏立： 你在一个单元格输入1,下一个单元格输入3,然后选中这两个单元格往下拉,就是单号了.它会自动计算差值,以等差数列填充. 不懂再追问~满意请采纳噢~

赣榆县13112336762： excel自动生成单据号 - ？
亢耐伏立： 这个要用VBA来实现,假设A1为单据号(单元格格式只能为数值),表格名称为sheet1, 按ALT+F11调出VBA窗口,插入一个模块,把下面代码复制进去.Private Sub Auto_Open() Sheets(＂sheet1＂).Range(＂a1＂) = Range(＂a1＂) + 1 End Sub这个不知行不行,每打开一次单据号增加1!

赣榆县13112336762： Excel 配货单怎么自动生成 - ？
亢耐伏立： excel里,可以利用时间函数today和row函数自动生成单号. 假如A列是单号,可以在A2输入公式:=IF(B2＂＂,TEXT(TODAY(),＂yyyymmdd＂)&ROW()-1,＂＂).公式解析:如果B2单元格为空,就显示为空,否则就返回日期函数和row函数生成的序列号.用today函数生成的序列号,带有日期的信息,可以在以后方便的查找.

赣榆县13112336762： 你好,我可以求助您教我如何在Excel表格自动生成单据号嘛?? - ？
亢耐伏立： 先输入头两个数据,选中它们,这时方框右下角有个黑点,这是填充柄,点中后向下拉,就可以了,这是自动填充功能,如果你要的单据号位数多,还要将数据变为“文本”类型,而不是数值.

赣榆县13112336762： 关于excel中如何动态生成订单号的问题 - ？
亢耐伏立： 用宏解决. 在Excel中,同时按Alt和F11进入宏界面,在左上窗口找到本工作簿的名字,里面有个ThisWorkbook,双击它,在右边窗口粘贴如下代码: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Range...

赣榆县13112336762： EXCEL打印时自动生成流水单号 - ？
亢耐伏立： 这个通过代码来实现不太现实,因为打印可以通过菜单、快捷按钮、快捷键、宏代码等来进行,要对这么多东西进行监测很困难,只有监测系统的打印服务进程才能实现,但是也可能存在打印失败,通信失败等等变化. 但是可以设置你的流水单...

赣榆县13112336762： 在excel表格中如何能自动生成编号 - ？
亢耐伏立： 在Excel中单元格自动显示序号方法 1、如果在B1输入姓名,要A1自动显示的序号是1时,在A1输入公式:=IF(B1=＂＂,＂＂,ROW(B1));如果要A1自动显示的序号是1001,则在A1输入公式:=IF(B1=＂＂,＂＂,ROW(B1)+1000). 如果在B2输入...

赣榆县13112336762： excel编号怎么设置自动生成 - ？
亢耐伏立： 首先做好表格,确保B列有数据 然后分别:单元格A2输入数字:1; 单元格A3输入数字:2.选择1.2单元格并把光标放在2的右下角,会出现一个黑色十字标志. a:双击即可自动填充与B列数据对应的序列,如示例中共有21行,自动填充只到21哦~. B:拉住十字标志一直往下拉即可自动生成排列序号.

赣榆县13112336762： EXCEL出库单如何自动生成单号？
亢耐伏立： 其实,就是一个自动序号生成器,完成不难.只要做一宏(可以用录入宏的方式生成一个空的宏,在其中加一句话,cells(x,y).value=cells(x,y).value+1.),每次运行一下,保存后,再另存就可以了. 自动的有一个问题,就是每次虽然加1,但也需要你核实历史记录,换句话说,如何保证存在记录里的号码(上一次)的准确性是个问题.比如,你另存一次就加1,那么如果废单怎么办呢?这是exel解决中最困难的,需要序号管理,确保其准确.

赣榆县13112336762： 怎样在Excel里自动生成系列连续单据号? - ？
亢耐伏立： Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim i As Integer i = CInt(Range(＂A1＂).Text) + 1 Dim s As String s = CStr(i)Range(＂A1＂).Value = s ActiveWorkbook.Save Application.ScreenUpdating = True End Sub 直接copy到thisworkbook,是打印触发的,,A1数字序列 比较一下