回答編集履歴
3
内容の追加。
test
CHANGED
|
@@ -22,10 +22,6 @@
|
|
|
22
22
|
|
|
23
23
|
```VBA
|
|
24
24
|
|
|
25
|
-
Dim folderPath,filename As String
|
|
26
|
-
|
|
27
|
-
Dim num,LastRow,i,count,x As Long
|
|
28
|
-
|
|
29
25
|
Dim lastMonday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday,thisMonday As date
|
|
30
26
|
|
|
31
27
|
Dim msg_lastMonday, msg_Tuesday,msg_Wednesday,msg_Thursday,msg_Friday,msg_Saturday,msg_Sunday,msg_thisMonday As String
|
2
内容の追加。
test
CHANGED
|
@@ -17,3 +17,23 @@
|
|
|
17
17
|
ここのコメントは何をしていますか？
|
|
18
18
|
|
|
19
19
|
基本的に同じコードならFor文が存在しますので使いましょう。
|
|
20
|
+
|
|
21
|
+
|
|
22
|
+
|
|
23
|
+
```VBA
|
|
24
|
+
|
|
25
|
+
Dim folderPath,filename As String
|
|
26
|
+
|
|
27
|
+
Dim num,LastRow,i,count,x As Long
|
|
28
|
+
|
|
29
|
+
Dim lastMonday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday,thisMonday As date
|
|
30
|
+
|
|
31
|
+
Dim msg_lastMonday, msg_Tuesday,msg_Wednesday,msg_Thursday,msg_Friday,msg_Saturday,msg_Sunday,msg_thisMonday As String
|
|
32
|
+
|
|
33
|
+
Dim sh_act As Worksheet, sh_wrk As Worksheet
|
|
34
|
+
|
|
35
|
+
```
|
|
36
|
+
|
|
37
|
+
ここも配列を使えば、こんなに作る必要はありませんね。
|
|
38
|
+
|
|
39
|
+
[こちら](https://www.sejuku.net/blog/38356)等を参考に配列の勉強をした方がより洗練されたソースコードが書けますよ。
|
1
内容の追加。
test
CHANGED
|
@@ -7,3 +7,13 @@
|
|
|
7
7
|
|
|
8
8
|
|
|
9
9
|
ファイル名に日付が挿入されているなら、VBAには「Date(日付)型」という型が存在するので型に当てはめれば日付を取得することが出来ます。「〇〇曜日はありませんでした。」と表示するのも可能です。
|
|
10
|
+
|
|
11
|
+
|
|
12
|
+
|
|
13
|
+
> 'ファイル内に「先週の月曜日の日付があるか」を検索する。
|
|
14
|
+
|
|
15
|
+
|
|
16
|
+
|
|
17
|
+
ここのコメントは何をしていますか？
|
|
18
|
+
|
|
19
|
+
基本的に同じコードならFor文が存在しますので使いましょう。
|