Excel VBA質問箱 IV

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

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


51732 / 76732 ←次へ | 前へ→

【29862】Re:sheet_activateでの日付の自動挿入に...
発言  ponpon  - 05/10/15(土) 0:33 -

引用なし
パスワード
   こんばんは。

>sheet3のA1にyyyy年m月
は、シリアル値でしょうか? それなら
なんとかできているようですが、もっとスマートな方法があるかもしれません。

Private Sub Worksheet_Activate()
  Dim myDate As Date
  Dim Cnt As Integer

  myDate = DateValue(Range("A1").Value)
  If Not IsEmpty(Range("A3")) Then
    Range("A3", Range("A65536").End(xlUp)).ClearContents
  End If
  Cnt = DateSerial(Year(myDate), Month(myDate) + 1, 1) - DateSerial(Year(myDate), Month(myDate), 1)
  For i = 1 To Cnt
   Cells(i + 2, 1).Value = Format(DateValue(Month(myDate) & "/" & i), "m月d日")
  Next
End Sub

1 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 回答

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