回答編集履歴
2
追記
answer
CHANGED
|
@@ -40,4 +40,8 @@
|
|
|
40
40
|
c.Offset(, 1).Value = IIf(Dir(ThisWorkbook.Path & "\テスト\" & c.Value & "*"), "有り", "無し")
|
|
41
41
|
Next
|
|
42
42
|
End Sub
|
|
43
|
-
```
|
|
43
|
+
```
|
|
44
|
+
|
|
45
|
+
ステップインで実行し、
|
|
46
|
+
ローカルウィンドウで変数の中身が意図通りになっているか確認しながら、
|
|
47
|
+
デバッグしてみてください。
|
1
誤字脱字修正
answer
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
End If
|
|
25
25
|
buf = Dir()
|
|
26
26
|
Loop
|
|
27
|
-
c.Offset(, 1).Value sFlg
|
|
27
|
+
c.Offset(, 1).Value = sFlg
|
|
28
28
|
Next
|
|
29
29
|
End Sub
|
|
30
30
|
```
|