Excel VBA質問箱 IV

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

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


25975 / 76732 ←次へ | 前へ→

【56094】Re:カレンダの年度(yearプロパティ)
お礼  takao  - 08/6/1(日) 16:06 -

引用なし
パスワード
   "かみちゃん"さん ありがとうございました。解決しました。
月末時は正しく動作しない様なので、下記のようにしました。

Private Sub Calendar1_NewYear()
  Calendar1.Day = IIf(Day(Date) > 15, Day(Date - 1), Day(Date + 1))
  Calendar1.Day = Day(Date)
  和暦.Text = Format(DateSerial(Calendar1.Year, 1, 1), "ggee年")
End Sub

初めての投稿でしたがすぐに回答頂き感謝します。今後共宜しくお願いします。
0 hits

【56072】カレンダの年度(yearプロパティ) takao 08/5/31(土) 19:39 質問
【56073】Re:カレンダの年度(yearプロパティ) かみちゃん 08/5/31(土) 20:01 発言
【56080】Re:カレンダの年度(yearプロパティ) takao 08/6/1(日) 9:22 質問
【56082】Re:カレンダの年度(yearプロパティ) かみちゃん 08/6/1(日) 10:07 発言
【56094】Re:カレンダの年度(yearプロパティ) takao 08/6/1(日) 16:06 お礼

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