Excel VBA質問箱 IV

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

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


67721 / 76734 ←次へ | 前へ→

【13565】Re:VBAでの曜日の取得
質問  strm E-MAIL  - 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 質問
【13560】Re:VBAでの曜日の取得 IROC 04/5/7(金) 13:30 回答
【13561】Re:VBAでの曜日の取得 strm 04/5/7(金) 14:23 質問
【13562】Re:VBAでの曜日の取得 Asaki 04/5/7(金) 14:34 回答
【13565】Re:VBAでの曜日の取得 strm 04/5/7(金) 15:00 質問
【13566】Re:VBAでの曜日の取得 Jaka 04/5/7(金) 15:06 発言
【13575】Re:VBAでの曜日の取得 Hirofumi 04/5/7(金) 21:06 回答
【14040】Re:VBAでの曜日の取得 strm 04/5/18(火) 22:32 お礼

67721 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free