Board logo

標題: excel中設置單據頁碼的問題 [打印本頁]

作者: 任我行    時間: 2010-5-19 09:37     標題: excel中設置單據頁碼的問題

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

此題不適用於一般區,可能會有重複參照的問題,建議移至程式區發問
作者: Hsieh    時間: 2010-5-19 22:59

回復 1# 任我行


    簡單做個範例檔供參考
[attach]772[/attach]
作者: ANGELA    時間: 2010-5-20 11:15

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
作者: 任我行    時間: 2010-5-22 11:06

感謝兩位仁兄的熱心
Hsieh 做的附件,我沒有權限下載或查看!
ANGELA 做的公式,我複製粘貼到excel表中,卻得不出什麼結果!不知如何操作才好,還請賜教。
總之,非常感謝兩位的援手之德啦
作者: 任我行    時間: 2010-5-22 11:10

gong版主,我不知道如何移動問題到程式區,請幫幫忙好嗎?非常感謝!
或者到程式區重新做一個主題發問?
作者: Hsieh    時間: 2010-5-22 11:37

回復 5# 任我行


    [attach]798[/attach]
  1. Private Sub CommandButton1_Click()
  2. Sheet2.[A65536].End(xlUp).Offset(1, 0).Resize(, 21) = Application.Transpose([B1:B21].Value)
  3. End Sub
複製代碼

作者: PD961A    時間: 2010-5-23 17:58

本帖最後由 PD961A 於 2010-5-23 18:04 編輯
回復  任我行
Hsieh 發表於 2010-5-22 11:37


引用HS版主圖檔

    [attach]799[/attach]


[attach]800[/attach]
作者: PD961A    時間: 2010-5-23 18:21

回復 6# 任我行


    小誌版主-管理公告區塊

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

[attach]801[/attach]


[attach]802[/attach]
作者: ANGELA    時間: 2010-5-24 14:26

抱歉,用了2007公式,2003請看附件
定義名稱公式較簡潔.
作者: ANGELA    時間: 2010-5-24 14:36

定義名稱:
YY=TEXT(RIGHT(YEAR(TODAY()),2),"00")
MM=TEXT(MONTH(TODAY()),"00")
DD=TEXT(DAY(TODAY()),"00")
2003公式為
A2=IF(ISERROR((yy&mm&dd&TEXT(RIGHT(LOOKUP(2,1/(LEFT($A$1:A1,6)=yy&mm&dd),$A$1:A1),3),"000"))+1),--(yy&mm&dd&"001"),(yy&mm&dd&TEXT(RIGHT(LOOKUP(2,1/(LEFT($A$1:A1,6)=yy&mm&dd),$A$1:A1),3),"000"))+1)
作者: ANGELA    時間: 2010-5-24 15:30

定義名稱
YYMMDD=TEXT(TODAY(),"YYMMDD")
公式為
A2=IF(LEFT(A2,6)=YYMMDD,A2+1,--(YYMMDD&"001"))
作者: PD961A    時間: 2010-5-24 16:07

請教各位大俠
我想在excel中設置一個簡易“送貨單”頁面,需要設置一個送貨單自動編碼號,用“年月日+開單 ...
任我行 發表於 2010-5-19 09:37



   樓主的問題
以HS版主的解答範例比較合乎您想要的模式.不能下載請參照8#的圖示去完成
若以定義名稱去執行..單據頁面不會自動另存到其他頁面
承如GONG版主所言..此題不適用於一般區,可能會有重複參照的問題




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)