Excel VBA質問箱 IV

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

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


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

40076 / 76732

←次へ　｜　前へ→


	【41760】Re:日付を曜日で振り分ける

kobasan - 06/8/22(火) 8:31 -


	引用なし

	パスワード

ミスがあったので訂正します。

Sub test()
Dim myday As Date
Dim rng As Range, r As Range, Satrng As Range

　　Set rng = Range("A1", Range("A65536").End(xlUp))
　　For Each r In rng
　　　　myday = DateSerial(Cells(r.Row, "A").Value, _
　　　　　　　　　　　　　 Cells(r.Row, "B").Value, _
　　　　　　　　　　　　　 Cells(r.Row, "C").Value)
　　　　If Weekday(myday) = 7 Then
　　　　　　If Satrng Is Nothing Then
　　　　　　　　Set Satrng = r.Resize(1, 7)
　　　　　　Else
　　　　　　　　Set Satrng = Union(Satrng, r.Resize(1, 7))
　　　　　　End If
　　　　End If
　　Next
　　Satrng.Select
　　MsgBox "土曜日"
End Sub

0 hits

▼

【41744】日付を曜日で振り分ける ととろ 06/8/21(月) 22:30