㈠ EXCEL表格里怎麼能讓單號自動生成
這有多種方法,不知道你的模板樣式,如果是列表格式,可用ROW()函數來設置,如果是單據格式的單號,用輔助列來提取原最大單號,再加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") + 1
End Sub
這個可以實現:你一點列印,F1自動加1,然後列印。(因此,你原來的單號要小1號)。
按你所需了。如果你一天又列印幾次又存檔幾次,比較麻煩。
㈢ excel單號自動生成
要使用VBA程序,寫入以下代碼:
PrivateSubWorkbook_BeforePrint(CancelAsBoolean)
DimxAsInteger
x=Val(Right(Sheet1.Cells(1,1),Len(Sheet1.Cells(1,1))-3))
Sheet1.Cells(1,1)="NO:"&WorksheetFunction.Text(x+1,"000000")
EndSub
其中000000個數根據需要設置。
㈣ Excel表格怎麼生成自己單號
下載升級版的,帶資料庫的
㈤ EXCEL表格里怎麼能讓單號自動生成
excel里,可以利用時間函數today和row函數自動生成單號。
假如A列是單號,可以在A2輸入公式:=IF(B2<>"",TEXT(TODAY(),"yyyymmdd")&ROW()-1,"")。公式解析:如果B2單元格為空,就顯示為空,否則就返回日期函數和row函數生成的序列號。用today函數生成的序列號,帶有日期的信息,可以在以後方便的查找。
㈥ 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表格中設置 送貨單單號能自動連續的生成流水號,而且每天日期可以自動更新謝謝!
=TEXT(TODAY(),"000000") &text(row(),"0000")
前部分表示日期,後部分表示流水號,row()後面可以加減一個數字,確定你的起始編號。
㈧ 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。
㈨ 怎樣excel自動生成單號
在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