回答編集履歴
1
エラー処理追加
test
CHANGED
|
@@ -1,7 +1,20 @@
|
|
|
1
1
|
オートフィルター後に表示されているものを条件に追加してみました。
|
|
2
|
+
該当するセルがない場合のエラー処理を追記しました。
|
|
2
3
|
```VBA
|
|
4
|
+
Sub a()
|
|
3
|
-
With Worksheets("sample").Range("B2").CurrentRegion
|
|
5
|
+
With Worksheets("sample").Range("B2").CurrentRegion
|
|
6
|
+
On Error GoTo No1004
|
|
4
|
-
Set targetRange = .Resize(.Rows.Count - 1).Offset(1
|
|
7
|
+
Set targetRange = .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlVisible)
|
|
5
|
-
|
|
8
|
+
On Error GoTo 0
|
|
6
|
-
End With
|
|
9
|
+
End With
|
|
10
|
+
|
|
11
|
+
Exit Sub
|
|
12
|
+
|
|
13
|
+
No1004: '該当するセルがない場合のエラー処理
|
|
14
|
+
If Err.Number = 1004 Then
|
|
15
|
+
Resume Next
|
|
16
|
+
Else
|
|
17
|
+
Err.Raise Err.Number
|
|
18
|
+
End If
|
|
19
|
+
End Sub
|
|
7
20
|
```
|