数値に変換されたセルの数をカウントしたい

質問

数値に変換されたセルの数をカウントしたい
Excel2007を使っています
添付図のN3：AR31には数式が入っています
このうち数値に変換されたセルの数をカウントしたいのですが　単にCOUNT関数では全部載せるが該当してしまいます
何か工夫すればできそうに思うのですが　その方法がわかりません
どなたかアドバイスよろしくお願いします

回答No.2

KURUMITO · ベストアンサー

例えばＮ３からＡＲ３１の範囲に数式が入力されていれば=COUNTA(N3:AR31)の式で数式の入力されているセルの数が表示されますね。
=COUNT(N3:AR31)では数値が表示されているセルの数が表示されます。全部のセルの数が表示されるということは０の値も含めて数値として数えられるのでそういう結果になりますね。また式での参照しているセルの値が空白の場合でも０の表示となっているために全部のセルの数となっているのでしょう。各セルに入力している式を例えば参照セルが空のときは空にするなどの式にすることで０と表示されることもなく、その場合には=COUNT(N3:AR31)で全部のセルに数が表示されることもなくなるでしょう。
もしも０と表示されているセルを数値に変換されたセルの数に含めないのでしたら次のような式でカウントできますね。
=COUNTIF(N3:AR31,">0")
０も含めて数値と数えるのでしたら、先にも述べましたように各セルに入力する式で参照セルが空のときは空となるような式に変換することが必要でしょう。

お礼

ありがとうございます
元のセルが空白の場合の処理をウッカリしておりました
おかげさまで一件落着しました

回答No.4

jcctaira

シンプルにEXCELのコマンド（ジャンプ）だけでできるかと思います。

Sub 数値変換件数表示()
　Call MsgBox(Range("N3：AR31").SpecialCells(xlCellTypeFormulas, xlNumbers).Count)
End Sub

お礼

ありがとうございます
ただ　ゴメンナサイ　マクロはわかりません

回答No.3

tom04

こんにちは！
こんな感じで良いのですかね？

Sheet見出し上で右クリック　→　コードの表示　を選択し、白い画面が出ますので
↓のコードをコピー＆ペーストしてマクロを実行してみてください。

Sub test()
Dim c As Range
Dim i As Long
i = 0
For Each c In ActiveSheet.UsedRange
If c.HasFormula And IsNumeric(c) Then
i = i + 1
End If
Next c
MsgBox ("数値に変換されたセル数は、" & i & "個です。")
End Sub

以上、参考になれば良いのですが・・・m(__)m

お礼

ありがとうございます
ただ　ゴメンナサイ　マクロはわかりません

回答No.1

hoiho1010

数値に変換とはどういう意味ですか？
「1」と「１」との区別ではなく　数字と文字の違いというのであれば
VBAで

For Each C In Range("N3:AR31")
If C.Text=<1000（たとえば1000が最大値であったら）Then
cnt=cnt+1
Next

みたいな感じでできますが・・。

お礼

ありがとうございます
表現が不正確でした　結果として数値が表示されているセルと数式のままのセルとを区別してカウントしたかったのです