質問編集履歴

4

表を修正

2020/08/07 01:59

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -14,7 +14,7 @@
14
14
 
15
15
  C列:周期の詳細(実行日を記載(営業日と毎月1日などの指定日)) ex第1営業日、毎月1日など
16
16
 
17
- ||A|B|C|D|
17
+ ||スケジュール名|周期|詳細|判定|
18
18
 
19
19
  |:--:|:--:|:--:|:--:|:--:|
20
20
 

3

シートのサンプル更新

2020/08/07 01:59

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -10,7 +10,7 @@
10
10
 
11
11
  A列:スケジュール名 
12
12
 
13
- B列:周期(毎時、日次、月次と記載)
13
+ B列:周期(日次、月次と記載)
14
14
 
15
15
  C列:周期の詳細(実行日を記載(営業日と毎月1日などの指定日)) ex第1営業日、毎月1日など
16
16
 
@@ -23,6 +23,10 @@
23
23
  |2|Schedule2|月次|毎月1日||
24
24
 
25
25
  |3|Schedule3|日次|1:00||
26
+
27
+ |2|Schedule4|月次|毎月5日||
28
+
29
+ |1|Schedule5|月次|第3営業日||
26
30
 
27
31
 
28
32
 

2

質問内容を修正しました。

2020/08/07 01:42

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -50,7 +50,7 @@
50
50
 
51
51
  例えば8月3日~8月4日という期間で検索を行います。
52
52
 
53
- 該当する場合、D列の行にOKと返したいです。
53
+ その期間に該当するスケジュールがあった場合、D列の行にOKと返したいです。
54
54
 
55
55
  毎時や日次は必然的に該当するため「OK」と返し、月次の場合は日付の意味合いによって
56
56
 

1

シートのサンプルを追記しました。

2020/08/07 01:39

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- VBAで一覧を複数条件から検索し、条件に一致し場合行末にOKと出力したい
1
+ VBAで一覧を複数条件をループし、条件に合った行末にOKと出力したい
test CHANGED
@@ -2,27 +2,49 @@
2
2
 
3
3
 
4
4
 
5
- VBAを勉強中なのですが、3日たっても思ったものが作れず質問させてください。
5
+ VBAを勉強中なのですが、日たっても思ったものが作れず質問させてください。
6
6
 
7
7
  下記のようなファイルがあります。
8
8
 
9
- シート1(ジョブ一覧)
9
+ シート1(スケュール一覧)
10
10
 
11
- A列:ジョブ名 
11
+ A列:スケュール名 
12
12
 
13
13
  B列:周期(毎時、日次、月次と記載)
14
14
 
15
15
  C列:周期の詳細(実行日を記載(営業日と毎月1日などの指定日)) ex第1営業日、毎月1日など
16
16
 
17
+ ||A|B|C|D|
18
+
19
+ |:--:|:--:|:--:|:--:|:--:|
20
+
21
+ |1|Schedule1|月次|第1営業日||
22
+
23
+ |2|Schedule2|月次|毎月1日||
24
+
25
+ |3|Schedule3|日次|1:00||
17
26
 
18
27
 
28
+
19
- シート2(カレンダー)
29
+ シート2(営業日カレンダー)
20
30
 
21
31
  A列:1年分の日付(mm/dd)
22
32
 
23
33
  B列:営業日 exdai1営業日など
24
34
 
25
35
  C列:日付 ex毎月1日など
36
+
37
+ |日付|営業日|日|
38
+
39
+ |:--:|:--:|:--:|
40
+
41
+ |2020/8/1|休み|毎月1日|
42
+
43
+ |2020/8/2|休み|毎月2日|
44
+
45
+ |2020/8/3|第1営業日|毎月3日|
46
+
47
+ |2020/8/4|第2営業日|毎月4日|
26
48
 
27
49
 
28
50