Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6393 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 回答[未読]
【45458】うるう年の判定
質問  URA  - 06/12/25(月) 16:00 -
引用なし
パスワード
   かなり定番な質問なのですが、よろしければご質問にお答えください。
OS XP
Excel 2003


1900年から2006年までのうるう年を判定するプログラムを作成する。
うるう年は次のように判定する。西暦が４で割り切れかつ、１００で割り切れない
年、または４００で割り切れる年がうるう年である。

↓まではできたのですが、一気に表示することができなくて困っております。
Dim y As Integer
　 For y = 1900 to 2006
　　If (y mod 400) =0 Then

　　 ElseIf(y mod 100) =0 Then
　　　Else If(y mod 4) =0 Then
　
　　 MsgBox y
　　End If
　 Next

End Sub
【45459】Re:うるう年の判定
質問  Blue  - 06/12/25(月) 16:09 -
引用なし
パスワード
   　 >一気に表示することができなくて
とはどんなことを望んでいるのでしょうか？

1904
1908
・・・・・・
2004


とMsgBoxで表示させたいのでしょうか？
(カナリ縦長(もしくは横長)になってしまうと思いますが。)
【45460】Re:うるう年の判定
回答  URA  - 06/12/25(月) 16:12 -
引用なし
パスワード
   ▼Blue さん：
>　 >一気に表示することができなくて
>とはどんなことを望んでいるのでしょうか？
>
>1904
>1908
>・・・・・・
>2004
>
>
>とMsgBoxで表示させたいのでしょうか？
>(カナリ縦長(もしくは横長)になってしまうと思いますが。)

舌足らずですみませんでした。1900年から2006年までに含まれる
うるう年をMsgBoxで一気に表示するということです（かなり縦長or横長になることはまちがいなさそうですが・・・）

上に書いたプログラムだとひとつづつでしか表示できないんですよね。

Blueさん
早速のレスありがとうございます
【45461】Re:うるう年の判定
回答  Blue  - 06/12/25(月) 16:19 -
引用なし
パスワード
   ループの中で１つずつMsgBox関数を呼ぶとそうなります。
MsgBox関数で表示する文字列をループの中でためてゆき、ループの外で
その文字列をMsgBoxで表示するようにすればよいです。

例)
Dim s As String
Dim i As Long

For i = 1 To 10
　　s = s & vbCrLf & i
Next
MsgBox s

ちなみに、その閏年判定ロジック間違っていませんか？
2000年は閏年ですけど、該当していません。
【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
【45463】Re:うるう年の判定
回答  りん E-MAIL  - 06/12/25(月) 16:26 -
引用なし
パスワード
   URA さん、こんにちわ。

>かなり定番な質問なのですが、よろしければご質問にお答えください。
>OS XP
>Excel 2003

邪道かもしれませんが、うるう年かどうか知りたいだけならこんな感じ。

Sub test()
　 Dim yy As Integer, msg As String
　 For yy = 1900 To 2006
　　　Select Case Day(DateSerial(yy, 3, 1) - 1) '３月１日の前日
　　　　 Case 28
　　　　　　msg = "通常"
　　　　 Case 29
　　　　　　msg = "うるう年"
　　　End Select
　　　MsgBox msg, vbInformation, yy & "年は"
　 Next
End Sub

条件で分岐するならば。
>西暦が４で割り切れかつ、１００で割り切れない年、
>または４００で割り切れる年がうるう年である。
　 tf = False
　 If (YY Mod 4 = 0) Then '４で割れる
　　　'４００で割れるか１００で割れない
　　　If (YY Mod 400 = 0) Or (YY Mod 100 <> 0) Then
　　　　 tf = True
　　　End If
　 End If
　 '
　 If tf = True Then
　　　MsgBox "うるう年"
　 Else
　　　MsgBox "通常"
　 End If

こんな分岐ですかね。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6393 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free