Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


54 / 74597 ←次へ | 前へ→

【80187】コードの最適化(取得したセル値をヘッダーに挿入他)
質問  閣下  - 18/10/15(月) 13:06 -

引用なし
パスワード
   はじめまして。

ファイルを閉じる時に
・指定したシートのあるセルの内容を、ヘッダーの左上に入れる
・ブック全体でページ番号/総ページ数を右上に入れる

マクロを作成し、動くことは動くのですがファイルを閉じる際に若干もっさりします。
2つの処理をまとめればもう少し軽くなるのかなと思いつつ弄っていますが、うまくいきません。申し訳ありませんが最適化したコードの例をご教示いただけますでしょうか。

'ファイルclose時に以下の処理をする
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim s As Worksheet
  For Each s In ThisWorkbook.Sheets
    '左上ヘッダーにaaシートB3セルの値を表示
    With s.PageSetup
      .LeftHeader = Worksheets("aa").Range("B3").Value
    End With
  Next

  '右上ヘッダーに"ドキュメント全体でのページNo/総ページ数"を表示
  Dim Cnt As Integer
  Dim n  As Integer
  Cnt = ActiveWorkbook.Worksheets.Count
  
  For n = 1 To Cnt
    With Worksheets(n).PageSetup
      .RightHeader = "(" & n & "/" & Cnt & ")"
      .FirstPageNumber = 1
    End With
  Next n
End Sub

50 hits

【80187】コードの最適化(取得したセル値をヘッダーに挿入他) 閣下 18/10/15(月) 13:06 質問[未読]
【80190】Re:コードの最適化(取得したセル値をヘッダ... マナ 18/10/15(月) 19:01 発言[未読]
【80191】Re:コードの最適化(取得したセル値をヘッダ... 閣下 18/10/15(月) 21:14 質問[未読]
【80192】Re:コードの最適化(取得したセル値をヘッダ... マナ 18/10/15(月) 21:40 発言[未読]
【80193】Re:コードの最適化(取得したセル値をヘッダ... 閣下 18/10/16(火) 9:05 お礼[未読]

54 / 74597 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free