エクセルでカウントできる関数

質問

セルに入ってるコメントをカウントしたいのですが
そんな関数ありますか？

回答No.4

Wendy02

以下は、本来、プロシージャの中で使うべきもので、カウントは出来ても、変化に対して、On timeでは、値は切り替わりません。F2 を押して、Enterを入れるなどして、計算イベントを働かせないと値を変わりません。

Alt+F11 でVB エディタの画面を開いて、
挿入－標準モジュール　で、以下を貼り付けます。
'--------------------------------------------
Function CommentCount(Optional wsh As String) As Long
　Application.Volatile
　On Error Resume Next
　If wsh = "" Then
　　Set ws = ActiveSheet
　Else
　　Set ws = Worksheets(wsh)
　End If
　CommentCount = ws.Comments.Count
　On Error GoTo 0
　Set ws = Nothing
End Function

'--------------------------------------------

ワークシートの使用例:
セル上で、
=COMMENTCOUNT()

=COMMENTCOUNT("Sheet2")

'----------------------------------------
マクロ関数は、こんな風でもよいでしょうね。
名前(W)－(任意）

参照範囲(R)

「=GET.CELL(46,!RC1)+NOW()*0」

A1方式は、ダイレクトではダメのようですね。
RC1 == $A1

お礼

ご教授ありがとうございます
難しいですね、もっと簡単に考えてました（汗）

回答No.3

maruru01

こんにちは。maruru01です。

どこかに作業列を用意する方法です。
データがA列として、作業列をZ列とします。
Z列の任意のセルを1つ選択して、
メニューの[挿入]→[名前]→[定義]で、
[名前]：適当な名前（仮に「コメント」とする）
[参照範囲]：「=GET.CELL(46,INDEX($A:$A,ROW()))+NOW()*0」
として、[OK]します。
そうしたら、Z列のセルに

=コメント

と入力してデータ範囲の行全部にコピーします。
（データ範囲がA1:A100なら、Z1:Z100に上記数式を全部入れます。）
これで、どこかに、

=SUM(Z:Z)

とすれば、コメントが付いたセルの個数が表示されます。

作業列はZ列でなくてもよく、邪魔なら非表示にしておいても構いません。
また、データ列がA列以外の場合は、名前定義の[参照範囲]の数式中の、
「INDEX($A:$A,・・・」を任意の列に変えて下さい。
それから、上記の設定をし終えた後にコメントをあらたに挿入したり、削除した場合は、その都度[F9]を押して再計算させて下さい。
再計算しないと変更が反映されません。

作業列を使用したくない場合は、VBAで処理をするしかないと思います。

お礼

ご教授いただきありがとうございます
難しいですね（汗）
苦戦しそうですががんばってみます。

回答No.2

okamura1215

下記URLから
アプリケーション一覧のエクセルの
「エクセル関数基礎の基礎Part.2　
MAX＆MIN＆COUNT＆COUNTA」
これでどうでしょうか？

参考URL：

http://www.aviva.co.jp/azbyclub/pc_kouza_backnumber.htm

補足

ありがとうございます
基礎以外の部分でも役に立つサイトですが、質問内容とはちょっと違うみたいですね。

回答No.1

namazo

例えばa1～a100に数字ないし文字列が入っている件数を数えるなら

=counta(a1:a100)

です。

補足

回答ありがとうございます。
コメントとはセル選択時の右クリックメニュー内にあるコメントのことです。
説明不足でした。