
こんにちは
A列 B列
品番 色
1000 赤
1000 黄
1001 黄
1001 青
1002 青
1002 赤
・
・
・
このような表があります。
これを、
-----------------
品番 色
1000 赤
1000 黄
-----------------
品番 色
1001 黄
1001 青
-----------------
品番 色
1001 黄
1001 青
-----------------
や、
-----------------
品番 色
1001 青
1002 青
-----------------
品番 色
1000 赤
1002 赤
-----------------
品番 色
1000 黄
1001 黄
-----------------
の様に 品番毎や、色毎に改ページしてプリントする方法を教えて下さい。
VBAで設定できるみたいなのですが、VBAは初心者です。
設定方法を教えて頂けないでしょうか。
Excel2007です。
No.1ベストアンサー
- 回答日時:
方法1)
品番が切り替わるごとに,改ページを挿入します。
各印刷頁にタイトル(「品番 色」)を印刷するには,「印刷タイトル行」を設定します。
(印刷頁ごとに「品番 色」行をイチイチ挿入したりはしません)
手順:
ALT+F11を押す
現れたシートで挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける
sub macro1()
dim i as long
activesheet.pagesetup.printtitlerows = "$1:$1"
activesheet.resetallpagebreaks
for i = 2 to range("A65536").end(xlup).row
if cells(i, "A") <> cells(i + 1, "A") then
activesheet.hpagebreaks.add cells(i + 1, "A")
end if
next i
end sub
ファイルメニューから終了してエクセルに戻る
シートを表示し,ALT+F8を押してマクロを実行する。
方法2:マクロを使わない方法
ページ設定ダイアログのシートタブで,1行目を「印刷タイトル行」として設定します
ご利用のエクセルのバージョンが不明ですが,Excel2003以前ではデータメニューから集計,Excel2007以降ではデータタブから小計を開始します。
グループの基準は「品番」列とし,とりあえず「色」の「データの個数」などを集計させることとして,「グループごとに改ページを挿入する」のチェックを入れて集計行を挿入させます。
No.2
- 回答日時:
改ページを設定する個所(行だと思うが)を割り出すコードをベンようすること。
簡単なアルゴリズムであろう。
ソート法が簡単だろう。
その列で番号や色でソートしておく。
すると同じ番号や色は、近隣の行に集る。
問題にしている列で、上から判別していてt
前の行と同じなら次の行をさす。
違う場合には、直前行に改ページ魚入れる。
ーー
改ページのコードはマクロの記録や、Googleで「エクセルVBA 改ページ 挿入」で照会すること。
敢えてコードは書かない。自分で調べること。
VBAの解説書にも例があるだろう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
渋いからし色が作りたいのです...
-
背景が緑・目立つ文字色は?
-
ACCESS クエリで1から順番に番...
-
LEDの色を変える方法ってありま...
-
プロジェクターで映える色(パ...
-
印刷する時の色について
-
ハンコの色
-
エクセル2007になってセルの色...
-
WordやExcelの[フォントの色]...
-
鮮やかな赤を、暗めの赤に染め...
-
トラロープやおもちゃのトンボ...
-
貴方の好きな色は何色ですか?
-
Excel2010で指定のテーマ色に塗...
-
トーンを上げるとは?
-
色のプロに聞きたいベストの色
-
エメラルドグリーンとミントグ...
-
「美」のイメージって何色?
-
excel2007で色パレットに表示さ...
-
オーナメントって何?
-
アクリル絵の具用の筆が割れる ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
渋いからし色が作りたいのです...
-
ACCESS クエリで1から順番に番...
-
背景が緑・目立つ文字色は?
-
鮮やかな赤を、暗めの赤に染め...
-
水色のイメージを持たれやすいです
-
WordやExcelの[フォントの色]...
-
散布図で任意のドット色の変更...
-
LEDの色を変える方法ってありま...
-
エメラルドグリーンとミントグ...
-
綺麗な河川はなぜ緑色に見える...
-
印刷する時の色について
-
★サラダ油等の油を染めたいんで...
-
急にThunderbirdの画面がほぼ白...
-
プロジェクターで映える色(パ...
-
トーンを上げるとは?
-
Excel2010で指定のテーマ色に塗...
-
VB.net
-
ぷよぷよのハチイチがわからない
-
カラーで、赤とクラシックレッ...
-
赤が似合う女性ってどんな感じ?
おすすめ情報