![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
ヘッダー/フッターと印刷範囲の設定について
教えてください。
「取引情報」シートに下記情報があります。※実際は200行ぐらいの情報です。
No. 取引先名称 日付 製品番号 製品名 備考 金額
1 A株式会社 2009/12/17 GG-GAWA ○○薬品 在庫少ない 29,000
2 B株式会社 2009/11/13 HH-TRAR ○○植物 在庫有 12,000
3 C株式会社 2010/1/13 KK-REAS ○○食材 在庫なし 29,890
[質問事項]
「取引情報」シートの取引先名称ごとに別シートにコピーするマクロをつくります。
コピー先のシートのみにヘッダー/フッターと印刷範囲の設定を行いたいと思います。
※「取引情報」シートはヘッダー/フッターと印刷範囲の設定は不要です。
自動記録を活用して作業していますが、うまくいきません。
参考になるサンプルがあれば、お教えください。
よろしくお願いいたします。
No.3ベストアンサー
- 回答日時:
コピー直後のアクティブシートをワークシート変数にセットしてあげれば良いかもしれません。
省略している部分が多いので参考程度ですが
ワークシートをコピーして
(1)名前変更
(2)ヘッダにシート名
(3)フッターにページ数/そうページ
をしています。
Sub test()
Dim DataSheet As Worksheet
ThisWorkbook.Activate
'一番後ろにシートをコピー
Sheets("元シート").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
Set DataSheet = ActiveSheet
DataSheet.Name = "変更するシート名"
'ページ設定処理
Call test2(DataSheet)
End Sub
Sub test2(DataSheet As Worksheet)
'ページ設定(かなり省略)
With DataSheet.PageSetup
.CenterHeader = "&A"
.CenterFooter = "&P/&N"
End With
End Sub
No.2
- 回答日時:
ページ設定の操作をマクロの自動記録すればよいと思います。
ヘッダーとフッターの設定だけですと
(1)ツール(T)→マクロ→新しいマクロの記憶を選択
(2)ファイル(F)→ページ設定を選択
ページ設定のダイアログが表示
(3)「ヘッダーフッター」タブをクリック
(4)ヘッダーの編集とフッターの編集
で良いかと~
この回答への補足
ご回答ありがとうございます。
自動記録はやりました。その後のマクロの書き方が分らないため困っています。
コピーしたシートに、印刷設定とヘッダー/フッターの設定を行うにはどのように書けばよろしいでしょうか。
No.1
- 回答日時:
どの様にうまくいかないのでしょうか?
でないとサンプル提示しようがありません。
あと
(1)印刷範囲指定は必須ですか?
(2)改ページ等を考慮しますか?(してますか?)
この回答への補足
情報が足りず、大変申し訳ございません。
すでに記載しました4行の表をもとにマクロを書きました。
Sub GetSheetName()
Dim shFi As Worksheet
Dim lnFi As Long
Dim st As String
Set shFi = Worksheets("rist")
For lnFi = 2 To 4
st = shFi.Range("B" & lnFi).Value
Sheets("rist1").Copy After:=Sheets(2) 'rist1のシートをコピー
Sheets("rist1 (2)").Name = st 'rist1のシートの名前を変更
Next
End Sub
Sub Macro2()
'
' Macro2 Macro
'
Range("A1:G9").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$9"
End Sub
Sub Macro2()はマクロ自動記録で記録したものです。
「rist1」を印刷設定して、ヘッダーにシート名、フッターにページ番号を入れました。
「rist」のシートに元データが入っており、
「rist1」のテンプレートをコピーして、シート名を変更していくマクロです。
コピーしたシートに、印刷設定とヘッダー/フッターを設定したいのですが
どのように進めていけば印刷設定できるのか分かりません。
改ページは考えていません。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセル印刷時 一枚の書類に...
-
条件によって印刷するシートを...
-
マクロで印刷→セルの値から部数...
-
エクセルの一部のセルの背景色...
-
Excel 特定のシートを印刷不可...
-
特定のセルに数値が入っている...
-
エクセル VBA 条件つきの印刷
-
EXCEL マクロ 条件の合ったシー...
-
エクセルのマクロで複数シート...
-
エクセルでのヘッダーをページ...
-
エクセルで複数のシートの1枚目...
-
エクセルで同一シート上にA3とA...
-
1ヶ月分の日付を一度に出す方法...
-
特定のシートのみ印刷できない...
-
エクセルで、ヘッダーに他のシ...
-
エクセルの行タイトルを特定の...
-
Excel 特定のシートが印刷出来ない
-
エクセルのページ設定を他のペ...
-
Excelを印刷する際、一番上の行...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセル印刷時 一枚の書類に...
-
エクセルの一部のセルの背景色...
-
マクロで印刷→セルの値から部数...
-
Excel 特定のシートを印刷不可...
-
エクセルで複数のシートの1枚目...
-
エクセルのマクロで複数シート...
-
エクセルでのヘッダーをページ...
-
エクセルで行番号、列アルファ...
-
エクセルの行タイトルを特定の...
-
1ヶ月分の日付を一度に出す方法...
-
祭の祝儀 掲示・集計ソフト
-
特定のセルに数値が入っている...
-
条件によって印刷するシートを...
-
エクセルのシート名を印刷した...
-
エクセルでシートの色がグレー...
-
エクセルで、ヘッダーに他のシ...
-
特定のシートのみ印刷できない...
-
EXCEL マクロ 条件の合ったシー...
-
エクセルの複数シートをNアップ...
おすすめ情報