![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.2ベストアンサー
- 回答日時:
概ねこんな感じかと・
(あくまでサンプルなので実データに合わせて変更して下さい)
'データの変わり目で改ページ挿入
'解除するときは、右クリックから「全ての改ページの解除」
Do While Worksheets(SheetName).Cells(rindex, cIndex) <> "" '空白セルでない間
If Worksheets(SheetName).Cells(rindex - 1, cIndex) <> Worksheets(SheetName).Cells(rindex, cIndex) Then '1つ前の行とデータが違ったら
If rindex <> 6 Then '最初の行は除く
Worksheets(SheetName).Range("B" + Trim$(Str$(rindex))).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add ActiveCell '改ページ挿入
' ActiveWindow.SelectedSheets.VPageBreaks.Add ActiveCell
End If
End If
rindex = rindex + 1
Loop
>データのある範囲を選択してその部分を印刷範囲に設定したいのですがVBAでどのようになるでしょうか。
ActiveSheet.PageSetup.PrintArea = Selection.Address
Selection は、現在選択されている範囲
Selection でなくても、適当なRange オブジェクトでよい。
ありがとうございます。ここでまとめてお礼を言わせていただきます。初めて目にする単語が多くてわかるかどうか心配ですがとりあえずこのとおりにやって修正していきたいと思います。
No.1
- 回答日時:
(第1優先)
1ページの最大印刷行数を50行として
50行を超えたかを判定
(第二優先)
担当者コードが変わったか。上から全行順次、担当者コードが前の行といつも比較して、変わったら、その前行まで印刷する。
ただし50行以上進むこともあるので、
ーーー
だから担当者コードが変わったら、現担当コードが始まった行から、50行以上進んだか判定し、超えていたら、50行ずつ印刷し、50行以下の端数行分を最後に印刷する。
そして担当者コード変化の判定を続ける。
ーーー
印刷はRange範囲.PrintOut
を発行する。改ページは行われます。
ーーーーー
上記の、Range範囲の指定は
Range(Cells(開始行、”A”),Cells(変化察知前行、印刷する最右列記号)).PrintOutがお勧め。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBAで複数のシート印刷設定 1 2022/09/07 12:03
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Visual Basic(VBA) 改ページ 2 2023/03/10 21:29
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Visual Basic(VBA) マクロについて教えてください。 3 2023/06/09 17:37
- Word(ワード) ワードの印刷で、 1 2022/09/22 11:12
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) OFFSET関数を使用した印刷範囲の自動変更について 2 2022/06/02 12:11
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excelで特定の文字・記号のところで自動的に改ページしたい
Excel(エクセル)
-
VBAで文字列を数値に変換したい
Excel(エクセル)
-
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
-
4
Excelで特定の文字のところで自動的に改ページしたい
Excel(エクセル)
-
5
VBAでの改ページ位置の変更
Excel(エクセル)
-
6
ファイル名を今日の日付、時刻で保存する
Visual Basic(VBA)
-
7
excelVBA 項目ごとに連番をふりたい
Excel(エクセル)
-
8
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
YMM4 で MOV ファイルが読み込...
-
Excelのグレーの部分を戻したい
-
エクセルの縦の幅だけ拡大したい。
-
ページが増える
-
EXCEL改ページプレビューのペー...
-
改ページの2ページ目の作り方
-
Mac プレビューでクリップボー...
-
エクセル2007で印刷プレビュー ...
-
Excelについて。特定の範囲内で...
-
ファイルメーカーのプレビュー...
-
Excelで縦を拡大、横を縮小する...
-
Thunderbirdで印刷およびページ...
-
エクセル上に貼り付けた画像が...
-
Excelで印刷時に表題が見切れて...
-
Microsoft Access2016 印刷の設...
-
excel2010改ページプレビュー時...
-
【Excel】エクセルの1シートが...
-
EXCELで1行の内容を1枚の紙に印...
-
エクセル 点線が印刷すると実...
-
エクセルでページのど真ん中に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのグレーの部分を戻したい
-
ページが増える
-
エクセルの縦の幅だけ拡大したい。
-
EXCEL改ページプレビューのペー...
-
エクセルでA4 2枚をA3 1枚で印...
-
YMM4 で MOV ファイルが読み込...
-
改ページの2ページ目の作り方
-
印刷範囲がこまぎれになる
-
エクセルで点線を引き、印刷す...
-
エクセルのマクロで印刷プレビ...
-
EXCELで1行の内容を1枚の紙に印...
-
エクセルのA3横一枚のデータをA...
-
Excelで特定の文字・記号のとこ...
-
エクセル上に貼り付けた画像が...
-
エクセルで印刷範囲以外を灰色...
-
Excelで縦を拡大、横を縮小する...
-
Excelの改ページ印刷についての...
-
エクセルでページのど真ん中に...
-
エクセルのセルの枠線の点線に...
-
ExcelVBA 改ページの横破線を消...
おすすめ情報