- 帖子
- 121
- 主題
- 8
- 精華
- 0
- 積分
- 170
- 點名
- 46
- 作業系統
- win10
- 軟體版本
- Office2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2021-1-21
- 最後登錄
- 2024-4-18
|
13#
發表於 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該如何做?
謝謝您~ |
|
發表於 2023-12-18 13:16
| 
