Excel VBA質問箱 IV

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

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


7390 / 13645 ツリー ←次へ | 前へ→

【39437】ヘッダー、フッターの「月」表示印刷 may 06/6/23(金) 23:11 質問[未読]
【39438】Re:ヘッダー、フッターの「月」表示印刷 kobasan 06/6/24(土) 0:00 発言[未読]
【39439】Re:ヘッダー、フッターの「月」表示印刷 Kein 06/6/24(土) 0:09 回答[未読]
【39444】Re:ヘッダー、フッターの「月」表示印刷 may 06/6/24(土) 9:16 お礼[未読]

【39437】ヘッダー、フッターの「月」表示印刷
質問  may  - 06/6/23(金) 23:11 -

引用なし
パスワード
   ヘッダー、フッターについては「&D」により本日の日付が印刷できますが、日付ではなく、「月」のみ印刷する方法について、どうぞ教示下さい。

【39438】Re:ヘッダー、フッターの「月」表示印刷
発言  kobasan  - 06/6/24(土) 0:00 -

引用なし
パスワード
   ▼may さん 今晩は。

    .LeftHeader = Format(Date, "m月")

とりあえず、こんなやり方でできます。

>ヘッダー、フッターについては「&D」により本日の日付が印刷できますが、日付ではなく、「月」のみ印刷する方法について、どうぞ教示下さい。

【39439】Re:ヘッダー、フッターの「月」表示印刷
回答  Kein  - 06/6/24(土) 0:09 -

引用なし
パスワード
   Sub MyHeader()
  Dim MyHd As String
 
  MyHd = Month(Date) & "月"
  ActiveSheet.PageSetup.CenterHeader = MyHd
End Sub

ぐらいでどうかな ?
 

【39444】Re:ヘッダー、フッターの「月」表示印刷
お礼  may  - 06/6/24(土) 9:16 -

引用なし
パスワード
   kobasanさん、keinさん。すばやいご教示有難うございました!!

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