質問編集履歴
1
①```vbaを追加しました。 ②転記ミスによるケアレスミスを修正いたしました。 ③checkRangeValueのfirEach文が不要であったため、削除いたしました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -20,7 +20,7 @@
|
|
|
20
20
|
|
|
21
21
|
### 該当のソースコード
|
|
22
22
|
|
|
23
|
-
|
|
23
|
+
```vba
|
|
24
24
|
|
|
25
25
|
Public Sub DeleteNames()
|
|
26
26
|
|
|
@@ -40,7 +40,7 @@
|
|
|
40
40
|
|
|
41
41
|
For Each nm In ActiveWorkbook.Names
|
|
42
42
|
|
|
43
|
-
If InStr(nm.Value, "#REF") > 0 _
|
|
43
|
+
If InStr(nm.Value, "#REF") > 0 OR _
|
|
44
44
|
|
|
45
45
|
getName(nm.Name) = 1 _
|
|
46
46
|
|
|
@@ -124,25 +124,19 @@
|
|
|
124
124
|
|
|
125
125
|
Dim result As Integer
|
|
126
126
|
|
|
127
|
-
result = 0
|
|
128
|
-
|
|
129
|
-
For Each val In r
|
|
130
|
-
|
|
131
127
|
If InStr(val.Value, "#REF") > 0 _
|
|
132
128
|
|
|
133
129
|
Then
|
|
134
130
|
|
|
135
|
-
res
|
|
131
|
+
result = 1
|
|
136
132
|
|
|
137
133
|
End If
|
|
138
|
-
|
|
139
|
-
Next val
|
|
140
134
|
|
|
141
135
|
CheckRangeValue = result
|
|
142
136
|
|
|
143
137
|
End Function
|
|
144
138
|
|
|
145
|
-
|
|
139
|
+
```
|
|
146
140
|
|
|
147
141
|
|
|
148
142
|
|