返回列表 上一主題 發帖

[發問] VBA判斷找出符合條件最大值

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2018-7-25 21:29 | 顯示全部帖子
這段程式可以將你所輸入的日期
回傳新編的當日傳單編號。

ex: JudgmentNumber(1070501)="A107050106"

原本有打算幫你改善表單，
但不知道你完整的功能運作是什麼方向，
所以就先提供這個函數給你！

希望能幫的到你~ : )
  1. Function JudgmentNumber(iDate$) As String
  2.     Dim SNRng As Range, PT As Range
  3.     Dim iD&, iDMax&, iStart&
  4.     JudgmentNumber = ""
  5.     Set SNRng = Sheets("data").Columns(2)
  6.     Set PT = SNRng.Find("A" & iDate & "*", lookat:=xlWhole)
  7.     iStart = PT.Row
  8.     Do
  9.         iD = Mid(PT, 2, 9)
  10.         If iDMax < iD Then iDMax = iD
  11.         Set PT = SNRng.FindNext(PT)
  12.     Loop Until iStart = PT.Row
  13.     iD = iDMax + 1
  14.     JudgmentNumber = "A" & iD
  15. End Function
複製代碼

TOP

        靜思自在 : 知識要用心體會，才能變成自己的智慧。
返回列表 上一主題