回答編集履歴
2
ContainsErrValueの記述ミスを修正
answer
CHANGED
|
@@ -105,7 +105,7 @@
|
|
|
105
105
|
'errTypeのエラーかどうか
|
|
106
106
|
'エラー値同士の比較じゃないと`型が一致しません。`となる（エラー値の仕様）
|
|
107
107
|
If r.Value() = CVErr(errType) Then
|
|
108
|
-
Let
|
|
108
|
+
Let ContainsErrValue = True
|
|
109
109
|
Exit Function
|
|
110
110
|
End If
|
|
111
111
|
|
1
コード若干修正
answer
CHANGED
|
@@ -102,10 +102,10 @@
|
|
|
102
102
|
|
|
103
103
|
If VBA.IsError(r.Value()) Then
|
|
104
104
|
|
|
105
|
-
'
|
|
105
|
+
'errTypeのエラーかどうか
|
|
106
106
|
'エラー値同士の比較じゃないと`型が一致しません。`となる（エラー値の仕様）
|
|
107
107
|
If r.Value() = CVErr(errType) Then
|
|
108
|
-
ContainsRefErr = True
|
|
108
|
+
Let ContainsRefErr = True
|
|
109
109
|
Exit Function
|
|
110
110
|
End If
|
|
111
111
|
|