回答編集履歴
3
文法の修正
test
CHANGED
@@ -1,14 +1,14 @@
|
|
1
|
-
~~GOTOをForEachの末尾に挿入
|
1
|
+
~~GOTOをForEachの末尾に挿入~~
|
2
2
|
|
3
3
|
|
4
4
|
|
5
|
-
★★★をGoTo XXXに修正~~
|
5
|
+
~~★★★をGoTo XXXに修正~~
|
6
6
|
|
7
7
|
|
8
8
|
|
9
9
|
追記
|
10
10
|
|
11
|
-
|
11
|
+
```vba
|
12
12
|
|
13
13
|
if file.Name = "AAA.txt" Then
|
14
14
|
|
@@ -19,3 +19,5 @@
|
|
19
19
|
'処理A
|
20
20
|
|
21
21
|
end if
|
22
|
+
|
23
|
+
```
|
2
追記
test
CHANGED
@@ -5,6 +5,8 @@
|
|
5
5
|
★★★をGoTo XXXに修正~~
|
6
6
|
|
7
7
|
|
8
|
+
|
9
|
+
追記
|
8
10
|
|
9
11
|
|
10
12
|
|
1
コメントを参考に解決内容を修正
test
CHANGED
@@ -1,5 +1,19 @@
|
|
1
|
-
GOTOをForEachの末尾に挿入
|
1
|
+
~~GOTOをForEachの末尾に挿入
|
2
2
|
|
3
3
|
|
4
4
|
|
5
|
-
★★★をGoTo XXXに修正
|
5
|
+
★★★をGoTo XXXに修正~~
|
6
|
+
|
7
|
+
|
8
|
+
|
9
|
+
|
10
|
+
|
11
|
+
if file.Name = "AAA.txt" Then
|
12
|
+
|
13
|
+
'★★★
|
14
|
+
|
15
|
+
else
|
16
|
+
|
17
|
+
'処理A
|
18
|
+
|
19
|
+
end if
|