帖子: 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

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2016-2-8 20:51 | 只看該作者

只要加個日期變數紀錄上次執行時的日期,
而在每次產生流水號前比對兩日期若不一致表示換日,
此時再將流水號歸零即可.

Dim dDate As Date
Sheets("銷貨單").Select
If dDate <> Date Then
j = 0
dDate = Date
End If
Range("B5") = Format(Date, "emmdd") & "-" & Format(j, "0000") + 1

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2016-2-9 06:30 | 只看該作者

回復 1# elaine688
亦可如此：

Private Sub Workbook_Open()
If TimeValue(Now) >= "上午 08:45:00" Then [B1] = 1
End Sub
Sub Ex()
[A1] = SerialNo
[A2] = SerialNo
[A3] = SerialNo
End Sub
Function SerialNo() As String
Static cJ As Integer
If [B1] = 1 Then cJ = 0
[B1] = 0
SerialNo = Format(Date, "emmdd") & "-" & Format(cJ + 1, "00000")
cJ = cJ + 1
End Function

複製代碼

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

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