Excelでコメント付きのセルの数を数える方法は？

ワークシートのコメント数を数えようとしたことがありますか？ この記事では、ワークシート内のコメント付きのセルの数を数えるための簡単なトリックをいくつか紹介します。

Go ToSpecial機能でコメントを含むセルの数を数える

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

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

Go ToSpecial機能でコメントを含むセルの数を数える

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

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

2。 の中に 特別に行く ダイアログボックス、チェックしてください コメント 下のオプション 選択 セクション、スクリーンショットを参照してください：

3. 次に、をクリックします。 OK ボタンをクリックしてこのダイアログを閉じ、コメントを含むアクティブなワークシートのすべてのセルを一度に選択しました。 また、ステータスバーでコメントのカウント数を取得できます。 スクリーンショットを参照してください：

ご注意： コメント付きの空白セルがある場合、空白セルのコメントはカウントされません。

ヒント： 押すこともできます Ctrl + G 開くためのショートカット へ行きます ダイアログをクリックし、 スペシャル 表示するボタン 特別に行く ダイアログ。

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

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

1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

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

VBAコード：コメント付きのセルの数を数える

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

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

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

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

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

1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

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 このコードを実行するためのキーを押すと、セルのコメントをカウントするデータ範囲を選択するように促すプロンプトボックスが表示されます。 スクリーンショットを参照してください：

4. そして、 OK、選択範囲内のセルコメントの数を取得します。

関連記事：

Excelで新しいワークシートまたはワークブックへのすべてのコメントを一覧表示するにはどうすればよいですか？

Excelでコメント内のテキストを見つけて置き換える方法は？

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