[[20070813141043]]　『「ヘッダー」に「セル内容(+文字)」を反映させるメx（JOIN）　ページの最後に飛ぶ

 『「ヘッダー」に「セル内容(+文字)」を反映させるマクロ』（JOIN）
 いつもありがとうございます。

 できればマクロを使わない方法が良いのですが、機能的に無理(過去ログから)とのことなのでマクロの方法をお教えください。

 A1のセル内容に「●●」を加えた内容をヘッダーに表示させる際の記述はどのようなものでしょうか？
 A1のみは以下の記載で可能なようです。

 Sub Macro1()
      ActiveSheet.PageSetup.LeftHeader = Worksheets("Sheet1").Range("A1").Text
 End Sub

 よろしくお願いします。

sheet1のシートモジュールへ

 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A1" Then Exit Sub
ActiveSheet.PageSetup.LeftHeader = Range("A1").Text & "●●"
End Sub

(kohe^^)

 ありがとうございます。
 モジュールに登録したつもりですが、ツール→マクロ→マクロ　にマクロ名が表示されません。
 何かチンプンカンプンなことを言ってしまっているでしょうか？
 (JOIN）

 JOINさんこんにちは
sheet1のシートタブを右クリック-コードの表示-上記コードをコピペ
sheet1へ戻りA1に何か入力-印刷プレビュー確認
レフトヘッダー変化ありませんか？
(kohe^^)

コメント返信：

[ 一覧(最新更新順) ]

[[20070813141043]] 『「ヘッダー」に「セル内容(+文字)」を反映させるメx（JOIN） ページの最後に飛ぶ

[[20070813141043]]　『「ヘッダー」に「セル内容(+文字)」を反映させるメx（JOIN）　ページの最後に飛ぶ