質問編集履歴
6
test
CHANGED
|
File without changes
|
test
CHANGED
|
File without changes
|
5
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
|
|
9
9
|
|
|
10
10
|
|
|
11
|
-
### 発生している問題
|
|
11
|
+
### 発生している問題
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
|
4
test
CHANGED
|
File without changes
|
test
CHANGED
|
File without changes
|
3
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
###
|
|
1
|
+
### 実現したいこと
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
@@ -78,7 +78,7 @@
|
|
|
78
78
|
|
|
79
79
|
|
|
80
80
|
|
|
81
|
-
```Cancel
|
|
81
|
+
```Cancel As Boolean
|
|
82
82
|
|
|
83
83
|
If CloseMode = 0 Then
|
|
84
84
|
|
|
@@ -126,7 +126,7 @@
|
|
|
126
126
|
|
|
127
127
|
|
|
128
128
|
|
|
129
|
-
```CloseMode
|
|
129
|
+
```CloseMode As Integer
|
|
130
130
|
|
|
131
131
|
If CloseMode = 0 Then
|
|
132
132
|
|
2
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -86,7 +86,7 @@
|
|
|
86
86
|
|
|
87
87
|
Cancel = False
|
|
88
88
|
|
|
89
|
-
btn = Cancel
|
|
89
|
+
btn = Cancel 'btn：パブリック変数
|
|
90
90
|
|
|
91
91
|
Workbooks(main).Close False 'main：パブリック変数
|
|
92
92
|
|
|
@@ -132,7 +132,7 @@
|
|
|
132
132
|
|
|
133
133
|
If MsgBox("キャンセルしますか？", vbYesNo) = vbYes Then
|
|
134
134
|
|
|
135
|
-
btn = CloseMode
|
|
135
|
+
btn = CloseMode 'btn：パブリック変数
|
|
136
136
|
|
|
137
137
|
Workbooks(main).Close False 'main：パブリック変数
|
|
138
138
|
|
1
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -164,7 +164,7 @@
|
|
|
164
164
|
|
|
165
165
|
標準モジュールがIf文のところで処理を抜けてしまいます。
|
|
166
166
|
|
|
167
|
-
|
|
167
|
+
###### 4)妥協する
|
|
168
168
|
|
|
169
169
|
ちなみにですが、妥協してブックを保存せずに閉じることを諦めれば、
|
|
170
170
|
|