Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72058 / 76807

←次へ　｜　前へ→


	【9239】Re:指定した年月の曜日を取得する

INA - 03/11/25(火) 14:24 -


	引用なし

	パスワード

試しに作ってみましたので、参考にして下さい。

Sub Sample()
Dim myYear As Long
Dim myMonth As Long
Dim myDay As Date
Dim i As Long

　　Columns("A").ClearContents
　　
　　myYear = Application.InputBox("年を西暦４桁で入力して下さい。　例) 2003 ", Type:=1)
　　
　　If Len(CStr(myYear)) <> 4 Then
　　　　MsgBox myYear & " : 入力が不正です。", 48
　　　　Exit Sub
　　End If
　　
　　myMonth = Application.InputBox("月を２桁で入力して下さい。　例) 01 ", Type:=1)

　　If Len(CStr(myMonth)) <> 2 Then
　　　　MsgBox myMonth & " : 入力が不正です。", 48
　　　　Exit Sub
　　End If
　　
　　i = 1
　　
　　Do
　　　　myDay = CDate(myYear & "/" & myMonth & "/" & i)
　　　　
　　　　If Format(myDay, "aaa") = "月" Or _
　　　　　 Format(myDay, "aaa") = "水" Or _
　　　　　 Format(myDay, "aaa") = "金" Then
　　　　　　
　　　　　 Range("A65536").End(xlUp).Offset(1).Value = _
　　　　　 Format(myDay, "mm月dd日") & "(" & Format(myDay, "aaa") & ")"
　　　　End If
　　　　
　　　 i = i + 1
　　　 If Day(myDay + 1) = 1 Then Exit Do
　　Loop

　　Range("A1").Value = "日付"
　　Columns("A").AutoFit
　　
End Sub

2 hits

▼

【9237】指定した年月の曜日を取得する サムライ 03/11/25(火) 13:27