Excel VBAにて、SpecialCells(xlCellTypeVisible) に関する質問です。
セル ("A1:B7")に表があります。
ab
11
11
22
22
33
33
下記のVBAにて、temp2の値が、1となります。これが分かりません。
当方、欲しいのは、オートフィルタ後の見えている行の数です。
temp1=6は、オートフィルタで、選択されたセルs+ヘッダの計6こということで理解しています。
temp3=2は、列の数として、合っています。
Sub Macro1()
Dim aa As Range
Set aa = Range("A1:B7")
aa.AutoFilter Field:=2, Criteria1:="2"
temp1 = aa.SpecialCells(xlCellTypeVisible).Cells.Count 'temp1=6
temp2 = aa.SpecialCells(xlCellTypeVisible).Rows.Count 'temp2=1
temp3 = aa.SpecialCells(xlCellTypeVisible).Columns.Count 'temp3=2
End Sub
考え方として、間違ってはいないと思うのですが、行の数を求めるには、どのようにすれば良いでしょうか?
No.1ベストアンサー
- 回答日時:
こんにちは。
>temp2 = aa.SpecialCells(xlCellTypeVisible).Rows.Count 'temp2=1
Rows というものは、あくまでも、ひとつまとまりになったものの行の範囲のことですから、飛び飛びになったAreas(Rangeの集合体)の状態では、その先頭のAreaのひとつしか数えません。
a b
2 2
1 1
2 2
2 2
3 3
3 3
だから、この場合は、2になるはずです。
以下の考え方で、見比べてみてください。ひとつは、列に対して、もうひとつは、Area に対してカウントしています。
temp4 = aa.Resize(, 1).SpecialCells(xlCellTypeVisible).Cells.Count
For Each a In aa.SpecialCells(xlCellTypeVisible).Rows.Areas
temp5 = temp5 + a.Rows.Count
Next
Wendy02さん、非常に分かりやすい説明、ありがとうございます。
Rowsの概念をきちんと理解することが大切なのですね。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【至急】Excel 同一人物の情報を一行にまとめる(複数行) 6 2022/05/24 17:58
- Visual Basic(VBA) 前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「 2 2022/12/02 17:37
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2022/04/01 12:11
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキエロってどういう意味です...
-
スペイン語を翻訳してください...
-
スペイン語でわからないところ...
-
比較に表現の Nothing と No ot...
-
There is no〜 There is not an...
-
don't have~ と have not~...
-
no+名詞+whateverについて
-
中1レベル 複数?
-
any/no 比較級について。何度...
-
スペイン語で歯医者はdentista...
-
A or B の意味
-
フランスとイタリア語で お願...
-
英語文法の質問です。 The pric...
-
トスティの歌曲「セレナータ」...
-
仮定法過去で、If it were not ...
-
if it ever was の意味は?
-
意味を教えて下さい
-
noによる否定文と複数形
-
すぐいくよと言われたので、 ca...
-
pon de~ の意味
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキエロってどういう意味です...
-
PCのウイルスについて
-
スペイン語を翻訳してください...
-
ブラジル/ポルトガル語で…
-
スペイン語で 私はあなたのこと...
-
te amo とは… te amoってスペイ...
-
スペイン語でわからないところ...
-
スペイン語が出来る方助けて下...
-
スペイン語に訳していただきた...
-
オランダ語翻訳 ~日本語へ~
-
スペイン語訳してください。
-
このフランス語の和訳を教えて...
-
Ko te whakataetae i waiatahia...
-
ポルトガル語についてです。チ...
-
Je suis venu te dire que je ...
-
コレが何処の国の言葉か分かり...
-
スペイン語がわかる方に教えて...
-
スペイン語のわかる方、教えて...
-
スペイン語教えて下さい
-
スペイン語 Es que... の文と...
おすすめ情報