‘壹’ excel做个销售单,怎样自动插入单号
自己做个打印按钮
Sub myprint()
Dim x As String
If Application.Dialogs(xlDialogPrint).Show = True Then
x = Sheet1.Range("A1")
x = x + 1
Sheet1.Range("A1") = x
End If
End Sub
生成单号就在thisworkbook插入下边的代码就可以了州备
Private Sub Workbook_Open()
Dim a As String
Sheet1.Range("A1").NumberFormatLocal = "滚扮@"
If Month(Date) < 10 Then
a = Year(Date) & 0 & Month(Date) & Day(Date) & "0001"
Else
a = Year(Date) & Month(Date) & Day(Date) & "0001"
End If
If Left(Sheet1.Range("a1"), 8) <> Left(a, 8) Then
Sheet1.Range("a1"大迹灶) = a
End If
End Sub
‘贰’ EXCEL表格里怎么能让单号自动生成
excel里,可以利用时间函数today和row函数自动生成单号。
假如A列是单号,可以在A2输入公式:=IF(B2<没改燃>"",TEXT(TODAY(),"yyyymmdd")&ROW()-1,"")。公式解析:如果B2单元格为空,就显示为空,否则就返回日期函数和row函数生成的序列号。用today函数生成的序列号,带有日期的信息,可以在枯虚以后方便的查找。歼握
‘叁’ excel中的送货单号怎么设置成自动
工具/材料:电脑、excel。
第一步,打开电脑进入散轮闷桌面,打开软件进界面。
‘肆’ 表格中怎么自动生成打印单号
用宏解决。在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表格里怎么能让单号自动生成
公式:
="谨哪衡8652367"&TEXT((ROW(A1),"000000"祥做)
复制并缓游下拉,即可。
‘陆’ excel表格中订单号自动生成
假设你在SHEET1的A1中显示订单编号
按下ALT+F11,双击左边的"THISWORKBOOK",复制下列代码退出.
另:在丛游举打印预览渗碧时,编号才会更新.
Private Sub Workbook_beforePrint(Cancel As Boolean)
Sheets("Sheet1").Cells(1, 1).Select
a = Selection.Value
If a = "" Or Left(a, 8) <> Format(Date, "yyyymmdd"磨穗) Then
Selection.Value = Format(Date, "yyyymmdd") & Format(1, "00")
Else
Selection.Value = Val(a) + 1
End If
End Sub
‘柒’ Excel 表格里如何自动生成单号,打印之后自动递增
1、通过《收款单》,来逐步看一下设置表格打印后编码自动加1。
‘捌’ 怎样在EXCEL单元格中,自动生成单据编号
放在“ThisWorkbook”的代码窗口中即可。
‘玖’ wps表格怎么设置公式自动变单号
选定整行团虚或整列,然后点右键。
先选定整行或整列,然后点右键,出来的框里面选择设置单元格格式在弹出来的对话框里选择数字中分类的自定义一栏。
可以通过行号乘以32,得到缺岩递增的值。再用text显示想要的格式。公式里的32换成1,就是递塌扮燃增1。
‘拾’ 怎样在Excel里自动生成日期单据号
假如:"ZZYH"固定不变, B列为日期,B1为"2007-12-11",C列为编号,
在C1中好塌腔输入公式:
=A1&TEXT(B1,"yyyymmdd")&TEXT(COUNTIF(B$1:B1,B1),"000")
下友衫拉填充复制公式衫猜即可.