データベース向けのMicrosoft AccessクエリとVBA

シート構成：タブ「請求書」

列	見出し	入力
A	請求書番号	手入力
B	取引先	手入力（タブ「取引先」からプルダウン）
C	発行日	手入力
D	金額	手入力
E	支払サイト（日数）	数式
F	支払期限	数式
G	入金日	手入力（入金されるまで空欄）
H	ステータス	数式
I	超過日数	数式

数式（全10本のうち6本を抜粋）

E2：取引先リストから支払サイトを取得 =IFERROR(VLOOKUP(B2, '取引先'!A:C, 3, FALSE), 30) タブ「取引先」から支払サイトを探します。取引先が登録されていない場合は30日とします。

F2：支払期限 =IF(C2="", "", C2 + E2) 発行日に支払サイトを足します。空行では空欄のままです。

H2：ステータス =IF(C2="", "", IF(G2<>"", "入金済", IF(TODAY()>F2, "期限超過", "未入金"))) 入金日が入っていれば「入金済」、なければ期限を過ぎた時点で「期限超過」、それまでは「未入金」。

I2：超過日数 =IF(H2="期限超過", TODAY() - F2, "")

ダッシュボード!B2：未収額の合計 =SUMIFS('請求書'!D:D, '請求書'!H:H, "<>入金済", '請求書'!C:C, "<>")

ダッシュボード!A5：取引先別の未収額（1本の数式で表全体を作成） =QUERY('請求書'!B:H, "select B, sum(D) where H <> '入金済' and B is not null group by B order by sum(D) desc label sum(D) '未収額'", 1)

貼り付け場所

• E2、F2、H2、I2をタブ「請求書」の2行目に入れ、500行目までドラッグでコピー
• ダッシュボードの2本の数式は1回貼るだけ。あとは自動で更新されます
• H2:H500に条件付き書式：テキストが「期限超過」なら薄い赤で塗りつぶし

想定しているケース

• 一部だけ入金された請求書： 残額で行を追加し、INV-041bのような新しい番号を付ける
• 取引先の社名変更：「取引先」タブだけを変更すれば、プルダウンで全行がそろいます
• Excelで使う場合： QUERY以外の数式はすべて動きます。代わりにB、D、H列でピボットテーブルを作成してください

動作確認の例

請求書INV-038、取引先「北口歯科」、9月1日発行、支払サイト14日 → 期限は9月15日。今日が10月20日で未入金 → 期限超過、35日。