５倍速！メールマガジン
このメールマガジンの詳細はこちら
受講生の声
新着の講座投稿
新着の講座コメント
新着のノート投稿
投稿一覧へ新着のノートコメント
表示できる投稿はありません。
サイト運営者紹介
小川 慶一講師/教材/システム開発者紹介
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
レッスン-投稿一覧
受講生さんの投稿
(投稿ID: 4927)
下記コードですと、シート名が追加されます。
[code]
With ActiveSheet
.PageSetup.LeftHeader = "&A"
End With
[code]
下記のように .PageSetup・・・をActiveSheetに繋げたコードですと
実行してもシート名が追加されません（エラーも表示されません）
[code]
With ActiveSheet.PageSetup.LeftHeader = "&A"
End With
[code]
何度か試してみましたが、実行結果が変わります。
どこかコードが間違っていますでしょうか？
officeのバージョンは2019です。
ナオさんのコメント
(コメントID: 6939)
よろしくお願いします。
小川 慶一さんのコメント
(コメントID: 6936)
おはようございます。
Macro5の代わりに、以下なら動作します。
自動記録について解説した章で解説したとおり、with 構文は、以下の構文で、操作対象のオブジェクトを指定するものです。
以下では、[Object] の部分が、 ActiveSheet ですね。これはOK。
以下では、[Object] の部分が、ActiveSheet.PageSetup.LeftHeader = "&A" ですね。これはNG。
(本当はこういうのは構文エラーとして実行時エラーになってほしいものですが...。スルーされてしまってますね)
解説としては、これでどうでしょうか。
受講生さんのコメント
(コメントID: 6940)
ご回答ありがとうございます。
With ActiveSheetに
.PageSetup.LeftHeader を繋げる事ばかりに注意がいってましたが、
With ～ End with はそもそも[Object]を省略するために使う事を忘れていました。
解説ありがとうございます。勉強になりました。
小川 慶一さんのコメント
(コメントID: 6942)
おはようございます。
解決されたようでよかったです。
慣れないうちはいろいろありますね。
ひきつづきよろしくお願いいたします (^^