|
こんにちは。かみちゃん です。
横から失礼します。
>うるう年を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
|
|