用宏解决。在Excel中,同时按Alt和F11进入宏界面,在左上窗口找到本工作簿的名字,里面有个ThisWorkbook,双击它,在右边窗口粘贴如下代码:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("F1") = Range("F1") + 1 '请自己把F1改为你实际存放单号的单元格
End Sub
回到Excel。这可以实现,只要存盘,单元格F1就在原来的数字上加1。
如果你一天要存盘几次,而打印只有一次,建议将代码改为:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("F1") = Range("F1") + 1
End Sub
这个可以实现:你一点打印,F1自动加1,然后打印。(因此,你原来的单号要小1号)。
按你所需了。如果你一天又打印几次又存盘几次,比较麻烦。
用宏解决。
在Excel中,同时按Alt和F11进入宏界面,在左上窗口找到本工作簿的名字,里面有个ThisWorkbook,双击它,在右边窗口粘贴如下代码:Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)Range("F1") = Range("F1") + 1 '请自己把F1改为你实际存放单号的单元格End Sub回到Excel。这可以实现,只要存盘,单元格F1就在原来的数字上加1。
如果你一天要存盘几次,而打印只有一次,建议将代码改为:Private Sub Workbook_BeforePrint(Cancel As Boolean)Range("F1") = Range("F1") + 1End Sub这个可以实现:你一点打印,F1自动加1,然后打印。(因此,你原来的单号要小1号)。
按你所需了。如果你一天又打印几次又存盘几次,比较麻烦。
序号自动排序的添加方法
1、点击选择第一个序号的位置,选择菜单栏中的“公式”中的“查找与引用”,点击它,在弹出的窗口中选择“ROW”函数。如果想了解这个函数的意义,可在空白处选择“插入函数”,点击函数名,在下面就有具体的说明。
2、表格中的输入框就出现图中的内容。不用管弹出的窗口,点击输入框,在括号后面输入-1。目的是让输入的序号比表格自带的序号数值少1。序号1前的表格自带的序号数减去1等于几,在函数后面就减几。比如:表格自带序号是3,自定序号是1,在括号后面就输入-2。
3、输入内容后确定。
4、输入框中就变成数字了。
5、选择1所在的输入框,当输入框右下角变成黑色十字时,按住左键向下拖动鼠标,到指定的行数后松开左键,序号就自动产生了。这种方法适用于序号较多的表格。
您好,很高兴为您解答!
由于未见你的具体文档结构,故无法准确回答,只能提出以下见解供参考:
1、一般情况下,wps表格可通过指定销售单单号的方式,实现输出单据的格式化查询;
2、电子表格中工作表的一般设计原则是:在基础数据表中,依靠人工,逐行填充每一个单据的记录,通常每一行为一条记录,对应一张单据,单据号可依据规律编写公式自动生成;
3、对于其他功能,可借助VBA编程的方式,通过编制专用程序辅助实现,具体可访问wps官方论坛中,坛友们有关打印单据自动增加编号等专题的帖子:
论文排版、模版下载、论文遇到难题,解决方法:/wpswfw
如有疑问,请点击我的头像提问或访问WPS官方论坛,祝您生活愉快!
在a1输入NO.KG00001,按alt+f11,双击左上窗口的thisworkbook,复制以下代码粘贴,关闭窗口回到表格,下次打开表格就自动出单号。如果不想在a1生单号,可以改在其他单元格,稍微改下代码就行。
Private Sub Workbook_Open()
Dim a
a = Mid(Cells(1, 1), 6, 5)
a = a + 1
If a < 10 Then
Cells(1.1) = "NO.KG" & "0000" & a
ElseIf a < 100 Then
Cells(1.1) = "NO.KG" & "000" & a
ElseIf a < 1000 Then
Cells(1.1) = "NO.KG" & "00" & a
ElseIf a < 10000 Then
Cells(1.1) = "NO.KG" & "0" & a
ElseIf a < 100000 Then
Cells(1.1) = "NO.KG" & a
End If
End Sub
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。 。