返回列表 上一主題 發帖

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

[發問] 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:;

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

2018-07-09_174314.png

從data分頁判斷日期及目前筆數

2018-07-09_174320.png

財會系統請教.rar (123.61 KB)

本帖最後由 linyancheng 於 2018-7-10 11:56 編輯

如果對會計流程不懂,很難了解您的意思。

是否在資料裡加上登錄時間欄,這樣就很容易判斷了。
Word呈現極致的靜態之美,Excel展現極致的動態之美。

TOP

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題