回答編集履歴
1
エラーメッセージ表示処理を追加しました。
answer
CHANGED
@@ -12,5 +12,6 @@
|
|
12
12
|
Err.Clear
|
13
13
|
End If
|
14
14
|
Next
|
15
|
+
MsgBox ErrorMessage
|
15
16
|
End Sub
|
16
17
|
```
|