• ベストアンサー

Excelの文字色でカウントし平均を求める関数

keithinの回答

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.4

>空欄のセルも選択しつつ計算から所外 public function averageblack(byval target as excel.range) as double  dim h as range  dim res as double, N as long  application.volatile  for each h in target   if h <> "" and isnumeric(h) and h.font.color = rgb(0,0,0) then    res = res + h.value    n = n + 1   end if  next  averageblack = res / n end function 使い方は同じですが,文字色「黒」と「自動」のどちらでもよくしました。 ただし条件付き書式はダメです。

imaimaimagin
質問者

お礼

回答ありがとうございます!! keithin さんの方法で無事解決できました! 感謝いたします。

関連するQ&A

  • 黒い文字のみの最大および最小値のカウントについて

    何度も失礼します。 再びVBAについて、質問させていただきます。 エクセル2010を使用しています。 今回は黒文字のみ(文字色1)の数値で最大値と最小値の抽出を したのですが、どのようにしたらよいでしょうか?

  • Excelの関数?で困っています。

    Excelの関数?で困っています。 こんにちは。Excel2007を使用しています。 セルの中にある特定の文字が含まれている場合は、ある文字の後ろの数値を抽出するということはできますか? 例えば、セルA1に『AA-11 $100.00』、A2に『BB $ 95.00』と入力されている場合、『AAという文字が含まれている場合はB1に$マークの後ろの数値を抽出、BBという文字が含まれている場合はC1に$マークの後ろの数値を抽出する』というものを関数などを使用して作ることはできるのでしょうか? もしできるのであれば、ぜひご教示ください。 宜しくお願いします。

  • エクセル:一定以上の数値になると文字色を変える関数

    エクセルの関数で、一定以上の数値は文字色が変わるような関数はありますか。 例えば、10以上だと赤い字で表示したい場合、1-9は黒、でも12は赤文字 で表示するようなイメージです。

  • Excelの文字列関数について

    Excelの文字列関数について こんにちは。Excel2007を使用しています。 先日、こちらで質問させていただいた【QNo.5785641】の続きになるのですが・・・ セルの中にある特定の文字が含まれている場合は、ある文字の後ろの数値を抽出したいという質問で、 例えば、セルA1に『AA-11 $100.00』、A2に『BB $ 95.00』と入力されている場合、『AAという文字が含まれている場合はB1に$マークの後ろの数値を抽出、BBという文字が含まれている場合はC1に$マークの後ろの数値を抽出する』というものを関数を使用して作りたいというものに対し、 =IF(COUNTIF(A1,"*AA*")=1,RIGHT(A1,LEN(A1)-FIND("$",A1)),"") =IF(COUNTIF(A1,"*BB*")=1,RIGHT(A1,LEN(A1)-FIND("$",A1)),"") という回答をいただきましたが、さらに追加で質問です。 例えば、セルA1に『AA-11 $100.00 aabbcc』、A2に『BB $ 95.00 abc』というように、抽出したい数値の後ろにも文字が入力されている場合はどのようにしたらよいのでしょうか? 宜しくお願いします。

  • エクセル関数で文字色

    エクセル2002使用です。 セルA1に文字色(例えば赤)のついた値が入力されています。 セルB1に=A1と入力すると、値は入力されますが、 文字色が黒に変わってしまうのですが・・・ 文字色も含めて移動させる方法を教えてください。 初歩的な質問ですいません。 よろしくお願いします。

  • エクセル関数の書き方、入力方法

    エクセル関数の初心者です。関数の書き方で下記の内容について教えて下さい。 例えば、1行のセルA1~P16の表に入力された数値(1~3桁)で、少ない数値を5個を自動的に抽出し、その平均値を出す関数の書き方が分かりません。 但し、表中に同じ少ない数値が複数有る場合、その複数を含め5個抽出する式としたいのですが、どのような関数とすればよいでしょうか。

  • ExcelのAVERAGE関数で、ゼロを含めない平均値の出し方

    いつも大変お世話になっております。 ExcelにAVERAGE関数がありますが、セル内に予め数式を入れておいて、その結果から平均値を出したい場合、数式の結果が出ているものだけ(つまりゼロでないものだけ)の数で平均値を出したいのですが、何か良い方法はありますか? 具体的には 4月 5月 6月 7月 8月 9月 上期 4  3  2  0  0  0  平均値を算出 上記のような表があり、数字はそれぞれ数式より算出しています。その数値をもとに、「上期」のセルにはAVERAGE関数より平均値を算出したいのですが、6月の時点では、まだ6月までの数値しかなく、7月・8月・9月は計算式だけ入っている状態なので「ゼロ」となります。 6月の時点で、4月~9月の平均値を算出すると(4+3+2+0+0+0)/6をしてしまい、平均値が実際の数値より低くなってしまいます。 そこで、実績のある月だけ(今回は4~6月だけ)の平均値を「上期」セルに出したいのですが、毎回計算式を更新などせず、どのような方法をとればできますか? よろしくお願い致します。

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

    いつもお世話になっております。 エクセルの操作(関数)について質問があります。 A列に日付、B列に数値を記載したデータがあります。 (1)データの抽出日を指定して、その日より○日前までの最大値、最小値 (2)上記と同じ条件で、マイナス平均、プラス平均 の求め方を教えてください。 分かりづらい文章で申し訳ありませんが、よろしくお願いいたします。

  • エクセルで、色のついた文字をカウントする

    エクセル2000を使用しています。 以前にも似たような質問がありましたが 改めて質問させていただきます。 エクセル2000で会社の売上表を作成しており、 その中のデーターの中には商品の状態に より、赤、緑、黒、青と色で区分をわけています。 そのデーターの中で各色で入力されたもの で、空白は除くデータの数を数えたいのです。 VBAでいろいろためしてはみたのですが、なかなかうまくいきません。すみませんが宜しくお願い致します。

  • excel で入力する文字色を 赤にしたい

    お世話になります。 excel2010を使用しています。 入力したときのデフォルトの文字色が黒なのですが、 これを赤にしたいのです。 現在は、毎回、 (1)黒で入力 (2)文字色を赤に変更 を繰り返していますが (1)の段階で赤にしたいのです。 新規に入力するセルを、(1)の段階から赤にできるか? →できるので、あればその方法を 既に入力されているセルの末尾に、文字を追加した場合(1)の段階から 赤にできるか? →できるので、あればその方法を の2点を教えて頂けないでしょうか? ご知識あるかた 何卒よろしくお願い致します。