返回列表 上一主題 發帖

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

只能給個"模版"設計方向, 統計金額可能要自行去確認及修改, 大概猜著寫//
Xl0000108.rar (70.16 KB)

TOP

稍修:
1) A6"資訊"兩字前有空格, 加入TRIM去除
2) 增加工作表簡碼對照表
3) "自調"金額與你模擬有出入, 已修改, 可再自行調修
4) 取得來源工作表(排序後加入陣列), 捨棄字典用法, 避免工作表太多, 使字典帶太多陣列資料而佔用資源,
   改用"當工作表名稱改變時"才執行排序取陣列, 所以, 同一工作表的順序必須連續, 才不用一直反覆排序!!

Xl0000108v02.rar (72.51 KB)

TOP

回復 13# shuo1125

另想請問....若該月無交易的金額要顯示0該如何做?

定義Xrr的型態//
若都整數:
Xrr(1 To 12, 0) As Long
若有小數又比較適合財務數字:
Xrr(1 To 12, 0) As Currency

TOP

回復 13# shuo1125

S1 = InStr(Arr(i, 10), "上期"): S2 = InStr(Arr(i, 10), "本期") '判斷為前期/本期

S1/S2...可沿用P1/P2, 它是隨用隨動的 不會有衝突, 免得變數太多維護不易//

TOP

回復 33# shuo1125

加一段//
Xl0000108_TESTv02.rar (416.14 KB)

TOP

回復 36# Andy2483


將 and m >= mx 去掉~~

TOP

回復 35# shuo1125

最大月份要歸零
y = 0: Erase Brr: Mx = 0

TOP

回復  Andy2483
回復  准提部林
感謝Andy大把可能性都想進去了.....
也感謝准大再三幫忙!!
測試發現有 ...
shuo1125 發表於 2024-1-20 08:46



If Brr(x + 4)(M, 0) = 0 And M <= Mx Then Brr(x + 4)(M, 0) = Brr(x + 4)(M - 1, 0)  
刪去"最大月份"的判別即可!!!
但是,,這樣的數據是失真的!!! 未來式餘額???

TOP

回復 42# shuo1125


若只記錄到"最大月份"為止, 看38#的補充~~Mx在下次回圈前要歸零

TOP

回復 44# Andy2483

只是一個判斷//
Xl0000108_TESTv03.rar (396 KB)

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題