何件か同じような質問が出ているようなんですが、
どうしても、うまくいかないので質問させていただきます。
日付 科目 名前 借方 貸方 合計
1/1 車両費 ガソリン代 5000 5000
1/1 図書費 本 500 5500
1/2 仕入 食材 6000 22000
1/3 交際費 お礼 3000 25000
1/4 雑費 雑貨 1000 26000
1/6 雑費 雑貨 1000 27000
シート1がこの様になってまして、
シート2~・・・に科目ごと、この様に、抽出したいです。
科目: 車両費
日付 科目 名前 借方 貸方 合計
1/1 車両費 ガソリン代 5000 5000
シート3
科目: 図書費
日付 科目 名前 借方 貸方 合計
1/1 車両費 本 500 500
宜しくお願いいたします。
No.2ベストアンサー
- 回答日時:
すみませんが、ストレートな回答ではありません。
No.1さんの真逆の考えになります。
質問者さんと同じようなこと考えたことありますが、
これだと帳簿を書き足す毎に、マクロで抽出すなくてはならないので、
僕の場合は、同一シート内で、列を増やします。
画像の例だと、色のついた部分に数式が入っていて、ロックしてあります。
F2 =B2&COUNTIF($B$2:B2,B2)
G2 =SUMIF($B$2:B2,B2,$D$2:D2)+SUMIF($B$2:B2,B2,$E$2:E2)
これでExcelの「フィルター」機能を使って、各項目の明細を出します。
それらの印刷などをマクロで行うボタンを作ってもいいかもしれませんが、
年に一度の確定申告に使う程度なら、手動でやればいいことです。
ちなみに、シート1には、現金/預金という選択項目も足して、
現金出納帳兼預金出納長にもできますよ。
F2,G2の要領で、残高を出します。
回答ありがとうございます!
フィルタの抽出ではない方法を探していたので、
助かりました!
同じページというのは、考えてなかったです!
試して見ます!
No.3
- 回答日時:
こんにちは
とりあえず、まんまのマクロです。
シート名と科目の関係がわからなかったので、『科目=シート名』としています。
科目に合致するシート名が存在すればそれを利用し、無い場合は新しく作成します。
Sub Sample()
Dim dic As Object
Dim sh As Worksheet, shd As Worksheet
Dim rw As Long, tmpRw As Long, nam As String
' ↓ 「シート1」に該当するシートを指定すること
Set sh = Worksheets("Sheet1")
Set dic = CreateObject("Scripting.Dictionary")
For rw = 2 To sh.Cells(Rows.Count, 2).End(xlUp).Row
nam = Trim(sh.Cells(rw, 2).Value)
If nam <> "" And nam <> sh.Name Then
If Not dic.exists(nam) Then
On Error Resume Next
Set shd = Worksheets(nam)
If Err.Number = 9 Then
Set shd = Worksheets.Add(After:=Worksheets(Worksheets.Count))
shd.Name = nam
End If
On Error GoTo 0
dic.Add nam, nam
shd.Cells.ClearContents
shd.Rows(1).Value = sh.Rows(1).Value
End If
Set shd = Worksheets(nam)
tmpRw = shd.Cells(Rows.Count, 2).End(xlUp).Row + 1
shd.Rows(tmpRw).Value = sh.Rows(rw).Value
End If
Next rw
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 会計ソフト・業務用ソフト 弥生の青色申告の借方勘定科目と貸方勘定科目について教えてください。 フリーランスで始めたばかりで弥生 1 2022/05/29 17:23
- 財務・会計・経理 仕事で会計ソフトの入力を教えなければいけません。 その方は簿記を勉強したことはなく、以前銀行に勤めら 1 2022/05/21 00:33
- 財務・会計・経理 法人成りについて教えてください 個人事業主から法人になったときの、資産の処理の仕方で教えていただきた 7 2022/09/21 17:32
- 財務・会計・経理 Uberの配達員をやってます、 一日終わったあと帳簿をつけてますが例えば1日が売上9000円で2日が 2 2022/09/16 10:21
- 簿記検定・漢字検定・秘書検定 簿記3級の問題についてです。大問3の精算表の問題なのですが未払い消費税から下の科目を貸借対照表に書く 1 2023/03/02 13:48
- 会計ソフト・業務用ソフト エクセルです 2 2022/09/17 12:14
- 中古車 某有名中古車店で中古車を購入 遠方で見つけたため、車両価格と総合計価格を事前にメールでもらい、後日テ 5 2022/08/09 06:59
- 恋愛・人間関係トーク みなさんに質問です。 私は訳あって異性の気になる後輩から教科書を借りました。 そこで質問なんですが、 1 2022/12/19 00:26
- その他(家計・生活費) 【家計簿】交通費の電車代 給料で一部か全部負担してもらっているときの付け方 2 2022/09/06 23:49
- 確定申告 確定申告の「更生の請求」について 6 2022/10/24 19:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
[オートフィルタ]の適用範囲の...
-
リンク先が空白若しくはゼロの...
-
Excelにて数式を使用して 工数...
-
[オートフィルタ]で抽出された...
-
条件付き書式を教えてください
-
Excel 2019 のピボットテーブル...
-
Excel vbaのテキストボックスの...
-
縦から横へ
-
Excelにてある膨大なデータを管...
-
UNIQUE関数が使えないバージョ...
-
エクセルで相対パスの書き方を...
-
エクセル 上の列Aの黒塗り、下...
-
エクセルの神よ、ご回答を! エ...
-
excelの不要な行の削除ができな...
-
Excelの入力方法について
-
エクセルのソートについて
-
ファイル内にある数字の出現回...
-
VBA バックグラウンドで別ブッ...
-
表の中でフィルターを掛けた時...
-
VBA
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報