関数についてです。
例えば、A1からE3まで任意の数字をいれます。その中から検索条件に合った数字の個数を求めたいのですが、その条件に例えば数字を赤字にしたものだけの個数を求めるやり方を教えてほしいのです。

数字の書式設定は標準または数値です。その検索条件には、例えば“2”なら
2の黒字が何個、赤字が何個というような感じに検索したいんです。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

#212717とはちょっと違う質問のようですね。



>関数についてです
とあるので、ユーザー定義関数を作ってみました。
  =colorCellCount(A1:E3,2,3) のように使います。

引数は、『検索範囲、検索する値、検索する色』の順です。
上ではA1:E3の赤色(赤はコード=3)の値2の個数を数えます。
黒は『1』を指定します。初期値で黒になっているセルも黒としてカウントします。
  =colorCellCount(A1:E3,2,1) 2の黒のカウント
  =colorCellCount(A1:E3,2,3) 2の赤のカウント になります。
値を返れば再計算をしますが、色を変えただけの場合は再計算して下さい。
当然、他の色も使えます。色を変える操作をマクロ記録してみれば、色と数値の対応も分かるでしょう。
ご参考に。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、
挿入→標準モジュールで標準モジュールを挿入し、そこに下のマクロを貼り付けます。

↓ここから
Public Function colorCellCount(schRg As Range, schV As Double, colIdx As Variant)
  Dim cot As Double '検索に合致した個数
  Dim rg As Range 'セル

  Application.Volatile '自動再計算関数にする

  For Each rg In schRg
    '値の一致を調べる
    If rg.Value = schV Then
      '色の一致を調べる(フォントの色)
      If rg.Font.ColorIndex = colIdx Then
        cot = cot + 1
      End If
      '黒(colIdx=1)を指定している場合は『自動指定』の個数も加える
      If colIdx = 1 Then
        If rg.Font.ColorIndex = xlColorIndexAutomatic Then
          cot = cot + 1
        End If
      End If
    End If
  Next
  colorCellCount = cot
End Function
    • good
    • 0

色付セルの集計(エクセル)


http://oshiete1.goo.ne.jp/kotaeru.php3?q=212717
エクセルの技
http://www2.odn.ne.jp/excel/waza/

参考になりそうな所を見繕いました
参考になれば幸いです
    • good
    • 0

エクセル関数で色の取得は、VBAでないと出来ません。


VBAの表現方法は、参考URLを参照して下さい。
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q切り上げした数字をその数字として他の計算式に使いたい

例えば、1.25という数字を切り上げして2にしたとします。
違うセルで2という数字で違う計算式を作りたいのですが、表示が2なだけで、データ自体は1.25のままなので、1.25で計算されてしまいます。
データ自体を2にするやり方を知っている方教えて下さい。

Aベストアンサー

excelなら=ROUNDUP(1.25,0)*10で20になりますが
これではだめですか?

Q検索エンジン等でワード検索欄に残る検索ワードの消し方

IEで検索エンジン等を利用するとき、検索ワード入力欄に前回入力したキーワードが残ります。検索エンジン以外でも過去に入力した言葉が残るものが多数あります。これらの消し方、またはバックアップファイルの場所等を知っておられる方、いらっしゃいましたら教えください。お願いします

Aベストアンサー

ツール→インターネットオプション→コンテンツタブ→
オートコンプリート→フォームのクリア

で削除できますよ。

Qwindows98再インストール後、赤字の表示がでる

三菱apricotでOSを再インストールしたところ
赤いバックに白抜きの文字で以下の表示が出始めました。
そのまま置くとにしておいても起動します。
この表示はどういう意味か教えてください。

save to disk partition not found
save to disk feature is disabled
run phdisk for infornation.file:create new.
parttion:consult manual.
hit any key to exit.

Aベストアンサー

PHDISKというソフトで、「サスペンド用領域を作成」すれ
ば、いいようです。

他のメーカーの機種でも、同じような方式のが、あるようです。

参考URL:http://www2.mdit.co.jp/service/apricot/ac_tec/hosyu/dpc/kqak02.htm

Q検索でフォルダのみを検索するキーワードはありま

検索でフォルダのみを検索するキーワードはありますか?

拡張子がないからフォルダのみを検索するのは無理なのでしょうか?
標準の検索を使うわけではないのであくまで
ファイル名の検索キーワードからリストアップ剃る方法ありますか?

Aベストアンサー

No.3の補足です。
XPの例を下記サイトに掲載しました。(画像のみです)
英語表示のエクスプローラになっていますが、日本語に置き換えて応用してください。
http://ftlabo.sakura.ne.jp/temp/temp/xp-search.jpg
なお、この画像は近日中に削除します。

Q【検索】「含まれる文字列」で検索してヒットしない

Win98SEの「検索」-「ファイルやフォルダ」-「含まれる文字列」で
実際にある文字列を入力してもヒットしません。
ヒットさせるには、どうすればよいでしょうか?

ヒットさせたいファイルは
WordやExcel2000で作成し、何度か編集済みのものです。

機種:NECMateNX MA46H 他何台かあり
OS:Win98SE
使用しているアプリ:Word/Excel2000
ヒットさせたい文字列:テキストボックスではなく、
           普通に文字入力している内容
           (例) 前橋店 とか  伊香保温泉  とか
           文字列の前後に「*」を付けてもダメでした。

ファイルの名前の一部を入力して検索した場合は
正しく機能して結果が表示されています。

講習でこの機能を説明したいので、
どなたかヒットさせる方法をご存知でしたら
教えてください。
よろしくお願いします。<(_ _)>

Aベストアンサー

WordやExcelのデータファイルはバイナリー形式ではないため、ヒットする可能性は低いです。
検索できるファイルはメモ帳やテキスト・エディターで照会、編集できるテキスト形式で保存されているファイルです。
市販のソフトには、WordやExcelのデータ・ファイルも検索できるものがあります。
私は市販ソフトを使っていますが、オンラインソフトで検索可能なソフトがあるようです。

参考URL:http://www3.hummingheads.co.jp/fm1/index.html


おすすめ情報