![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
ヘッダー/フッターと印刷範囲の設定について
教えてください。
「取引情報」シートに下記情報があります。※実際は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で質問しましょう!
似たような質問が見つかりました
- その他(パソコン・スマホ・電化製品) Webページ印刷時にヘッダー・フッターをつけたい 1 2022/04/25 21:35
- Visual Basic(VBA) マクロについて教えてください。 3 2023/06/09 17:37
- Excel(エクセル) エクセルVBAで複数のシート印刷設定 1 2022/09/07 12:03
- Visual Basic(VBA) マクロについて教えてください 2 2023/06/09 16:01
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- その他(パソコン・スマホ・電化製品) Webページの印刷 1 2023/04/17 14:01
- Excel(エクセル) Excel VBAプルダウンの値を変えながら2枚ずつ印刷する方法? 4 2022/05/27 13:04
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセルで行番号、列アルファ...
-
マクロで印刷→セルの値から部数...
-
エクセルの一部のセルの背景色...
-
エクセルのシート名を印刷した...
-
エクセル印刷時 一枚の書類に...
-
エクセルの複数シートをNアップ...
-
エクセルで複数のシートを同じ...
-
Excel 特定のシートを印刷不可...
-
エクセルシート複数ページ印刷...
-
祭の祝儀 掲示・集計ソフト
-
エクセルの行タイトルを特定の...
-
エクセルでのヘッダーをページ...
-
エクセルVBAで日報自動印刷
-
印刷枚数をセルの数値としたい
-
エクセルで複数のシートの1枚目...
-
EXCELで宛名だけ連続変更...
-
フォームのチエックボックスに...
-
EXCELで複数のシートを同時に印...
-
カラーで一括印刷したいです
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセルの一部のセルの背景色...
-
エクセル印刷時 一枚の書類に...
-
マクロで印刷→セルの値から部数...
-
Excel 特定のシートを印刷不可...
-
エクセルで複数のシートの1枚目...
-
1ヶ月分の日付を一度に出す方法...
-
エクセルのマクロで複数シート...
-
エクセルでのヘッダーをページ...
-
エクセルで行番号、列アルファ...
-
エクセルで複数のシートを同じ...
-
エクセルの行タイトルを特定の...
-
エクセルのシート名を印刷した...
-
条件によって印刷するシートを...
-
特定のセルに数値が入っている...
-
Excelで複数のファイルを1度に...
-
Excel 2シートを1枚に印刷した...
-
【Excel】複数シートがあるエク...
-
カラーで一括印刷したいです
-
特定のシートのみ印刷できない...
おすすめ情報