• ベストアンサー

マクロでの印刷設定について教えてください。

お世話になります。 エクセルマクロでヘッダ-の値を各対応セル値を置くために下記のようにしてしております。 　ActiveSheet.PageSetup.LeftHeader = Range("A5").Value これを　文字の大きさを　９　色を赤　文字を太字　に装飾したいのですが、どのような形にすれば宜しいかを　お教えください。　丸投げの形で申し訳ございません。

質問者が選んだベストアンサー

  • ベストアンサー
noname#231195
noname#231195
回答No.2

ActiveSheet.PageSetup.LeftHeader = "&B&9&KFF0000" & Range("A5").Value でいかが？

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

回答No.1

人に聞くより「マクロの記録」機能を使った方が早いよ。

samchan
質問者

お礼

ありがとうございました。 御指示の方法で模索したのですが、余分な行数が多く頓挫いたしました。 必要情報のみダブルクォ－テ－ションで括る形を別途頂戴致しましたので解決致しました。 拝

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. Windows
  4. Windows 7

関連するQ&A

  • EXCEL VBA----ヘッダーの設定

    ヘッダーにセルA5の値を表示させたい時は ActiveSheet.PageSetup.LeftHeader = Range("A5") でいいと思うのですが、 複数ページあり、ページ番号のようにページごとに違うヘッダーの値を表示させることはできますでしょうか？ 行ないたいのは、 １ページ目→Ａ５の値 ２ページ目が８行目で始まる場合→Ａ１２の値（ページ先頭行から５行目） ３ページ目が１５行目で始まる場合→Ａ１９の値（ページ先頭行から５行目） ・ ・ ・ 総ページ数は一定ではありません。 よろしくお願いします。

  • エクセルのヘッダーのことで質問です。

    このサイトで学習して、とあるエクセルシートに"A1"セルの内容を そのまま書き込むマクロを造りました。 With ActiveSheet.PageSetup 'セルA1の値をへッター左にセットする LeftHeader = Range("A1") End With ですが、ここに"A1"と"B1"をセットすると言うふうにするには？ あるいは"A1"セルと定数”御中”を一緒にセットさせるにはどのように記述したらよいでしょうか。 よろしくお願いします。

  • エクセル　ヘッダーにセルの値について教えて下さい

    エクセルで見積書を作成しています。 シート１を表紙、シート２を内訳書としています。 シート１のＣ１セルに打ち込んだ物件名をシート２のヘッダーになるよう設定したいのですが、 Private Sub Workbook_BeforePrint(Cancel As Boolean) 　ActiveSheet.PageSetup.leftheader = Range("sheet1!C1").Value End Sub VBEのThisWorkbookに上記を貼付けたところシート２のヘッダーに物件名を表示できましたが、シート１のヘッダーにも出てしまいます。 シート２にのみ表示させる方法ってあるのでしょうか？

  • エクセルのマクロについて

    エクセルの印刷マクロを作りましたが、動作が非常に遅いのです。 スタッフ用と管理者用のマクロを作り、スタッフ用が遅いのです。 余計なものが含まれているのでしょうか？ お願いします。 Sub スタッフ() ' スタッフ Macro 　　ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$55" With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$55" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = True .CenterVertically = True .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 76 .PrintErrors = xlPrintErrorsDisplayed End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$60" With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$60" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = True .CenterVertically = True .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 70 .PrintErrors = xlPrintErrorsDisplayed End With Range("A1").Select End Sub

  • Excel ヘッダーのフォントの編集

    お世話になってます。マクロ初心者です。 A37に文字が入っていて、それをヘッダーにしたいと考えています。 Sub Header() With ActiveSheet.PageSetup .CenterHeader = Range("A37").Value End Sub とすることで、文字を入れることはできました。 後はフォントをHGP創英角ポップ体,ヘビー、フォントサイズを36にしたいのですが、 ネットで探してもセルの番号と組み合わせた例がなくて、うまくいきません。 よろしくお願いします。 ちなみに、A37には=&B35&A36　が入っていて、B35には=TEXT(A35,"[DBNum3]m")、 A35には2012/1/1など日付が入ります。A36には文字で月分予定と入ってます。 初めはヘッダーを直接編集したのですが、うまくいかずマクロでやってます。

  • エクセルのマクロについて

    エクセルのマクロ実行についてですが、 例えば、 E1セルの値が1ならばこうする（マクロ名　E1セル1） E2セルの値が2ならばこうする（マクロ名　E1セル2） E3セルの値が3ならばこうする（マクロ名　E1セル3） というマクロを別々に作りました。 これをボタンで実行する時に、 If Range("E1").Value = 1 Then ElseIf Range("E1").Value = 2 Then 2行目には作ったマクロを全部貼り付けないといけないのでしょうか？ それとも簡単にこの場合は、マクロ名E1セル1を実行するという命令することができるのでしょうか？ できるのであれば、入力方法を教えてください。 質問が分かりにくいと思いますが、よろしくお願いします。

  • エクセルVBA

    エクセル2003です エクセルの印刷レビュ－までのマクロをおしえてください *A列からQ列までで行は1～150で伸縮します 　最終行をA5より下のA列のセルに値が連続で入っている最後が最終印刷範囲行とします *罫線ありです *1ページを30行とします *2ページ目からの先頭行に（A7：Q7）を印刷に入れたい *ヘッダーは右上に日付 *フッダーは右下にページ 現状では罫線で最終行が決まってしまいます 現状コード Sub 印刷() With ActiveSheet.PageSetup .PrintTitleRows = "$7:$7" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = Range("A1:Q1").Resize(Range("A" & Rows.Count).End(xlUp).Row).Address With ActiveSheet.PageSetup .RightHeader = "&""ＭＳ Ｐゴシック,太字 斜体""&14&D" .RightFooter = "&""ＭＳ Ｐゴシック,太字 斜体""&14&P/&N" .PaperSize = xlPaperA4 .Zoom = 75 .PrintErrors = xlPrintErrorsDisplayed End With ActiveWindow.SelectedSheets.PrintPreview End Sub 罫線ではなくA列のセルに文字列等が入っている行を最終行にしたいのですが 教えて頂けないでしょうか？ 出来れば説明付きでよろしくお願いします

  • エクセルのヘッダーを変数で指定したい

    マクロで、エクセルのヘッダー部に日付を表示させたいのですが、当日日付を表示させるのではなく、任意の日付を表示させようと考えています。 ヘッダー部のマクロ With ActiveSheet.PageSetup 　　.RightHeader = "&""ＭＳ 明朝,太字""&12" & w_date & "現在" End With と記述し、実行結果を印刷プレビューで見ると、ページいっぱいに日付が表示されてしまいます。 文字の大きさを指定しない場合の記述 With ActiveSheet.PageSetup 　　.RightHeader = "&""ＭＳ 明朝,太字""" & w_date & "現在" End With これだと、正しく右側に"yyyy/mm/dd現在"と表示されます。 ヘッダー部の右側に文字の大きさを指定した上で、正しく表示させるにはどのように記述すればいいでしょうか？ ご教授、よろしくお願いします。

  • マクロ　色の設定

    特定の文字を入れると選択したセルが塗りつぶされるようにしたく思い、 ネットで検索して、できることはできたのですが、 自分の好きな色に変更する方法が分かりません。 当方、マクロに関しては全くの初心者です。 どこをどのように変えればよいのか教えて下さい。 Private Sub Worksheet_Change(ByVal Target As Range) If Range("B22").Value = "アポ" Then Range("B22:J22").Interior.Color = vbRed Else Range("B22:J22").Interior.ColorIndex = xlColorIndexNone End If End Sub B22のセルに「アポ」と入るとＢ22～J22が赤色に、なるというマクロです。 多分、「vbRed」というのを変えればいいとは分かるのですが、どうしてよいのやら… 自分としては、添付した画像のように、左側の文字によって、隣のセルが ピンク、オレンジ、水色、黄色（自分で作った色かと思います）に なるようにしたいのです。

  • エクセル内で、一度の印刷で２つのセルに差し込み印刷をする方法

    エクセルで差し込み印刷のマクロを組んでいます。現在は下の様に宛名を名簿に書いてある順番に印刷していくマクロですが、これに「住所」のシートを作成し、B4のセルに「住所」の内容も印刷できるようにしたいのです。つまり、一度の印刷で２つのセルに差し込み印刷をしたいのです。そのようなことは可能でしょうか。 Sub 封筒印刷() Dim i As Long i = Sheets("原本").Range("A65536").End(xlUp).Row Sheets("宛名").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$E$14" For i = 1 To i Range("B5").Value = Sheets("原本").Cells(i, 1).Value ActiveSheet.PrintOut Next End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する