『日付を入力してあるセルだけを数えたい』（知恵を貸してください）
A1からA10に、日付(年号・日付はすべて違う値)と、
日付を入力したくないセルには　− を書いてあります。
日付を入力したセルの数のみを合計で出したいのですが、=COUNTA(A1:A10)とすると、
−を入力したセルまで数えてしまうので、日付のみが入力されたセルの合計が出せません。
−を消さないとこの場合計算はできませんか？
Excel2002／WindowsXP使用しています。
----
 UDF
 1) Alt + F11
 2) [挿入]-[標準モジュール] コードを貼り付け
 3) Alt + F11

 セルに

 =CountDate(A1:A10)

 Function CountDate(rng As Range) As Long
   dim r As Range
   For Each r In rng
      If IsDate(r) Then CountDate = CountDate + 1
   Next
 End Function
 (seiya)
----
 日付がちゃんと日付の書式で入力されていて
 検索列に日付と −以外は　入力されていないなら
 ＝Count(A1:A10）で日付の個数は求められる
 はずですよ。　日付もシリアル値を持った
 数値ですから。（かめ）
----
 範囲内に空白もなくて、日付か "-" だけが入力されている
 のであれば,
 =SUMPRODUCT((A1:A10<>"-")*1)
 なんかでも、個数は求められますが。
 外してますか？
  (SS)



　

----
回答ありがとうございます。
SSさんの　=SUMPRODUCT((A1:A10<>"-")*1)　で無事にデータが反映されました。

さらに付け加えで恐縮ですが、上の条件で空白セルがある場合、
それも−と同じように読み取らなくすることは可能でしょうか。
質問ばかりですみません。。
----
 かめさん提示のCOUNTで一発だと思うのですが？(ROUGE)
----
すみません。
何かおかしいと思ったら、ずっと　=COUNTA(A1:A10)　の数式を入れておりました(汗)
どおりで何度やってもできないはずですよね。
お目汚し失礼しました。
みなさまありがとうございました。