[發問] 多條件計算交易明細

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 48
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-5-8

2^#

發表於 2023-12-15 11:49 | 顯示全部帖子

回復 2# singo1232001
慶大好~
有看過你分享的SQL寫法，你也是熱心人士，
網上針對VBA引用ADODB的範例確實很少...
但尚未花時間去理解主因是...若VB我都尚未理解透徹及應用後，就去學習其他領域感覺會更吃力....
後來我還是直接分開寫程序及引用多字典，暫時能解決問題便好，
(但這缺點就是當出現新型態交易，就要再調整代碼。)
因公司系統其實是用SQL開發的，所以我大概知道其實以SQL調用是最佳解，無奈程度有限只能漸進學習了...
感謝關注此帖並提供方向，謝謝您!!!

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 48
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-5-8

3^#

發表於 2023-12-15 23:46 | 顯示全部帖子

回復 4# singo1232001
慶大好~
應該說當時會開始接觸VB是為簡化作業，因公司無法隨意使用其他軟體及程式，所以能用的也只有XL...
但也如同你說因業務性質關係，在剛入門完全不懂的情況下看了相關書籍及網上範例還是無法運用在工作上，
得知此論壇上來提問後獲得准大的幫助，一開始當然只是想解決問題，慢慢去理解後才發現...
原來我是得到多麼厲害的高手的幫助，漸漸地才逐步逐項的去學習，當然准大的邏輯跟技巧非常人所及.....
不過隨著多看高手的程序及編碼，從連迴圈是什麼都不知道，也受到眾多人的幫助，開始能大概調適代碼簡易的運用在工作上，
雖然確實搭不上邊，但還是希望能慢慢更深入了解VB，就算失敗也無妨，畢竟是自己學習用。
-------------------------------------------
公司使用自主開發的SQL作為ERP系統，但財務方面的整合較少，這也是為什麼會想要盡可能利用VB減少手工作業，
而之所以會說最佳解是因為看過資訊寫的編程直接能調用資料庫帶出所需資訊。
所以你建議我直接學習SQL是怕我走太多彎路:)
會再抽空去學習~
-------------------------------------------
您辛勞地分析利弊，熱情的提供建議和指導，論壇真的充滿熱心專業的人士。
感謝您及大家!!!!

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 48
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-5-8

4^#

發表於 2023-12-17 23:59 | 顯示全部帖子

回復 6# jackyq
J大好~
確實是為了先快速得到結果來做...您講得沒錯，當交易形態越多維護就越不易，到頭來可能就要打掉重練了...
感謝給了另外一個方向去思考，但因我連常規都寫不好，所以暫不考慮以自定義來做...
謝謝你!!

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 48
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-5-8

5^#

發表於 2023-12-18 00:02 | 顯示全部帖子

回復 7# singo1232001
慶大好~
因財務資料較為敏感...故大部分只能暫時上傳模擬數據來提問..
若您想測試資料，有空我在整理測試資料上傳，
謝謝您!!

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 48
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-5-8

6^#

發表於 2023-12-18 00:14 | 顯示全部帖子

回復 8# 准提部林
准大好~
又勞煩您出手幫忙了，我抽空測試後再給予回饋，
百忙之際還幫忙註解及協助，大恩不言謝...

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 48
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-5-8

7^#

發表於 2023-12-18 13:41 | 顯示全部帖子

本帖最後由 shuo1125 於 2023-12-18 13:46 編輯

回復 12# 准提部林
准大好~
剛開始試著理解#8的代碼，又馬上給了另一方式..
#8基本上已經完成近90%....唯一需要調整只是因為原提供邏輯未完善造成。
您的思路細膩，字典嵌套用的高段...
原代碼調試了兩段:
-----------------------------------------------------
一)
收入上期自調=只看摘要有"上期"的貸方金額
      S1 = InStr(Arr(i, 10), "上期"): S2 = InStr(Arr(i, 10), "本期") '判斷為前期/本期
      If (InStr(Tx(2), T) > 1) * (S1 > 0) Then
         Brr(2)(M, 0) = Brr(2)(M, 0) + V17 '02.自調i
      End If
收入本期自調=只看摘要有"本期"的借方-貸方金額
      If (InStr(Tx(2), T) > 1) * (S2 > 0) Then
         Brr(3)(M, 0) = Brr(3)(M, 0) + V16 - V17 '03.自調j
      End If
二)
進貨的暫估位置稍反
      If (P1 = 0) + P2 Then Brr(7)(M, 0) = Brr(7)(M, 0) + V16 - V17 '07.進貨(未稅)(B)
         If P1 > 0 Then
      Brr(6)(M, 0) = Brr(6)(M, 0) + V17 '06.上期暫估金額(A)
-----------------------------------------------------
另想請問....若該月無交易的金額要顯示0該如何做?
謝謝您~