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

この記事は、あがぺいさんのブログ『ミールキットとExcel家計簿のあがぺいブログ』内で紹介されている「本気の家計簿」を参考に、Excelを使った複式家計簿を事業用に応用する帳簿「Excelの複式事業簿」を作るまでを撰述したものである。

第0章：Excelを使った複式家計簿を事業用に応用する～導入編～
第1章：「本気の家計簿」を事業用にわかりやすい設定へ変更する
第2章：勘定科目と仕訳帳のシートに必要項目を追加する（この記事）
第3章：万能表シートを追加する
第4章：インボイスに対応したバージョンを作る（※coming soon…）

あがぺいさんのブログ『ミールキットとExcel家計簿のあがぺいブログ』で紹介されている「本気の家計簿」を応用して個人事業用の帳簿をつけたい、と思い立ったことから、完全無料で「Excelの複式事業簿」を作っていく今回の連載。

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

「本気の家計簿」の作り方・記帳の仕方はここでは解説しないので、ぜひあがぺいさんのブログ『ミールキットとExcel家計簿のあがぺいブログ』をご参照いただきたい。

あがぺいブログ｜ミールキットとExcel家計簿でラクする30代主夫

仕事や育児に忙しい共働き夫婦に向けて、おすすめのミールキットを提案します。食材宅配サービスを食生活アドバイザーの視点からレビューします。

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

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

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

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

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

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

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

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

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

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

H列：貸借区分
- 後にピポットテーブルで貸借対照表や損益計算書を集計する際に必要な項目。
- =IF(OR(AND(D2="1_資産", F2>0),AND(D2="2_負債", F2>0),AND(D2="4_収益", F2<0),AND(D2="5_費用", F2<0),AND(D2="3_純資産", F2<0)),"借方","貸方")
I列：取引No（ナンバーという意味。仕訳のセットの判定に使う）
- 通常仕訳は左右に記帳するところを縦に記帳しているので、セットをくくる。
J列：絶対金額
- ［金額］は正負で記帳しているので、絶対数でも残しておく。
- =ABS(F2)
K列：借方金額
- 後の集計時に必要。
- =IF(H2="借方", J2, 0)
L列：貸方金額
- 後の集計時に必要。
- =IF(H2="貸方", J2, 0)
M列：借方合計
- 貸借の一致を判定するために必要。
- =SUMIFS(K:K, I:I, I2)
N列：貸方合計
- 貸借の一致を判定するために必要。
- =SUMIFS(L:L, I:I, I2)
O列：一致チェック
- 貸借が一致しているかをここで確認。借方合計と貸方合計が同じなら一致。
- =IF(M2=N2, "OK", "⚠️ 不一致")
P列：相手科目
- 現金出納帳などを利用する際に必要。
- =LET(thisNo, I2,thisAccount, E2,matchRow, FILTER(E:E, (I:I=thisNo)*(E:E<>thisAccount)),IF(COUNTA(matchRow)=1, INDEX(matchRow, 1), TEXTJOIN(" / ", TRUE, matchRow)))
Q列：帳票区分
- 貸借対照表や損益計算書を利用する際に必要。
- =XLOOKUP([@グループ], kamoku[グループ], kamoku[帳票区分], "")