Claude Code x openpyxl で部門別予算実績管理・差異分析レポートを完全自動化する

月末の予算差異レポート作成が2日から2時間になった

財務担当の田中です。毎月末、各部門から予算実績ファイルを回収し、数値を転記して差異を計算するのに丸2日かかっていました。Claude Codeに依頼したところ、ファイル統合から差異分析・アラートメール送信まで2時間で完了するようになりました。

STEP 1：部門別Excelを自動統合する

フォルダ内の部門別Excelを全件読み込み、統合サマリーを作成します。

import os, glob, pandas as pd, openpyxl
from pathlib import Path

def consolidate(input_dir, output_file):
    buds, acts = [], []
    for f in glob.glob(f"{input_dir}/*.xlsx"):
        dept = Path(f).stem
        try:
            b = pd.read_excel(f, sheet_name="予算"); b["部門"]=dept; b["種別"]="予算"; buds.append(b)
            a = pd.read_excel(f, sheet_name="実績"); a["部門"]=dept; a["種別"]="実績"; acts.append(a)
            print(f"  ok {dept}")
        except Exception as e: print(f"  ng {dept}: {e}")

    df = pd.concat(buds+acts, ignore_index=True)
    piv = df.pivot_table(values="金額",index=["部門","科目"],columns="種別",aggfunc="sum").reset_index()
    piv["差異"]  = piv["実績"] - piv["予算"]
    piv["差異率"] = piv["差異"] / piv["予算"] * 100
    with pd.ExcelWriter(output_file, engine="openpyxl") as w:
        piv.to_excel(w, sheet_name="統合サマリー", index=False)
        df.to_excel(w,  sheet_name="全明細",       index=False)
    print(f"統合完了: {output_file}")
    return piv

df = consolidate("./部門別予算/", "budget.xlsx")

STEP 2：差異を色分けしてTop5を自動抽出する

予算超過・大幅未達の項目を自動で色分けし、問題箇所を即座に把握できるようにします。

from openpyxl.formatting.rule import CellIsRule
from openpyxl.styles import PatternFill, Font

wb = openpyxl.load_workbook("budget.xlsx")
ws = wb["統合サマリー"]

red_f    = PatternFill("solid", fgColor="FFCDD2")
yellow_f = PatternFill("solid", fgColor="FFF9C4")
lr = ws.max_row

ws.conditional_formatting.add(f"F2:F{lr}",
    CellIsRule(operator="greaterThan", formula=["0.1"], fill=red_f,
               font=Font(color="B71C1C",bold=True)))
ws.conditional_formatting.add(f"F2:F{lr}",
    CellIsRule(operator="lessThan", formula=["-0.2"], fill=yellow_f,
               font=Font(color="E65100")))

# Top5を別シートへ
sorted_df = df.reindex(df["差異"].abs().sort_values(ascending=False).index)
ws5 = wb.create_sheet("要注意Top5")
hdrs = ["部門","科目","予算","実績","差異","差異率"]
for c,h in enumerate(hdrs,1):
    cell=ws5.cell(1,c,h); cell.font=Font(bold=True,color="FFFFFF")
    cell.fill=PatternFill("solid",fgColor="C62828")
for ri,(_, row) in enumerate(sorted_df.head(5).iterrows(),2):
    for ci,v in enumerate([row["部門"],row["科目"],row["予算"],row["実績"],row["差異"],f"{row['差異率']:.1f}%"],1):
        ws5.cell(ri,ci,v)

wb.save("budget.xlsx")
print("差異分析完了")

STEP 3：超過部門に自動アラートメールを送信する

予算を超過している部門の責任者に自動メールを送ります。

import smtplib
from email.mime.multipart import MIMEMultipart
from email.mime.text import MIMEText

MGR = {"営業部":"sales@co.jp","開発部":"dev@co.jp","マーケ部":"mkt@co.jp"}

def alert_mail(dept, items):
    rows = "".join(f"{i['科目']}{i['差異率']:.1f}%" for i in items)
    html = (f"
予算超過アラート: {dept}
"
            f"{rows}
科目
差異率
")
    msg = MIMEMultipart("alternative")
    msg["Subject"] = f"【予算超過】{dept}"
    msg["From"]    = "finance@co.jp"
    msg["To"]      = MGR.get(dept,"")
    msg.attach(MIMEText(html,"html","utf-8"))
    with smtplib.SMTP("smtp.office365.com",587) as s:
        s.starttls(); s.login("finance@co.jp","PW"); s.send_message(msg)
    print(f"メール送信: {dept}")

for dept, grp in df.groupby("部門"):
    over = grp[grp["差異率"]>10].to_dict("records")
    if over: alert_mail(dept, over)

STEP 4：ウォーターフォールチャートで差異を可視化する

財務分析の定番チャートを自動生成して経営会議の資料に使えるようにします。

from openpyxl.chart import BarChart, Reference

ws_c = wb.create_sheet("差異チャート")
ws_c.append(["部門","透明ベース","増加","減少"])

base = 0
for dept, var in zip(df["部門"].unique(), df.groupby("部門")["差異"].sum()):
    if var >= 0: ws_c.append([dept, base, var, 0]); base += var
    else:        ws_c.append([dept, base+var, 0, -var]); base += var
ws_c.append(["合計", 0, max(0,base), max(0,-base)])

chart = BarChart()
chart.type    = "col"
chart.title   = "部門別予算差異（ウォーターフォール）"
chart.grouping = "stacked"
chart.overlap  = 100
data = Reference(ws_c, min_col=2, max_col=4, min_row=1, max_row=ws_c.max_row)
cats = Reference(ws_c, min_col=1, min_row=2, max_row=ws_c.max_row)
chart.add_data(data, titles_from_data=True)
chart.set_categories(cats)
chart.series[0].graphicalProperties.solidFill = "FFFFFF"
chart.series[1].graphicalProperties.solidFill = "4CAF50"
chart.series[2].graphicalProperties.solidFill = "F44336"
chart.width=24; chart.height=14
ws_c.add_chart(chart,"F2")
wb.save("budget.xlsx")
print("ウォーターフォールチャート生成完了")

STEP 5：月末自動実行で月次レポートをゼロ工数に

毎月末日17時に自動実行し、翌朝には経営層のメールにレポートが届いている状態を作ります。

import calendar
from datetime import datetime, date, timedelta

def is_month_end():
    t = date.today()
    last = calendar.monthrange(t.year, t.month)[1]
    if t.day == last: return True
    if t.weekday()==4 and last-t.day<=2: return True  # 月末近くの金曜
    return False

def monthly_job():
    if not is_month_end(): print("月末でないためスキップ"); return
    print(f"月次予算レポート開始: {datetime.now()}")
    df = consolidate("./部門別予算/","budget_temp.xlsx")
    format_report("budget_temp.xlsx","budget_final.xlsx")
    send_cfo_summary("cfo@co.jp","budget_final.xlsx")
    for dept, grp in df.groupby("部門"):
        over = grp[grp["差異率"]>10].to_dict("records")
        if over: alert_mail(dept, over)
    print(f"完了: {datetime.now()}")

monthly_job()
# schtasks /create /tn "月次予算" /tr "python budget_auto.py" /sc DAILY /st 17:00 /f

制作実績サンプル

このクオリティの資料が、あなたの業務でも作れます

Aurant Technologies が実際に制作したコンサルティング資料（全82枚）のサンプルです。Claude Code × AI自動化により、従来の1/5のコスト・時間で同等品質を実現します。

タイトル・ダーク背景

3カラム比較・分析

AI活用フロー図解

Before/After比較

構造化コンテンツ

→

全10枚を
見る

御社のテーマでこのレベルの資料を作成できます

制作費・納期・自動化プランは無料相談でご確認いただけます

📊 サンプル全10枚を見る →