No.1ベストアンサー
- 回答日時:
できないようなので、ユーザー定義関数を作ってみました。
しかし、このやり方だと可視セルを一つ一つチェックしていくので
とても時間がかかります。
時間短縮のために
Range("A:A")をRange("A1").CurrentRegion.Resize(, 1)
に変更しています。
Sub test()
Dim myRange As Range
Set myRange = Range("A1").CurrentRegion.Resize(, 1).SpecialCells(xlCellTypeVisible)
' Set myRange = Range("A:A").SpecialCells(xlCellTypeVisible)
Range("C1").Value = myCountIF(myRange, Range("B1").Value)
Set myRange = Nothing
End Sub
Public Function myCountIF(argRng As Range, arg2 As String) As Long
Dim myCell As Range
Application.Volatile
myCountIF = 0
For Each myCell In argRng
If myCell.EntireRow.Hidden = False Then
myCountIF = myCountIF + Application.WorksheetFunction.countif(myCell, arg2)
End If
Next
Set myCell = Nothing
End Function
No.3
- 回答日時:
こんにちは
オートフィルタを適用した状態でコピー→他のシート(自ブックでも他ブックでもOK)にペーストしますと、オートフィルタで抽出されたものだけが貼付きます。
このデータをカウントしてはいかがでしょうか?
No.2
- 回答日時:
オートフィルターで抽出した後でさらに表示されているものの中であるものを数えるということでしょうか?
オートフィルターで表示されているものを数えるにはSUBTOTAL関数で集計方法を3などにすれば表示されている数を知ることができますがそれではよくないのでしょうか?
オートフィルターで抽出したものからさらに抽出をすることの意味がよく理解できません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) VBA 税率を判定表する方法を教えて下さい。 10 2022/03/28 11:21
- Visual Basic(VBA) 前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「 2 2022/12/02 17:37
- Excel(エクセル) エクセルの自動更新のタイミングについて 1 2022/07/20 16:12
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- Excel(エクセル) Excelの空文字判定について 7 2023/01/06 13:25
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
オートフィルタ使用時にCOUNTIFをSUBTOTALのように使いたい。
Excel(エクセル)
-
エクセルでフィルタ後の条件付き個数のカウント
その他(Microsoft Office)
-
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
-
4
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
5
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
6
Offsetで可視セルだけを移動したい。
Excel(エクセル)
-
7
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
8
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
9
複数指定セルの可視セルのみを別シートに転記するVBAについて
Visual Basic(VBA)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
配列に中で一番小さい値を教えてくれる関数ありませんか/アクセス、VBA
PowerPoint(パワーポイント)
-
12
エクセル if文で偽判定のとき、何も起こらないようにしたいのですが・・・
Access(アクセス)
-
13
配列をループでたくさん宣言したいのですが、配列名や変数名を変数で宣言することはできませんか?
Visual Basic(VBA)
-
14
【vba】フォームに書いてあるコードをステップインすることは不可能でしょうか?
Access(アクセス)
-
15
Excelの非表示列も含めてコピー
Excel(エクセル)
-
16
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
17
Excelのフィルター後の一番上のセルをコピーする(マクロ教えて。) Excelで5行目にフィルター
Excel(エクセル)
-
18
vba 時間の引き算 例えば 15:00から16:15の間の時間は1時間15分ですが、vbaのコード
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのオートフィルタで最...
-
エクセルで時刻(8:00~20:00)...
-
エクセルでオートフィルタのボ...
-
エクセルの偶数行(奇数行)の抽出
-
可視セルを対象としたcountifが...
-
access マクロでのフィルタの...
-
【EXCEL】条件に一致した最新デ...
-
Excel共有ブックのオートフィル...
-
エクセル関数で、数字の入った...
-
Excelのオートフィルタで非表示...
-
今日の日付のデータをすばやく...
-
オートフィルタで3つ以上の条...
-
エクセルで隔週をもとめる
-
Excelで文字を入力と自動的にフ...
-
オートフィルタで選択したデー...
-
エクセルで、条件に一致した行...
-
エクセルで作った住所録からの...
-
エクセル フィルタで抽出したデ...
-
excelオートフィルタの検索条件...
-
エクセルのステータスバーにオ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
エクセルでオートフィルタのボ...
-
Excelのオートフィルタで非表示...
-
Excel共有ブックのオートフィル...
-
エクセル・条件付で行を削除す...
-
オートフィルタで3つ以上の条...
-
エクセルの偶数行(奇数行)の抽出
-
エクセルで、条件に一致した行...
-
エクセル関数で、数字の入った...
-
access マクロでのフィルタの...
-
エクセルにて、フィルタをかけ...
-
データの抽出を教えてください
-
なぜShowAllDataだとうまく行か...
-
オートフィルタで選択したデー...
-
Excel 非表示の列を飛ばして合...
-
エクセルのオートフィルタで抽...
-
エクセルで検索窓のようなもの...
-
【EXCEL】条件に一致した最新デ...
-
Excelマクロ:オートフィルタ3...
おすすめ情報