[[20020930114312]]　『赤い文字だけを数えたい』（ちうり）　ページの最後に飛ぶ

『赤い文字だけを数えたい』（ちうり）

一列に日付を打ちました。休みの日を赤い文字にしていますがこの赤い文字だけを数えて○○日とあらわせますか？（ちうり）

 残念ながら、Excelの標準関数ではできません。ユーザー関数が必要になります。

 [エクセルの学校（e1k）赤い文字のセルだけ合計したい]を見てください。

 （kazu）

こんばんは

 4.0マクロで行う方法です。

 作業列を使用します、

 たとえば、A列に上記の日付が入力されているとします

 Ｂ列に作業列を設け、Ｂ１を選択して

 挿入→名前→定義で「名前の定義」ボックスが出てくると思います。

 上の名前のところに「赤文字」と入力

 下の参照範囲に =GET.CELL(24,A1)+NOW()*0と入力してＯＫを押す。

  次に、Ｂ１セルに =赤文字 と入力してEnter

 そうするとＢ１セルは数字の３が出ると思います。これが赤色文字に対応する数字です

 そうして必要な範囲まで下にコピーをしてください。

 あとはＢ列の３の数を数えれば数が出ますので

 例えばＣ１セルに =COUNTIF(B1:B10,3)（とりあえず範囲は B1：B10 としました）

 と入力すれば赤文字の入ったセルの数を出せると思います。

 もう一つ、変更した場合はＦ９を押すと再計算されるので行ってください。

 ちょっと面倒です、暇があればやってみてください。

 （尋）

 [尋]さんに質問です。

 CELL関数の第一引数が24というのは『負の数を色であらわす書式が設定され

 ていれば1そうでなければ0』の意味でしょうか？

（kazu）

おはようございます。

 GET.CELL関数のヘルプは2000ではもうないみたいです。

 参考までに、ヘルプの抜粋を以下に貼り付けました。（ネット上で見つけました）

 GET.CELL(検査の種類, 範囲)

 24 セルに含まれる先頭文字の色を示す 1 から 56 までの数値。

    フォントの色が "自動" に設定されているときは 0 が返されます。

 24は検査の種類で、セルの文字列の色情報を取得します

 赤色ならば戻り値が３、青はたしか５だったとおもいます

 その戻り値を作業列に出して後はcountifで数えただけでした。

 4.0マクロはセルのほとんどの情報を取得することができます、と書いていました

 kazu先生、こんな説明でよろしいでしょうか？

 （尋）

 [尋]さんありがとうございます。

 Excel2002ではGET.CELLは使えないようですね。

 Cell関数でセルの色が取り出せないか改めてしらべ直しましたが、

 やはり機能を削られ、セルの色は取り出せないようです。

 （kazu）

こんばんは

 私が前に記載した内容ではセルの赤い文字の個数はカウントできなかったでしょうか？

 当方はエクセル２０００を使用して、事前にレスをする前に確認をして記載した

 つもりでありましたが、いかがでしょうか？

 もしかして２００２では本当になくなったのかな？

 ちなみにセルの色は、

 get.cell関数の第一引数に６３を指定します。

 ほとんど表に出ない関数なので闇から闇へと葬られていくのでしょう

 （尋）

 そうでしたか、Excel2002では =GET.CELL(24,A1)+NOW()*0 を入力した段階で

 『その関数は正しくありません』が表示されます。

 上に書いたExcel2000は削除しました。失礼しました。

 （kazu）

 セルに直接

 =GET.CELL(24,A1)+NOW()*0

 と入力すると2000でも「その関数は正しくありません」とエラーがでます。

 名前定義のダイアログボックスに上記関数を入力し

 定義をしてから、セルにはその名前定義の式を入れると戻り値が出ますが

 私の説明が悪いのでしょうか・・・・

 だめなようであれば指摘していただけるといいのですが・・・・・・

 本当に説明下手ですいません

 （尋）

 申し訳ない、私の早とちりでした、あやまります。

 Lotusの微かな記憶があって、ついセルに直接書いていました。

 Excel2000でもExcel2002でもちゃんと動くのを確認しました。謝々。

 (1)Ｂ１を選択して

 (2)挿入→名前→定義で「名前の定義」ボックスが出てくる。

 (3)上側の[名前(W)]のところに「赤文字」と入力

 (4)下側の[参照範囲(R)]のところに =GET.CELL(24,A1)+NOW()*0と入力してＯＫ。

 (5)Ｂ１セルに =赤文字 と入力してEnter

 上の手順でたしかに赤い文字の時にＢ１に３がでました。

（kazu）

コメント返信：