エクセル ヘッダーに特定の文字を入れるマクロ

質問

エクセルのヘッダーに特定の文字を入れるマクロを作成したところ、
処理時間が長くなりました。
データ容量が3ＭＢを超えるものは、15分くらいかかります。
回避する方法があれば、教えて下さい。

回答No.2

pauNed · ベストアンサー

No.1追記です。
左が"Page.Setup(""&Lテスト"")"
右が"Page.Setup(""&Rテスト"")"
でした。
ちなみにフッターも、となると
"Page.Setup(""&Lテスト"",""&R&P"")"など。

お礼

ありがとうございます。
マクロは、命令文の順番に実行されるとばかり思ってた初心者ですので、入れる場所で命令がされたりされなかったり・・・難しいですね
ヘッダーに文字を入れてあるのは、プログラマーが作ったマクロなのですが、ユーザーの私としては、時間が掛かりすぎて業務に支障が生じ（PEN4）、改善を依頼したのですが、いろんな壁があり、自分でやったほうが早いと・・・
いろいろ試して見ます。

回答No.1

pauNed

こんにちは。
>ヘッダーに特定の文字を入れるマクロ
『だけ』で15分ですか？
ページ設定マクロは時間かかりますが、15分はかかり過ぎのような気もしますね。

Application.ScreenUpdating
Application.EnableEvents
Application.Calculation
の各制御は入れてありますか？

他に、気休めにしかならないかもしれませんが
.DisplayPageBreaks = False
も試してみられるといいかもしれません。

Sub sample1()
With Sheets(1)
.DisplayPageBreaks = False
.PageSetup.LeftHeader = "テスト"
End With
End Sub

あと、アクティブシートに対して処理をする場合、Excel4Macroもあるようです。

Sub sample2()
ExecuteExcel4Macro "Page.Setup(""テスト"")"
End Sub

上記はセンターヘッダーです。（Left,Rightはよくわかりません）

また、プリンタドライバなどが原因で遅くなるケースもあるようですので、
一度調べられてみられたらどうでしょう。