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、利用&符号连接前面的字母 搞定
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,下一个单元格输入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数字序列 比较一下