こんにちは
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で質問しましょう!
似たような質問が見つかりました
- Windows 7 エクセルで重複データから抽出したい 2 2022/05/18 23:31
- 高校 数学A組み合わせの考え方 3 2022/04/19 09:05
- 車検・修理・メンテナンス 車の色は、何色の塗装が長持ちするのでしょうか。 白 黒 灰 赤 青 水色 紺 黄 橙 緑 黄緑 紫 9 2023/05/07 08:27
- 日用品・生活雑貨 こういう時計、どこで売っていますか? 3 2022/05/14 16:43
- 交通科学 順列の問題 1 2022/06/18 14:14
- ノンジャンルトーク 氏名に、それぞれの「色」の漢字が入った有名人で、もっとも有名な人って誰だと思いますか? 1 2023/07/18 08:19
- 国産バイク タンクキャップの部品 1 2023/06/25 09:41
- Excel(エクセル) Excel 数式を使用した条件付き書式が、一つのセルにしか反映されない 3 2022/06/08 23:20
- その他(コンピューター・テクノロジー) デジタル化推進でうちの会社では、ペーパーレス化が進んでいます。 そこで、質問です。 会社では、検査課 3 2023/06/11 00:17
- バイク車検・修理・メンテナンス 何度もすみません スペインスズキSMX50の12V化を進めていますが元々付いてたレギュレターを汎用品 2 2022/10/17 08:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WordやExcelの[フォントの色]...
-
渋いからし色が作りたいのです...
-
散布図で任意のドット色の変更...
-
ACCESS クエリで1から順番に番...
-
VB.net
-
印刷する時の色について
-
エメラルドグリーンとミントグ...
-
綺麗な河川はなぜ緑色に見える...
-
赤が似合う女性ってどんな感じ?
-
LEDの色を変える方法ってありま...
-
鮮やかな赤を、暗めの赤に染め...
-
RABのカラーってありますか?
-
背景が緑・目立つ文字色は?
-
トーンを上げるとは?
-
Excel2010で指定のテーマ色に塗...
-
プロジェクターで映える色(パ...
-
CD-Rの裏の色
-
htmlでの色の変化のさせ方。
-
ハンコの色
-
急にThunderbirdの画面がほぼ白...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
渋いからし色が作りたいのです...
-
赤が似合う女性ってどんな感じ?
-
ACCESS クエリで1から順番に番...
-
エメラルドグリーンとミントグ...
-
WordやExcelの[フォントの色]...
-
鮮やかな赤を、暗めの赤に染め...
-
トーンを上げるとは?
-
LEDの色を変える方法ってありま...
-
印刷する時の色について
-
コネクター、ポートの差込口の...
-
綺麗な河川はなぜ緑色に見える...
-
散布図で任意のドット色の変更...
-
VB.net
-
CD-Rの裏の色
-
水色のイメージを持たれやすいです
-
絵の具で作るきつね色。
-
Excel2010で指定のテーマ色に塗...
-
ぷよぷよのハチイチがわからない
-
色の名前がわからない3歳児・・・
-
急にThunderbirdの画面がほぼ白...
おすすめ情報