質問編集履歴

3

2021/09/01 04:29

投稿

ikedayuuki
ikedayuuki

スコア24

test CHANGED
File without changes
test CHANGED
File without changes

2

2021/09/01 04:29

投稿

ikedayuuki
ikedayuuki

スコア24

test CHANGED
File without changes
test CHANGED
File without changes

1

2021/09/01 04:29

投稿

ikedayuuki
ikedayuuki

スコア24

test CHANGED
File without changes
test CHANGED
@@ -20,7 +20,13 @@
20
20
 
21
21
  ```VBA
22
22
 
23
+ On Error GoTo ErrHandler
24
+
23
- On Error GoTo ErrHandler Workbooks("book1.xlsm").Close On Error GoTo 0 End Exit Sub ErrHandler: Err.Clear On Error GoTo 0
25
+ Workbooks("book1.xlsm").Close On
26
+
27
+ Error GoTo 0 End Exit Sub
28
+
29
+ ErrHandler: Err.Clear On Error GoTo 0
24
30
 
25
31
  ```
26
32