回答編集履歴
2
コード修正
answer
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
Dim outputcell As Range
|
|
9
9
|
'セル取得
|
|
10
10
|
Set outputcell = Application.InputBox("セルを選択してください", Type:=8)
|
|
11
|
-
If Err.Number > 0 Then
|
|
11
|
+
If Err.Number <> 0 Then
|
|
12
12
|
MsgBox "キャンセルされました。"
|
|
13
13
|
Exit Sub
|
|
14
14
|
End If
|
1
コード修正
answer
CHANGED
|
@@ -5,10 +5,10 @@
|
|
|
5
5
|
```vba
|
|
6
6
|
Public Sub test()
|
|
7
7
|
On Error Resume Next
|
|
8
|
-
Dim outputcell As
|
|
8
|
+
Dim outputcell As Range
|
|
9
9
|
'セル取得
|
|
10
10
|
Set outputcell = Application.InputBox("セルを選択してください", Type:=8)
|
|
11
|
-
If Err.Number
|
|
11
|
+
If Err.Number > 0 Then
|
|
12
12
|
MsgBox "キャンセルされました。"
|
|
13
13
|
Exit Sub
|
|
14
14
|
End If
|