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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキエロってどういう意味です...
-
スペイン語で 私はあなたのこと...
-
比較に表現の Nothing と No ot...
-
A or B の意味
-
don't have~ と have not~...
-
文法の事で・・・
-
any/no 比較級について。何度...
-
There is no〜 There is not an...
-
熟語に関して
-
ローマ字の書き方
-
フランス語のNe vous en faites...
-
I was sorry. ってありですか?
-
TE HECHO DE MENOS って日本語...
-
スペイン語で、「結論から言う...
-
スペイン語の質問です
-
no+名詞+whateverについて
-
Cachito (坊や)の歌詞の意味...
-
洋楽の歌詞についての質問(Gho...
-
意味を教えて下さい
-
スペイン語:二つの文章中の語...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキエロってどういう意味です...
-
PCのウイルスについて
-
te amo とは… te amoってスペイ...
-
スペイン語を翻訳してください...
-
スペイン語 Es que... の文と...
-
Excel VBAにて、SpecialCells(x...
-
ブラジル/ポルトガル語で…
-
スペイン語でわからないところ...
-
EXCEL VBA 配列変数の値すべて...
-
スペイン語のわかる方、教えて...
-
比較に表現の Nothing と No ot...
-
don't have~ と have not~...
-
ローマ字の書き方
-
I was sorry. ってありですか?
-
no+名詞+whateverについて
-
A or B の意味
-
トスティの歌曲「セレナータ」...
-
Cachito (坊や)の歌詞の意味...
-
There is no〜 There is not an...
-
意味を教えて下さい
おすすめ情報