Excelの複式事業簿～第2章：勘定科目と仕訳帳のシートに必要項目を追加する～

この記事は、Excelを使った複式家計簿を事業用に応用する帳簿「Excelの複式事業簿」を作るまでを撰述したものである。

本記事はWindows版Excel 2021を基に解説しています。
Excel 365やMac版をご利用の場合、一部表示や機能に違いがある場合があります。

この記事は、2026年1月に数式を更新しました。

あがぺい様の「本気の家計簿」を応用して個人事業用の帳簿をつけたい、と思い立ったことから、完全無料で「Excelの複式事業簿」を作っていく今回の連載。

今回の章では事業用に対応した「Excelの複式事業簿」を完成させる前段階として、勘定科目と仕訳帳のシートに、新たに必要な項目を追加していく。

「本気の家計簿」自体の作成手順や入力方法については、著作権への配慮から本記事では扱っていないため、あがぺい様のブログをご参照ください。
本連載記事の内容は、当サイトにて独自に作成・発展させたものであり、事業帳簿としての活用を前提に再構成しているため、内容に関するご質問・お問い合わせは当サイト側にて承っています。
恐れ入りますが、あがぺい様のサイトへの直接のお問い合わせはご遠慮いただけますようお願いいたします。

◆

勘定科目と仕訳帳のシートに必要項目を追加していく
仕訳帳で不要な項目を非表示にしておく

勘定科目と仕訳帳のシートに必要項目を追加していく

今後の月末締めや試算表のときに使いやすくするために、Excelの「勘定科目」や「仕訳帳」のシートに必要な項目を追加していく。

勘定科目シートにB/SとP/Lを判別するための「帳票区分」の列を追加
「仕訳帳シート」に必要項目を追加していく
試しに入力（仕訳）してみて、きちんと反映されるか確認する

◆

①勘定科目シートにB/SとP/Lを判別するための「帳票区分」の列を追加

「本気の家計簿」で作った勘定科目のシート内にある「kamoku」テーブル、そこのE列に「帳票区分」という項目を追加する。

その上で追加した「帳票区分」の列に、資産・負債・純資産には「B/S」を、収益・費用には「P/L」を入力していく。

◆

②「仕訳帳シート」に必要項目を追加していく

後々、試算表や貸借対照表などで使用するために、先に「仕訳帳シート」のテーブルに必要な列項目を追加し、二行目に数式を入力していく。

なお、シート名やテーブル名・列に入力している名称は基本的にあがぺいさんの「本気の家計簿」に準拠しているものの、一部変更している箇所もあるので（科目⇒勘定科目など）、ご自身の入力した名称に合わせて数式の文字などを変更するように。

H列：貸借区分

後にピポットテーブルで貸借対照表や損益計算書を集計する際に必要な項目。

=IF(OR(AND([@グループ]=”1_資産”,[@金額]>0),AND([@グループ]=”2_負債”,[@金額]>0),AND([@グループ]=”4_収益”,[@金額]<0),AND([@グループ]=”5_費用”,[@金額]<0),AND([@グループ]=”3_純資産”,[@金額]<0)),”借方”,”貸方”)

I列：取引No（ナンバーという意味。仕訳のセットの判定に使う）
- 通常仕訳は左右に記帳するところを縦に記帳しているので、セットをくくる。
J列：絶対金額
- ［金額］は正負で記帳しているので、絶対数でも残しておく。
- ```
=ABS([@金額])
```

K列：借方金額

後の集計時に必要。

=IF([@貸借区分]=”借方”,[@絶対金額],0)

L列：貸方金額

後の集計時に必要。

=IF([@貸借区分]=”貸方”,[@絶対金額],0)

M列：借方合計
- 貸借の一致を判定するために必要。
- ```
=SUMIFS(shiwake[借方金額],shiwake[取引No],[@取引No])
```
N列：貸方合計
- 貸借の一致を判定するために必要。
- ```
=SUMIFS(shiwake[貸方金額],shiwake[取引No],[@取引No])
```
O列：一致チェック
- 貸借が一致しているかをここで確認。借方合計と貸方合計が同じなら一致。
- ```
=IF([@借方合計]=[@貸方合計],”OK”,”⚠️ 不一致”)
```

P列：相手科目

補助簿などを利用する際に必要。

=LET(thisNo,[@取引No],thisAccount,[@勘定科目],thisDK,[@貸借区分],m,FILTER(shiwake[勘定科目],(shiwake[取引No]=thisNo)<em>(shiwake[勘定科目]<>thisAccount)</em>(shiwake[貸借区分]<>thisDK)),u,UNIQUE(m),IF(COUNTA(u)=1,INDEX(u,1),TEXTJOIN(” / “,TRUE,u)))