A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
#01です。
「あきらめてください」ではあんまりなのでマクロのサンプルを書いてみました。マクロ2~3行目の条件さえ直せばそこそこ動くはずです。印刷用ですから元の台帳となるシートをコピーして加工していますので、元データは変更しません。こんなシートを想定しています
A列=日付、B列=費目、明細、C列=入金、D列=支出、E列=残高
まずは上記のシートを評価用に作ってください。なおE列の金額欄は「途中の行に空白がない」ものとしています。
(この列が空白の行で処理を終わるようにしているため)
以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はワークシート画面に戻ってALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。
Sub Macro3()
Const colK As String = "E" '繰り越し金額の列
Const colM As String = "B" '費目の列
Dim idx As Long
idx = 1
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.Copy after:=ActiveSheet
On Error GoTo err0
Do Until Cells(idx, colK).Value = ""
If Rows(idx + 1).PageBreak <> xlPageBreakNone _
And Cells(idx + 1, colK) <> "" Then
Cells(idx, colK).Resize(2).EntireRow.Insert
Cells(idx, colM).Value = "次葉へ繰り越し"
Cells(idx, colK).Value = Cells(idx - 1, colK).Value
Cells(idx + 1, colM).Value = "前葉から繰り越し"
Cells(idx + 1, colK).Value = Cells(idx - 1, colK).Value
End If
idx = idx + 1
Loop
err0:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
実際のシートで試すならマクロ2行目(残高の列)、3行目(費目の列)は修正してください。
この回答へのお礼
お礼日時:2008/02/27 09:26
ありがとうございました。「あきらめて下さい」で極めて困難であることが分かりました。加えてマクロのサンプルまでご教授いただきありがとうございます。
今日明日と時間がありますので、勉強も兼ねて今からトライしてみます。
お礼申し上げます。
No.1
- 回答日時:
エクセルのワークシート関数では「改ページ」を検出することができませんし、シートに「次葉へ繰越」「前葉から繰越」のための行を挿入することもできません。
従ってどうしてもマクロで処理する必要があります。
でも質問に書かれたないようでマクロを書いても、具体的なシートにあわせてマクロの修正が必要になりますが、junmatsu11さんはVBAはさわれますか?
「マクロはダメ」ならあきらめるしかありません。
マクロをある程度ご存じなら、
If Rows(i).PageBreak <> xlPageBreakNone Then
で改ページを判定できますから、挑戦してみてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 簿記検定・漢字検定・秘書検定 繰越利益剰余金と剰余金について 写真の純資産の科目についての解説図で、 繰越利益剰余金の部分に、(剰 1 2022/07/12 17:10
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
- 法人税 法人税の中小企業特例について 1 2023/06/29 22:31
- Excel(エクセル) 前の(左隣の)シートを連続参照するように、あとから変更したい 1 2023/02/22 00:51
- 投資・株式の税金 株売却損益の複数年繰越について教えていただけませんでしょうか? 株初心者のため表現が乏しい点はお許し 1 2022/12/25 02:55
- 投資・株式の税金 キャピタルゲインに対して課税された税の還付方法について教えて下さい。 2 2022/05/22 22:58
- Excel(エクセル) excelにおける転記マクロの書き方 2 2023/05/12 03:16
- その他(パソコン・スマホ・電化製品) Webページ印刷時にヘッダー・フッターをつけたい 1 2022/04/25 21:35
- その他(お金・保険・資産運用) 予算書 1 2023/04/16 12:52
- フリーソフト Word?で作成された書類をLibreOffieで印刷しようとすると2ページになってしまう??? 3 2023/03/24 15:18
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
一つのTeratermのマクロで複数...
-
メッセージボックスのOKボタ...
-
エクセルで特定の列が0表示の場...
-
ExcelのVBA。public変数の値が...
-
Excel マクロ VBA プロシー...
-
エクセルに張り付けた写真のフ...
-
Excelのマクロボタンをダブルク...
-
エクセルで別のセルにあるふり...
-
TERA TERMを隠す方法
-
#defineの定数を文字列として読...
-
特定文字のある行の前に空白行...
-
VBA アドインについて お詳しい...
-
別シートに順番で貼り付け
-
マクロ実行時、ユーザーフォー...
-
ソース内の行末に\\
-
ピボットテーブルでの毎回可変...
-
Excel マクロでShearePoint先の...
-
エクセルマクロでワードの一ペ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロ実行時、ユーザーフォー...
-
特定文字のある行の前に空白行...
-
エクセルVBA
-
マクロの記録を使用したマクロ...
-
wordを起動した際に特定のペー...
-
ダブルクリックで貼り付けた画...
おすすめ情報