請問如何EXCEL的流水號怎樣設定?

Question

自己做了一張出貨單的工作表..
最後要再表單上做一個流水號的設定..只要每次
出貨列印..流水編號就會自動跳號!...目前在列印前..用手動改編號的方式!
想不到有什麼方式或函數可以設定出來的..有高手可以幫忙嗎??
感謝!!

Answer 1

我的程式之中也有設定流水號,應該對你的有幫助!
打開你的Excel工作表.工具>>巨集>>VB編輯器
在This Workbook中加入以下的程式
PS.不要複製到註解!!
---------------------------------------------------------------------------------
Private Sub Workbook_Open()
open_file_num = Sheet1.Range("a1") 註:在這行修改你的工作表以及流水號欄位
open_file_num = open_file_num + 1
Sheet1.Range("a1") = open_file_num 註:一樣在這行修改你的工作表以及流水號欄位
ActiveWorkbook.Save 註:加這行為每次開啟流水號+1後自動儲存,不需修改
MsgBox "檔案開啟編號：" & open_file_num
End Sub
-------------------
有不懂得在問我

Answer 2

可利用快速鍵+巨集達成;
1.利用Ctrl+a設為快速鍵
2.下列各儲存格輸入;
A1: 編號:
B1: =C1+1
C1:填入目前編號(填好後將字體設為白色就不會印出來)
3.在上方功能表按[工具]--巨集--巨集名稱下方填入 Macro1--按[建立]--輸入下列程式
Sub Macro1()
' 快速鍵: Ctrl+a
'
Range("B1").Select
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
4.只要同時按 Ctrl+a ,編號就會自動加1
5.如還不了解請提供mail,可將檔案傳給您

Answer 3

設B1為流水號
PS. 列印預覽也會+1

請在VBA project: Microsoft Excel 物件: ThisWorkbook裡面
將以下程式複製到程式頁中
----------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim num
num = Range("b1").Value

Range("B1").Value = num + 1
End Sub

Answer 4

要VBA才能做到，我之前有回答過一個類似的，您看看適不適用囉

2006-07-02 12:42:07 補充：
http://tw.knowledge.yahoo.com/question/?qid=1306060705491