回答編集履歴
3
コード修正
test
CHANGED
|
@@ -66,7 +66,7 @@
|
|
|
66
66
|
|
|
67
67
|
MsgBox "リンクは無効です"
|
|
68
68
|
|
|
69
|
-
Exit
|
|
69
|
+
Exit Sub
|
|
70
70
|
|
|
71
71
|
End If
|
|
72
72
|
|
2
コード修正
test
CHANGED
|
@@ -56,11 +56,19 @@
|
|
|
56
56
|
|
|
57
57
|
|
|
58
58
|
|
|
59
|
-
Dim F As
|
|
59
|
+
Dim F As Variant
|
|
60
60
|
|
|
61
61
|
F = "'" & Split(path, BookName)(0) & "[" & BookName & "]" & Mid(.SubAddress, 3)
|
|
62
62
|
|
|
63
63
|
F = Application.ConvertFormula(F, xlA1, xlR1C1, xlAbsolute)
|
|
64
|
+
|
|
65
|
+
If IsError(F) Then
|
|
66
|
+
|
|
67
|
+
MsgBox "リンクは無効です"
|
|
68
|
+
|
|
69
|
+
Exit Function
|
|
70
|
+
|
|
71
|
+
End If
|
|
64
72
|
|
|
65
73
|
|
|
66
74
|
|
1
コード修正 使用していない変数宣言の削除
test
CHANGED
|
@@ -62,7 +62,7 @@
|
|
|
62
62
|
|
|
63
63
|
F = Application.ConvertFormula(F, xlA1, xlR1C1, xlAbsolute)
|
|
64
64
|
|
|
65
|
-
|
|
65
|
+
|
|
66
66
|
|
|
67
67
|
If IsError(ExecuteExcel4Macro(F)) Then
|
|
68
68
|
|