回答編集履歴

1

誤字の修正

2017/05/10 17:15

投稿

moh1ee
moh1ee

スコア73

test CHANGED
@@ -39,10 +39,6 @@
39
39
  Dim endRow As Long
40
40
 
41
41
  Dim targetRange As Range
42
-
43
-
44
-
45
- Application.ScreenUpdating = False
46
42
 
47
43
 
48
44
 
@@ -178,17 +174,13 @@
178
174
 
179
175
  matchedRange.Interior.Color = RGB(242, 221, 220) '取得した範囲を一括塗りつぶし
180
176
 
181
-
182
-
183
- Application.ScreenUpdating = True
184
-
185
177
 
186
178
 
187
179
  endTime = Time - startTime
188
180
 
189
181
 
190
182
 
191
- MsgBox UBound(domains) - 1 & "個のドメインが一致しました" & vbCrLf & _
183
+ MsgBox UBound(domains) + 1 & "個のドメインが一致しました" & vbCrLf & _
192
184
 
193
185
  matchedRange.Count & "個のセルを塗りつぶしました" & vbCrLf & _
194
186