excel中設置單據頁碼的問題

任我行

請教各位大俠
我想在excel中設置一個簡易“送貨單”頁面，需要設置一個送貨單自動編碼號，用“年月日+開單份數纍計”的方式，如100519001、100519002、。。。，請教，如何用公式設置，才能使得單號在當天中自動連續編號？我想這樣，在送貨單單據旁邊設置一個手動“保存”的按鍵，每保存一次，單據頁面自動另存，每保存一次，單據編號自動刷新一個，直到日期換下一天開始，單據編號再從頭開始。我不知如何設置，請教各位幫幫忙吧，在此感謝了。

gong

此題不適用於一般區,可能會有重複參照的問題,建議移至程式區發問

Hsieh

回復 1# 任我行


    簡單做個範例檔供參考
送貨單.rar (10.46 KB)

下載次數: 14

2010-5-19 22:59

ANGELA

A1=100430001
A2=IFERROR((TEXT(RIGHT(YEAR(TODAY()),2),"00")&TEXT(MONTH(TODAY()),"00")&TEXT(DAY(TODAY()),"00")&TEXT(RIGHT(LOOKUP(2,1/(LEFT($A$1:A1,6)=TEXT(RIGHT(YEAR(TODAY()),2),"00")&TEXT(MONTH(TODAY()),"00")&TEXT(DAY(TODAY()),"00")),$A$1:A1),3),"000"))+1,--(RIGHT(YEAR(TODAY()),2)&TEXT(MONTH(TODAY()),"00")&TEXT(DAY(TODAY()),"00")&"001"))
往下COPY

任我行

感謝兩位仁兄的熱心
Hsieh 做的附件，我沒有權限下載或查看！
ANGELA 做的公式，我複製粘貼到excel表中，卻得不出什麼結果！不知如何操作才好，還請賜教。
總之，非常感謝兩位的援手之德啦

任我行

gong版主，我不知道如何移動問題到程式區，請幫幫忙好嗎？非常感謝！
或者到程式區重新做一個主題發問？

Hsieh

回復 5# 任我行


   

下載 (290.78 KB)

2010-5-22 11:37

1. Private Sub CommandButton1_Click()
   
2. Sheet2.[A65536].End(xlUp).Offset(1, 0).Resize(, 21) = Application.Transpose([B1:B21].Value)
   
3. End Sub

複製代碼

PD961A

回復  任我行
Hsieh 發表於 2010-5-22 11:37

引用HS版主圖檔

   

下載 (10.5 KB)

2010-5-23 17:57

下載 (15.56 KB)

2010-5-23 18:03

PD961A

回復 6# 任我行


    小誌版主-管理公告區塊

麻辣家族討論區 » 管理公告 » 發表新主題時如何選取主題分類

下載 (4.23 KB)

2010-5-23 18:21

下載 (8.98 KB)

2010-5-23 18:21

ANGELA

抱歉,用了2007公式,2003請看附件
定義名稱公式較簡潔.