質問編集履歴
1
修正加筆しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -20,9 +20,21 @@
|
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
|
23
|
-
|
|
23
|
+
下記のコードで意図した動作をさせることができなません。
|
|
24
24
|
|
|
25
|
+
|
|
26
|
+
|
|
27
|
+
具体的に
|
|
28
|
+
|
|
25
|
-
|
|
29
|
+
1) ErrMsgに1つでもエラー内容文字列が出力された場合に、エラーを出力したいのに常に出力されます。
|
|
30
|
+
|
|
31
|
+
＊検証してみるとIf UBound(ErAry) > 1 ThenにもかかわらずErAryの個数は常に4が出力されておりこの理由がわかりません。
|
|
32
|
+
|
|
33
|
+
2) エラー内容を出力するためのmsgBoxについても空の文字列が出力されてしまい、例えばError1とError2を識別している場合には
|
|
34
|
+
|
|
35
|
+
"Error(*1)が解消されていませんError(*2)が解消されていません"とMsgBox出力することを意図しているのに、何も出力されません。
|
|
36
|
+
|
|
37
|
+
|
|
26
38
|
|
|
27
39
|
宜しくお願い申し上げます。
|
|
28
40
|
|
|
@@ -72,9 +84,9 @@
|
|
|
72
84
|
|
|
73
85
|
Cancel = true
|
|
74
86
|
|
|
75
|
-
For
|
|
87
|
+
For Each c in ErAry
|
|
76
88
|
|
|
77
|
-
ErrMsg = ErrMsg +
|
|
89
|
+
ErrMsg = ErrMsg + c
|
|
78
90
|
|
|
79
91
|
Next c
|
|
80
92
|
|