回答編集履歴

ContainsErrValueの記述ミスを修正

2018/09/15 14:36

投稿

スコア2166

test CHANGED Viewed

@@ -212,7 +212,7 @@
             If r.Value() = CVErr(errType) Then
-                Let ContainsRefErr = True
+                Let ContainsErrValue = True
                 Exit Function

コード若干修正

2018/09/15 14:36

投稿

スコア2166

test CHANGED Viewed

@@ -206,13 +206,13 @@
-            'Excelの#REFエラーかどうか
+            'errTypeのエラーかどうか
             'エラー値同士の比較じゃないと`型が一致しません。`となる（エラー値の仕様）
             If r.Value() = CVErr(errType) Then
-                ContainsRefErr = True
+                Let ContainsRefErr = True
                 Exit Function