回答編集履歴
2
修正
answer
CHANGED
|
@@ -9,9 +9,9 @@
|
|
|
9
9
|
.Range.AutoFilter 1, 1
|
|
10
10
|
i = .Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
|
|
11
11
|
|
|
12
|
-
' On Error
|
|
12
|
+
' On Error resume next
|
|
13
13
|
' i = .DataBodyRange.Columns(1).SpecialCells(xlCellTypeVisible).Count
|
|
14
|
-
' On Error
|
|
14
|
+
' On Error goto 0
|
|
15
15
|
End With
|
|
16
16
|
MsgBox i & "件です。"
|
|
17
17
|
End Sub
|
1
修正
answer
CHANGED
|
@@ -17,11 +17,8 @@
|
|
|
17
17
|
End Sub
|
|
18
18
|
```
|
|
19
19
|
|
|
20
|
-
Rows.Count
|
|
20
|
+
.SpecialCells(xlCellTypeVisible).Rows.Count
|
|
21
21
|
とやると、
|
|
22
22
|
飛び飛びに表示されている1番目のエリアの行数を数えてしまうようです。
|
|
23
23
|
|
|
24
|
-
1列に限定して、セルの数を数えてみてください。
|
|
24
|
+
1列に限定して、セルの数を数えてみてください。
|
|
25
|
-
シート上でテーブルとして設定しているなら、
|
|
26
|
-
DataBodyRangeプロパティで、
|
|
27
|
-
項目行を除いたセル範囲が取得できますので覚えておくと便利かも知れません。
|