メインコンテンツへスキップ

Excelでのみ表示またはフィルタリングされたセルをすばやくカウントするにはどうすればよいですか?

通常、Excelでは、通常の数式= COUNT(B3:B16)は、すべての非表示セルと非表示セルの数をカウントします。 ただし、このチュートリアルでは、Excelでのみ表示またはフィルタリングされたセルをカウントするのに役立ついくつかの簡単な方法を紹介します。

表示されるドキュメント数1

ユーザー定義関数でのみ可視セルをカウントします

Kutools forExcelでのみ可視細胞をカウントする 良いアイデア3


矢印青い右バブル ユーザー定義関数でのみ可視セルをカウントします

使用 ユーザー定義関数 目に見える細胞だけを数えます。

1。 押す Altキー+ F11 同時にキー、 アプリケーション向け Microsoft Visual Basic ウィンドウが飛び出します。

2。 クリック インセット > モジュール、ポップアウトされたVBAコードの下に貼り付けます モジュール 窓。

VBA:表示されているセルのみをカウントします。

Function COUNTVISIBLE(Rg)
'UpdatebyKutoolsforExcel20151208
    Dim xCount As Long
    Dim xCell As Range
    Application.Volatile
    For Each xCell In Rg
        If (Not xCell.EntireRow.Hidden) And (Not xCell.EntireColumn.Hidden) Then
            xCount = xCount + 1
        End If
    Next
    COUNTVISIBLE = xCount
End Function

3.次に、コードを保存して閉じます モジュール ウィンドウをクリックし、結果を出力するセルを選択して、この数式を入力します = COUNTVISIBLE(B3:B16)、を押して 入力します 結果を得るための鍵。 スクリーンショットを参照してください:

表示されるドキュメント数2
ドキュメント矢印
>表示されるドキュメント数3

矢印青い右バブル Kutools forExcelでのみ可視細胞をカウントする

目に見える細胞のみを数えるには、次を使用することもできます Kutools for Excelさん 数え切れない すばやく解決する機能。

Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 

後の 無料インストール Kutools for Excel、以下のようにしてください:

1.カウント結果を入れるセルを選択し、をクリックします クツール > Kutools関数 > 統計と数学 > 数え切れない。 スクリーンショットを参照してください:

表示されるドキュメント数4

2.次に、 関数の引数 ダイアログで、カウントするフィルタリングされたセルを選択します 参照 テキストボックス、およびあなたはカウント結果がダイアログに表示されていることをプレビューすることができます。 スクリーンショットを参照してください:

表示されるドキュメント数5

3.次に、をクリックします OK カウント結果を選択したセルに配置します。

表示されるドキュメント数6

Kutools for Excel's 機能 カウント/合計/平均可視セルのみ、セルの色によるカウント/合計など、いくつかの便利な数式を含みます。 フォントの色などによるカウント/合計。今すぐ無料トライアルを入手するには!

表示されるドキュメント数6


関連記事:


最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

I would suggest the add in the code if the person doesn't want to select the range, and it is fixe.

Set xCell = Range("F:F") ' range exemplo in the sheet

And (Not xCell.Value = 0)


The entire code will be like:


Function COUNTVISIBLE(Rg)
'UpdatebyKutoolsforExcel20151208
Dim xCount As Long
Dim xCell As Range
Application.Volatile

Set xCell = Range("F:F") ' range exemplo in the sheet




For Each xCell In Rg
If (Not xCell.EntireRow.Hidden) And (Not xCell.EntireColumn.Hidden) And (Not xCell.Value = 0) Then
xCount = xCount + 1
End If
Next
COUNTVISIBLE = xCount



End Function
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations