返回列表下一主題上一主題發帖

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

chyong911

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 10
性別: 女
註冊時間: 2018-5-23
最後登錄: 2019-4-30

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-7-9 17:49 | 顯示全部帖子

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

版上各位前輩好，我已經盡量爬文找資料了，還是沒資工人員的腦袋轉不過來，得來這請教大家.....
小公司想做個excel簡單的會計系統，我自己研究VBA到目前已完成得差不多，唯獨登錄傳票時，不知道怎麼叫電腦判斷當日是否已有其他登錄的筆數
請教教我如何讓VBA自動判斷筆數，從DATA資料庫裡搜尋當天是否有登錄傳票過，沒有就從1開始，如果當天有其他登錄，就從傳票號碼裡末兩碼的筆數看到第幾筆，從這個數字+1
目前寫的程序只能判斷最後一筆...要補登幾天前的傳票就沒辦法判斷了....
javascript:;

javascript:;

'建立當日筆數
Dim v As Integer 'Integer整數類型
Dim Q As Integer
v = Sheets("data").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row  '最後一欄是第v欄
'某欄最底列  Cells(Rows.Count, 欄).End(xlUp).Row
'End(xlUp)為ctrl+向下
Q = Sheets("data").Cells(v, "D")

If Sheets("傳票登錄").Cells(5, "C") = Sheets("data").Cells(v, "D") Then '日期在資料庫裡有重複的話

'就把現在的筆數再+1
Sheets("傳票登錄").Cells(6, "C") = Sheets("傳票登錄").Cells(6, "C") + 1

Else
Sheets("傳票登錄").Cells(6, "C") = 1  '沒有重複的話，輸入1
End If

表達如有不清楚攏言贅字部分請多包涵，感謝各位前輩相助~
最後附上檔案
javascript:;

2018-07-09_174314.png (90.63 KB)

傳票登錄介面，藉由傳票拋轉來自動產生筆數及流水號，並把資料拋轉到data分頁