回答編集履歴
2
修正
test
CHANGED
|
@@ -20,21 +20,7 @@
|
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
|
23
|
-
つまり、
|
|
24
|
-
|
|
25
|
-
> outputcell = Application.InputBox("セルを選択してください", , , , , , , 8)
|
|
26
|
-
|
|
27
|
-
|
|
28
|
-
|
|
29
|
-
は、
|
|
30
|
-
|
|
31
|
-
Let outputcell = Application.InputBox("セルを選択してください", , , , , , , 8).Value
|
|
32
|
-
|
|
33
|
-
であろうとエクセルんが省略されている文言を補完して、命令を受け取っています。
|
|
34
|
-
|
|
35
|
-
|
|
36
|
-
|
|
37
|
-
つまり、Set outputcell = Application.InputBox("セルを選択してください", , , , , , , 8)
|
|
23
|
+
つまり、Set outputcell = Application.InputBox("セルを選択してください", , , , , , , 8)
|
|
38
24
|
|
|
39
25
|
こうかかないといけません。
|
|
40
26
|
|
1
修正
test
CHANGED
|
@@ -72,17 +72,15 @@
|
|
|
72
72
|
|
|
73
73
|
|
|
74
74
|
|
|
75
|
-
'outputcell = Application.InputBox("セルを選択してください", , , , , , , 8)
|
|
76
|
-
|
|
77
|
-
|
|
75
|
+
Application.DisplayAlerts = False '空でOKしたときの的外れなメッセージの表示を抑制
|
|
78
|
-
|
|
79
|
-
|
|
80
76
|
|
|
81
77
|
On Error Resume Next
|
|
82
78
|
|
|
83
79
|
Set outputcell = Application.InputBox("セルを選択してください", , , , , , , 8).Cells
|
|
84
80
|
|
|
85
81
|
On Error GoTo 0
|
|
82
|
+
|
|
83
|
+
Application.DisplayAlerts = True
|
|
86
84
|
|
|
87
85
|
|
|
88
86
|
|