Excel VBA質問箱 IV

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

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


36451 / 76732 ←次へ | 前へ→

【45462】Re:うるう年の判定
発言  かみちゃん  - 06/12/25(月) 16:22 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横から失礼します。

>うるう年をMsgBoxで一気に表示するということです

MsgBox に表示するには、限界があると思いますが、以下のような感じでできます。
アクティブシートのA1を先頭に各年ごとの2月末日の日をB列に表示して、
最後にうるう年の年をMsgBox表示しています。
なお、うるう年かどうかは、各年の3月0日で前月の末日を取得することで判断
しています。

Sub Test()
 Dim yyyy As Integer
 Dim y As Integer
 Dim strYYYY As String
 
 yyyy = Year(Date)
 ReDim vntResult(1 To yyyy - 1900 + 1, 1 To 2)
 
 For y = 1900 To yyyy
  vntResult(y - 1899, 1) = y
  vntResult(y - 1899, 2) = Day(DateSerial(y, 3, 0))
  If Day(DateSerial(y, 3, 0)) = 29 Then
   strYYYY = strYYYY & y & vbCrLf
  End If
 Next
 Range("A1").Resize(y - 1900, 2).Value = vntResult
 MsgBox "うるう年は" & vbCrLf & strYYYY
End Sub
2 hits

【45458】うるう年の判定 URA 06/12/25(月) 16:00 質問
【45459】Re:うるう年の判定 Blue 06/12/25(月) 16:09 質問
【45460】Re:うるう年の判定 URA 06/12/25(月) 16:12 回答
【45461】Re:うるう年の判定 Blue 06/12/25(月) 16:19 回答
【45462】Re:うるう年の判定 かみちゃん 06/12/25(月) 16:22 発言
【45463】Re:うるう年の判定 りん 06/12/25(月) 16:26 回答

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