エクセルのCOUNTA関数について

質問

エクセルのCOUNTA関数について
COUNTA関数の　文字列に　取り消し線を入れたセルを、無視するようにしたいです。VBAによる標準モジュールのコードを教えてください。質問番号:3526540に似ています。質問番号:3526540は、SUMの場合でした、COUNTAでのコードを教えてください。

回答No.1

kmetu · ベストアンサー

質問番号:3526540にあるベストアンサーの一部を

If c.Font.Strikethrough = True Then
　　dblSum = dblSum + 1
End If

に変更して

COUNTAでカウントした数から引けばいかがですか。

お礼

Ans1も2も、完璧なアンサーでした。kmetuさんの質問理解力と知識に感謝です。
昼休みにサクッと回答してくれるなんて、すごいです。ありがとうございました。

でも、やっぱり、取消線だと計算が直に出ないので、
この書類作成を依頼した上司に取消線はあきらめてと、言おうと思います。。
また、頼りたいです、お願いします。ありがとうございました。

補足

速くてベストな回答ありがとうございます。
アドバイスのTrueの部分だけを変更し、引いて　できました。解決。

でも、やってみたら新たな問題が。。
質問番号:3526540のベストアンサーのやり方だと、
取消し線を入れても、自動で再計算されないので、
編集状態にしてエンターしないと確定しないことがわかりました。。

これだと、第三者が使えなくて問題です。
自動計算するようにできないでしょうか。教えてください。

回答No.2

kmetu

自動再計算をさせる場合
コードの最初に
Application.Volatile
を入れてください。

ただ、取消し線を入れたときには自動再計算の対象にはならないみたいなので、F9を押して再計算させてください。