『通帳管理』（もへじ）
作り方をお教えくださいませ。
通帳５冊分の収入と支出をつくりたいのですが宜しくお願い申し上げます。
"きらぼし収入" "きらぼし支出" "横信収入" "横信支出"
"災害時積立収入" "災害時積立支出" "自治会館修繕積立収入"
"自治会館修繕積立支出" "祭り運営支収入" "祭り運営収入
祭運営支出 差し引き残高
これをA3用紙横並びで作成するのにお力添えをお願い申し上げます。
＜ 使用 Excel：Excel2019、使用 OS：Windows11 ＞
質問者の質問まで消されていたので復活 （復活） 2026/09/17(木) 16:47:38
質問者さん、ご自分で詰まっている点を説明していただけないですか？ 「ここまでは出来たんだが、その次のところがわからない」といった説明です。 そうでないと、回答しようとしても焦点が合った回答ができません。 レイアウトなのか、数式なのか、どんな点に詰まっているんでしょう。
失礼ながら、丸投げでなんとか作ってということではないですよね。 そういうのは無しにしましょうよ。 （xyz） 2026/09/17(木) 19:06:55
こういうレイアウトのものをと書いて貰わないと、 あなたの希望に沿わないかもしれない。そんなトライはお互いに無駄じゃないですか？
というより、どんなものを作るかは基本的には質問する人が考えることですよね。 こういう使い方をするんだから、こういう条件は絶対必要とかあるんじゃないですか？ 普通の預金通帳と同じものを5個並べればいいのであれば、 何に悩んでいるのか相手に伝わりません。
ひょっとしてA3というところですか？ お持ちのプリンターではA3は出力できないので、 ExcelでもA3でのレイアウトが試せない、とかですか？ それならそのように書いて貰わないと通じません。 （xyz） 2026/09/17(木) 20:47:20
>（稚出）さんでしたよね。おまけに（人任せ）さんまで消して失礼ですよ。
おっと、ほかの回答者もいたのか。
私の確認不足で（人任せ）さんの回答を復活せずにすまない。 （復活） 2026/09/18(金) 09:47:35
使い方
シートタブを右クリックして、「コードの表示」をクリックしてＶＢＥ画面を表示させる。
画面中央の白いエリアに、提示されたコードを貼り付ける。
コード内のどこかにカーソルを移動してF5キーを押す。
Ctrl+aを押して全選択してからDeleteキーを押す。
右上のｘ印をクリックしてVBE画面を閉じる。
Sub たたき台になったらいいな()
Me.UsedRange.EntireColumn.Delete
Me.Cells.Font.Name = "游ゴシック"
Me.Cells.ColumnWidth = 8.13
' 1. 口座名と年度（1行目）
Me.Range("A1").Value = "きらぼし": Me.Range("G1").Value = "横信"
Me.Range("M1").Value = "災害時積立": Me.Range("S1").Value = "自治会館修繕積立"
Me.Range("Y1").Value = "祭り運営": Me.Range("AE1").Value = "1/1"
Me.Range("AE1").NumberFormatLocal = "yyyy""年度"""
Me.Rows(1).Font.Size = 14: Me.Rows(1).Font.Bold = True: Me.Rows(1).RowHeight = 25
' 2. 項目名（2行目）と"期首", "繰越金", 0（3行目）,残高列非表示,"摘要"のセル設定
For i = 0 To 4
Me.Cells(2, i * 6 + 1).Resize(1, 5).Value = Array("日付", "摘要", "収入", "支出", "残高")
Me.Cells(3, i * 6 + 1).Resize(1, 3).Value = Array("期首", "繰越金", 0)
Me.Cells(3, i * 6 + 3).Resize(2, 3).NumberFormatLocal = "#,##0_ "
Me.Cells(1, i * 6 + 5).EntireColumn.Hidden = True
Me.Cells(1, i * 6 + 1).ColumnWidth = 8.63
Me.Cells(1, i * 6 + 2).ColumnWidth = 16: Me.Cells(1, i * 6 + 2).EntireColumn.ShrinkToFit = True
Next i
' 3. 各口座（5つ）を個別にテーブル化し、残高に数式
For i = 0 To 4
Set rng = Me.Cells(2, i * 6 + 1).Resize(3, 5)
With Me.ListObjects.Add(xlSrcRange, rng, , xlYes)
.ListColumns("残高").DataBodyRange(1).Formula = "=N(OFFSET([@残高],-1,0))+[@収入]-[@支出]"
.TableStyle = "TableStyleLight15" 'テーブル内にカーソル テーブルデザイン→テーブルスタイルで選択
End With
Next i
' 4. 差し引き残高（各残高列の【最終行】を自動集計）2019でのテーブル参照バグ対策で絶対参照
With Me.Range("AE2")
.Value = "差し引き残高"
.Offset(1).Formula = "=E3+K3+Q3+W3+AC3"
.Offset(2).Formula = _
"=LOOKUP(10^15,E:E)+LOOKUP(10^15,K:K)+LOOKUP(10^15,Q:Q)+LOOKUP(10^15,W:W)+LOOKUP(10^15,AC:AC)"
.Offset(1).Resize(2).NumberFormatLocal = "#,##0_ "
With .Worksheet.ListObjects.Add(xlSrcRange, .Resize(3), , xlYes)
.TableStyle = "TableStyleMedium1" '色づけ
.Unlist
End With
End With
' 5. 仕切り列の幅を狭くする
Me.Range("F1,L1,R1、X1,AD1").ColumnWidth = 2
' 6. 印刷設定（A3・横向き・1ページに収める）
With Me.PageSetup
.PaperSize = xlPaperA3
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
' 7. 手入力例
Range("C3").Value = 5000: Range("o3").Value = 500500
Range("A4").Resize(, 4).Value = Array("4/10", "領収書購入", , 110)
Range("A5").Resize(, 3).Value = Array("4/15", "組合費 3000x15,2500x10", 70000)
End Sub
（tek） 2026/09/18(金) 09:49:27
A3用紙横並び というのが何がしたいのか全然わからないので答えようないと思いますが、 ・印刷用紙のサイズをA3横にする方法を聞いているのか ・複数枚にわけてヘッダー付けたいのか ・１枚にまとめたいのか(文字サイズ的には読めなくなる可能性があるが) あたりかな？
A3横の用紙サイズ : 横420mm * 縦297mm MPフォント のサイズ : 0.35mm * 0.35mm *pt (半角は横が半分) 銀行手帳1冊当たりの行数: 10ページ * 15行くらい
1ページに収めるなら 口座名 / 日付 / 収支(+-で表記) の3列にすれば8ptならギリギリ入るかな？
読めなくてもいいなら適当にならべて縮小設定を「シートを１ページで印刷」にすればいいだけですが
（ちくわ） 2026/09/18(金) 14:02:40
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.