Excel VBA質問箱 IV

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

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


51730 / 76732 ←次へ | 前へ→

【29864】Re:sheet_activateでの日付の自動挿入について
回答  awu  - 05/10/15(土) 1:40 -

引用なし
パスワード
   > そこでsheet_activateにてsheet3を開いたときに・・・

Worksheet_Activateイベントのことでいいのですね。

> sheet3のA1にyyyy年m月

一応、セルA1が、日付形式でも文字列でも構わないようにしました。

こんな感じで如何でしょうか。


Private Sub Worksheet_Activate()
Dim N As Integer
Dim AryD(0 To 30, 0)
Dim SetDate As Date
If IsDate(Range("A1").Text & "1日") Then
  SetDate = DateValue(Range("A1").Text & "1日")
  Do While Month(DateValue(Range("A1").Text & "1日")) = Month(SetDate)
    AryD(N, 0) = SetDate
    SetDate = SetDate + 1
    N = N + 1
  Loop
End If
With Range("A3:A33")
  .NumberFormatLocal = "m月d日"
  .Value = AryD
End With
End Sub

0 hits

【29856】sheet_activateでの日付の自動挿入について 溜息吐息 05/10/14(金) 22:12 質問
【29858】Re:sheet_activateでの日付の自動挿入につ... 赤色吐息 05/10/14(金) 23:31 発言
【29862】Re:sheet_activateでの日付の自動挿入に... ponpon 05/10/15(土) 0:33 発言
【29874】Re:sheet_activateでの日付の自動挿入に... PI 05/10/15(土) 11:35 発言
【29875】Re:sheet_activateでの日付の自動挿入に... ponpon 05/10/15(土) 11:56 発言
【29864】Re:sheet_activateでの日付の自動挿入につ... awu 05/10/15(土) 1:40 回答

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