Excel VBA質問箱 IV

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

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


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

67725 / 76738

←次へ　｜　前へ→


	【13565】Re:VBAでの曜日の取得

strm

- 04/5/7(金) 15:00 -


	引用なし

	パスワード

素人で回りくどい第2月曜日を求めようと思って下記のようなVBA作りました。
毎月1日の曜日を求めてそこから何日目が第二月曜日というようなものにしました。
しかし、1日の曜日がうまく判定できなくて困っています。
もう少しシンプルなのがあるのでしょうか？

Sub dai2getu()
yyyy = Cells(1, 1)

en = 0
Cells(1, 5) = yyyy & "/" & 1 & "/" & 1
ymd = Cells(1, 5)
you = Weekday(ymd, vbSunday)

dai2 = 1

Select Case you

Case 1
Cells(3, 3) = 8 + 1

Case 2
Cells(3, 3) = 7 + 1
Case 3
Cells(3, 3) = 13 + 1
Case 4
Cells(3, 3) = 12 + 1
Case 5
Cells(3, 3) = 13 + 1
Case 6
Cells(3, 3) = 10 + 1
Case 7
Cells(3, 3) = 9 + 1
End Select
Cells(3, 2) = yyyy & "/" & 1 & "/" & Cells(3, 3)
end sub

0 hits

▼

【13558】VBAでの曜日の取得 strm 04/5/7(金) 13:23