ChatGPTに青色申告用の複式帳簿を作ってみる③

試算表の作成

あなた: 試算表って何？

ChatGPT: 試算表は、勘定科目ごとの借方・貸方の合計を集計し、残高を確認するための帳簿です。これを使って決算前のズレをチェックできます。

試算表のフォーマット

勘定科目	借方合計	貸方合計	残高
現金	500,000	400,000	100,000
売掛金	200,000	50,000	150,000
買掛金	0	120,000	-120,000

残高の計算

あなた: 残高ってどうやって計算するの？

ChatGPT: 残高は基本的に「借方合計 - 貸方合計」で求めます。

=SUM(C$2:C2) - SUM(D$2:D2)
    

この数式を「E2」に入れて下にコピーすれば、残高を自動計算できます。

残高の色分け（マイナスなら赤、プラスなら青）

あなた: 残高をプラスなら青、マイナスなら赤にしたい！

ChatGPT: 条件付き書式を使えば可能です！

手動設定方法

1. 残高の範囲（例: E2:E100）を選択
2. [ホーム] → [条件付き書式] → [新しいルール] を選択
3. 「数式を使用して書式設定するセルを決定」を選ぶ
4. 以下の数式を入力

=E2<0  '（マイナスの場合、赤色）
=E2>0  '（プラスの場合、青色）
    

VBAで自動設定する方法

Sub ApplyConditionalFormatting()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rng As Range
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    Set rng = ws.Range("E2:E" & lastRow)
    
    ' 既存の条件付き書式をクリア
    rng.FormatConditions.Delete
    
    ' マイナス（赤）ルール追加
    With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="=0")
        .Interior.Color = RGB(255, 0, 0) ' 赤
    End With
    
    ' プラス（青）ルール追加
    With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, Formula1:="=0")
        .Interior.Color = RGB(0, 0, 255) ' 青
    End With
End Sub
    

確定申告を簡単に！

フリーランス＆個人事業主 　確定申告でお金を残す！元国税調査官のウラ技　第11版 [ 大村 大次郎 ] 価格：1,760円（税込、送料無料) (2025/3/2時点) 楽天で購入

次回の予定

あなた: 試算表はできた！次は何をする？

ChatGPT: 次回は、仕訳帳の入力を簡易化する方法を考えます！