回答編集履歴
2
コード修正
test
CHANGED
|
@@ -18,7 +18,7 @@
|
|
|
18
18
|
|
|
19
19
|
Set outputcell = Application.InputBox("セルを選択してください", Type:=8)
|
|
20
20
|
|
|
21
|
-
If Err.Number > 0 Then
|
|
21
|
+
If Err.Number <> 0 Then
|
|
22
22
|
|
|
23
23
|
MsgBox "キャンセルされました。"
|
|
24
24
|
|
1
コード修正
test
CHANGED
|
@@ -12,13 +12,13 @@
|
|
|
12
12
|
|
|
13
13
|
On Error Resume Next
|
|
14
14
|
|
|
15
|
-
Dim outputcell As
|
|
15
|
+
Dim outputcell As Range
|
|
16
16
|
|
|
17
17
|
'セル取得
|
|
18
18
|
|
|
19
19
|
Set outputcell = Application.InputBox("セルを選択してください", Type:=8)
|
|
20
20
|
|
|
21
|
-
If Err.Number
|
|
21
|
+
If Err.Number > 0 Then
|
|
22
22
|
|
|
23
23
|
MsgBox "キャンセルされました。"
|
|
24
24
|
|