返回列表 上一主題 發帖

[發問] 單號自動編號以"更新當日日期"後自動流水號?

elaine688

帖子
5 
主題
4 
精華
0 
積分
18 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
10 
註冊時間
2014-7-2 
最後登錄
2021-8-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-2-4 10:50 | 只看該作者

[發問] 單號自動編號以"更新當日日期"後自動流水號?

請問版上前輩
我有一段vba寫法, 其銷貨單單號寫法是:
Sheets("銷貨單").Select
Range("B5") = Format(Date, "emmdd") & "-" & Format(j, "0000") + 1
單號:1050202-7
是用民國年月日-加上流水號
但是, 像上例比如當日自動序號到當日使用的流水號....
比如今日是105/02/04
要怎麼寫, 它的單號自動編號才能以"更新當日日期"後自動流水號?
收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2016-2-8 20:51 | 只看該作者
只要加個日期變數紀錄上次執行時的日期,
而在每次產生流水號前比對兩日期若不一致表示換日,
此時再將流水號歸零即可.
  1.   Dim dDate As Date
  2.   Sheets("銷貨單").Select
  3.   If dDate <> Date Then
  4.     j = 0
  5.     dDate = Date
  6.   End If
  7.   Range("B5") = Format(Date, "emmdd") & "-" & Format(j, "0000") + 1
複製代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
257  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-28 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2016-2-8 22:31 | 只看該作者
回復 1# elaine688


    這要回去討論資料庫，看看你儲存幾筆當日資料
然後以該數值賦予程式中的 j
Range("B5")= Format(Date, "emmdd-" & Format(j + 1, "000"))
學海無涯_不恥下問

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2016-2-9 06:30 | 只看該作者
回復 1# elaine688
亦可如此：
  1. Private Sub Workbook_Open()
  2.     If TimeValue(Now) >= "上午 08:45:00" Then [B1] = 1
  3. End Sub

  5. Sub Ex()
  6.     [A1] = SerialNo
  7.     [A2] = SerialNo
  8.     [A3] = SerialNo
  9. End Sub

  11. Function SerialNo() As String
  12.     Static cJ As Integer
  13.    
  14.     If [B1] = 1 Then cJ = 0
  15.     [B1] = 0
  16.     SerialNo = Format(Date, "emmdd") & "-" & Format(cJ + 1, "00000")
  17.     cJ = cJ + 1
  18. End Function
複製代碼

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
5#
發表於 2016-2-9 13:12 | 只看該作者
本帖最後由 准提部林 於 2016-2-9 13:36 編輯

銷貨單號有以下問題, 可能須考慮：
１．日期可能不是當天＿例如：先以手開單出貨，隔幾天補登
２．或因臨近月結日，應客戶規定須計入下月帳，則須以跨月帳日期輸入，
　　例如：每月月結日為２０日，因客戶可能２１或２２日才收到貨，
　　本筆貨款應計入下月帳，為使應收帳款日期一致，可能須將銷貨單日期改為２１日
３．銷貨單可能有某些原因而刪除，這會產生〔跳號〕，
　　若僅以日期去計算筆數，再以〔筆數〕加一，應還不是最正確的做法

最好能以〔FIND〕銷貨明細中〔指定日期．EMMDD]最後一筆單號，以其〔序號〕加一！

假設：Ａ２為〔銷貨日期〕．Ａ３為〔銷貨單號〕，銷貨明細工作表的〔單號〕在Ｂ欄（有排序）
Dim DD&, xF As Range, S%
DD = Format([A2], "emmdd")
Set xF = [銷貨明細!B:B].Find(DD, SearchDirection:=xlPrevious)
If Not xF Is Nothing Then S = Right(xF, 3) + 1 Else S = 1
[A3] = DD & Format(S, "-000")

TOP

        靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。
返回列表 上一主題