vba - Excel での勘定科目調整の自動化

Question

3列のスプレッドシートがあります。最初の列には人の名前が含まれています。2 番目の列には日付が含まれます。3 番目の列には、その日に受け取った金額と支払った請求書が含まれています。

例えば：

Name  date         amount
abc   1-jan-2012   2000 usd
abc   2-jan-2012   (1500) usd
abc   3-jan-2012   2000 usd
abc   3-jan-2012   2000 usd
abc   3-jan-2012   (3500) usd

受け取った支払い (負の値) に対して請求書 (正の値) を相殺しようとしています。lifo アプリケーションを使用すると、最初のエントリの net_value は 500 USD になります。2 番目のエントリの正味値はゼロになります。

誰でもこの演習を自動化する方法を提案できますか? if ステートメントを書いたが、支払いが請求書よりも多い場合 (クライアントが前払いを受け取った場合) は条件が成立しません。

前もって感謝します。

ファイナルテーブルはこんな感じ

NAME    DATE    AMOUNT  NET VALUE
abc 1-Jan-12     (4,910.00)  (4,910.00)
abc 2-Jan-12     3,674.00    (26.00)
abc 16-Jan-12    1,777.00    -   
abc 17-Jan-12    (5,477.00)  -   
abc 22-Mar-12    258.00      258.00 
abc 31-Mar-12    5,502.00    1,465.00 
abc 7-May-12     3,986.00    -   
abc 20-May-12    5,238.00    -   
abc 23-May-12    (6,861.00)  -   
abc 4-Jul-12     (6,400.00)  -   
abc 9-Aug-12     2,238.00    2,238.00 
abc 21-Aug-12    4,855.00    2,456.00 
abc 26-Aug-12    (2,399.00)  -   
abc 9-Sep-12     3,938.00    3,938.00 

混乱させてごめんなさい...

Answer 1

例のテキストの種類ではなく、実際の通貨額として値がリストされていると仮定するとSUMIF、アカウントの現在の合計を保持するために使用できます。

D2:

=SUMIF($A$2:A2,A2,$C$2:C2)

そしてそれをコピーします。アカウントのステータスの現在の合計が表示され、すべての名前ではなく、列 A の名前に関連する項目も記録されます。

あなたの例では、これは結果です：

Name date      amount    Running Total
abc  1-Jan-12  $2,000    2000
abc  2-Jan-12  ($1,500)  500
abc  3-Jan-12  $2,000    2500
abc  3-Jan-12  $2,000    4500
abc  3-Jan-12  ($3,500)  1000

LIFO テーブルの逆形式 - 最初の数式を最後のセルに配置します (例では D6)。

=SUMIF(A6:$A$6,A6,C6:$C$6)

それを上にコピーすると、次のような結果が得られます。

Name date      amount    Running Total
abc  3-Jan-12  ($3,500)  1000
abc  3-Jan-12  $2,000    4500
abc  3-Jan-12  $2,000    2500
abc  2-Jan-12  ($1,500)  500
abc  1-Jan-12  $2,000    2000

合計はその行とその下の金額で構成されます。

Answer 2

各請求書の残高を計算しますか? その場合、すべての請求書を含む別のテーブルが必要になり、請求書の名前/ID ごとに合計/残高を計算できます。

おそらく、workbook_change で更新するピボット テーブルを使用するだけです。

少なくとも、小規模な Excel 調整プロジェクトの場合はこのようにします。それが役に立てば幸い。幸運を。

別の方法 - 一意の請求書のリストを作成するには、ctrl+shift+enter で入力したこの配列数式を使用できます。

=IFERROR(INDEX($A$2:$A$20, MATCH(0, COUNTIF($E$1:E1, $A$2:$A$20), 0)),"")

次に、各請求書 ID に対して単純に SUMIF を実行できます。

=SUMIF($A$2:$A$22,E2,$C$2:$C$22)