VBAで一覧を複数条件をループし、条件に合った行末にOKと出力したい

Question

前提・実現したいこと

VBAを勉強中なのですが、数日たっても思ったものが作れず質問させてください。
下記のようなファイルがあります。
シート1（スケジュール一覧）
A列：スケジュール名　
B列：周期(日次、月次と記載)
C列：周期の詳細(実行日を記載(営業日と毎月1日などの指定日))　ex第1営業日、毎月1日など

	スケジュール名	周期	詳細	判定
1	Schedule1	月次	第1営業日
2	Schedule2	月次	毎月1日
3	Schedule3	日次	1:00
2	Schedule4	月次	毎月5日
1	Schedule5	月次	第3営業日

シート2（営業日カレンダー）
A列：1年分の日付(mm/dd)
B列：営業日　exdai1営業日など
C列：日付　ex毎月1日など

日付	営業日	日
2020/8/1	休み	毎月1日
2020/8/2	休み	毎月2日
2020/8/3	第1営業日	毎月3日
2020/8/4	第2営業日	毎月4日

例えば8月3日～8月4日という期間で検索を行います。
その期間に該当するスケジュールがあった場合、D列の行にOKと返したいです。
毎時や日次は必然的に該当するため「OK」と返し、月次の場合は日付の意味合いによって
シート2を検索する必要があるのですが条件を作ることができません。

ジョブ一覧の行数は都度変わる想定です。

Answer 1

3日間の成果を示してください。

例えば8月3日～8月4日という期間で検索を行います。該当する場合、D列の行にOKと返したいです。
月次の場合は日付の意味合いによってシート2を検索する必要がある

少し意味がわかりません・・。月次じゃない場合はシート1で完結できるのですか？
表でサンプルをお示しください。

なんとなくですが、mm/ddではなく、yyyy/mm/ddというデータにしないと日付型として
範囲指定が難しいような気がします。

下記はサンプルです。

日付	判定
2020/1/1
2020/1/2
2020/1/3
2020/1/4	●
2020/1/5	●
2020/1/6	●
2020/1/7	●
2020/1/8
2020/1/9
2020/1/10

Sub test()
Dim myday As Date
Dim maxrow As Double

maxrow = Range("A1").End(xlDown).Row

For i = 2 To maxrow 

    myday = Range("A" & i).Value
        
    If DateValue("2020/1/4") <= myday And myday <= DateValue("2020/1/7") Then
    
        Range("B" & i).Value = "●"
    End If

Next

End Sub

Comments

[退会済みユーザー]

表のサンプルを記載しました。
質問も不慣れでお見苦しく申し訳ありません。

検索期間は日のみで時間は見ていないので、月次以外はシート1で判断できる想定です。
なのでシート1のみで月次かそれ以外かの判定はできました。
下記状態から月次の何日目、何営業日を取得するループを追加するのはわかるのですが、どのように書き足せば実現できるのか悩んでいます。

Set ws1 = ThisWorkbook.Worksheets("スケジュール一覧")
Set ws2 = ThisWorkbook.Worksheets("営業日カレンダー）")

i = 2

With ws1
Do Until .Cells(i, 1).Value = ""
If Not .Cells(i, 2).Value = "月次" Then
.Cells(i, 4) = "OK"
End If
i = i + 1
Loop
End With

[mako1972]

削除

[退会済みユーザー]

プログラミング自体経験がないので質問の仕方も不慣れです。
不快にさせたなら申し訳ありませんでした。
回答をくださったこと感謝いたします。

[mako1972]

削除

[mako1972]

質問修正すればするほど、迷走して何を言いたいのかわからいことに気づいていないみたいですね。
月次って毎月あるわけで。シート1（スケジュール一覧）に西暦月くらいないとダメなんでは。

[mako1972]

ご自身は、質問の内容修正して、どうだ的な感じなのでしょうけど・・。

せめてレスつくといいんだけどな・・。

という問題提起だけ（再度：レスありますように）。