ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
お申し込み
x

or

Excelでコメント付きのセル数をカウントするには?

ワークシートのコメント数を数えたことがありますか? この記事では、ワークシート内のコメント付きセルの数を数える簡単なテクニックを紹介します。

Go To Special関数でコメントを含むセルの数をカウントする

ユーザー定義関数でコメントを含むセルの数をカウントする

VBAコードでコメントを含むセルの数をカウントする

あなたがより賢く、早くそしてより良いことをすることを可能にします

Kutools - 最高のオフィス生産性向上ツールは、300の高度な機能をExcelにもたらします。 詳細... ダウンロード...

Officeタブ - ExcelとWordにタブ付きインターフェースをもたらし、作​​業をはるかに簡単にします。 詳細...ダウンロード...


矢印青い右の泡 Go To Special関数でコメントを含むセルの数をカウントする


とともに 特別に行く Excelの機能では、最初にすべてのコメントセルを選択し、ステータスバーでカウント数を表示することができます。

1。 クリックしてください ホーム > 検索と選択 > 特別に行く、スクリーンショットを見る:

doc-count-comments-1

2。 の中に 特別に行く ダイアログボックスで確認してください 注釈 下のオプション 選択します セクション、スクリーンショットを参照してください:

doc-count-comments-1

3. 次に、をクリックします。 OK ボタンをクリックしてこのダイアログを閉じ、コメントを含むアクティブなワークシート内のすべてのセルを一度に選択しました。 コメントの数をステータスバーに表示することができます。 スクリーンショットを見る:

doc-count-comments-1

注意: コメントの入ったセルが空白の場合、空白のセルのコメントはカウントされません。

ヒント: また、 Ctrl + G ショートカットを開く へ行きます ダイアログを開き、をクリックします 特別 表示するボタン 特別に行く ダイアログ。


矢印青い右の泡 ユーザー定義関数でコメントを含むセルの数をカウントする

上記の方法には独自の欠点があります。したがって、空白のセルコメントを含むすべてのセルコメントをカウントするユーザー定義関数を作成できます。

1。 押さえつける Alt + F11 キーを押すと、 Microsoft Visual Basic for Applicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードを モジュールウィンドウ.

VBAコード:コメントのあるセルの数をカウントする

Function CountComments(xCell As Range)
'Update 20140924
    Application.Volatile
    CountComments = xCell.Parent.Comments.Count
End Function

3。 次に、コードを保存して閉じ、ワークシートに戻って、空のセルで次の数式を入力してください: = countcomments(A1)A1 セル参照です。他のセルアドレスに変更できます)、スクリーンショットを参照してください:

doc-count-comments-1

4。 次に、 入力します キーを押すと、セルコメントの数が表示されます。


矢印青い右の泡 VBAコードでコメントを含むセルの数をカウントする

次のVBAコードは、空白のセルコメントを含むすべてのセルコメントをカウントするのにも役立ちます。

1。 押さえつける Alt + F11 キーを押すと、 Microsoft Visual Basic for Applicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードを モジュールウィンドウ.

VBAコード:コメントのあるセルの数をカウントする

Sub CountComments()
'Update 20140924
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
If VBA.Err > 0 Then
    MsgBox 0
Else
    MsgBox WorkRng.Count
End If
End Sub

3。 次に、 F5 キーを押してこのコードを実行すると、セルのコメントを数えたいデータ範囲を選択するよう促すプロンプトボックスが表示されます。 スクリーンショットを見る:

doc-count-comments-1

4. そして、 OK選択したセルコメントの数が表示されます。

doc-count-comments-1


関連記事:

すべてのコメントをExcelの新しいワークシートまたはワークブックに一覧表示する方法

Excelでのコメント内のテキストの検索と置換方法

Excelの複数のセルにすばやくコメントを挿入するにはどうすればよいですか?



Excel生産性向上ツール

Kutools for Excel - 最高のオフィス生産性向上ツール

  • 300の強力な高度な機能をExcelにもたらし、より賢く、より速くそしてより良くすることを可能にします。
  • 数式やVBAコードを暗記する必要はもうありません。これから脳を休ませてください。
  • 3分でExcelのエキスパートになる、複雑で繰り返しのある操作が数秒で可能
  • 毎日何千ものキーボードとマウスの操作を減らし、今や職業病に別れを告げる。
  • 110,000の非常に効果的な人々と300 +世界的に有名な企業の選択。
  • 60-dayフル機能無料トライアル。 60日の返金保証。 2年間の無料アップグレードとサポート。

Officeタブ - Officeにタブ付きインターフェースを提供し、作業をはるかに簡単にします。

  • Word、Excel、PowerPoint、パブリッシャ、アクセス、Visio、およびプロジェクトでタブ付き編集および読み取りを有効にします。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ivan Meneses · 1 years ago
    Buenas tardes, me puede colaborar, que hacer para contar las celdas con comentarios dentro de un rango con Application.Volatile
  • To post as a guest, your comment is unpublished.
    ralph · 3 years ago
    sorry to say.. 9 of 10 times need the short 1 line answer.
    all this fancy dimm rap / buring the item need is just apita