アンケート一覧ページでアンケートを探す
ran********

2007/6/27 15:35

44回答

エクセルについて質問です。エクセルで、文字の色を判別してくれる機能はないでしょうか？文字の色は赤と黒の二色です。黒文字で入力してあるセルの個数を数えたいんです。

エクセルについて質問です。エクセルで、文字の色を判別してくれる機能はないでしょうか？文字の色は赤と黒の二色です。黒文字で入力してあるセルの個数を数えたいんです。

補足

ｍｙ offiseさんのやり方を試したのですが、赤文字はカウントされました！でも黒文字は０になってしまいます・・・同じように式をいれてるのですが。。。こんなに詳しく教えていただいてるのに申し訳ありません。アドバイスお願いします

Excel・36,057閲覧・xmlns="http://www.w3.org/2000/svg">100

新機能 AI回答テストを実施中！ テスト対象カテゴリ：歴史・悩み相談 ※回答がつかない場合は、画面のリロードをお試しください

ベストアンサー

非公開

2007/6/28 8:37（編集あり）

4.0マクロ関数を使用する手もありますが、いつまで使えるかわからないし 関数を　作っちゃったほうが早いでしょう。 Alt キーを押しながら F11 キーを押す 画面上　挿入　→　標準モジュール　 右空白に以下の全文コピー 現在の画面を　×で閉じる。 後は　一般の関数のように「とりあえず　このファイル内でのみ」使用可 一般の関数のように　=fcolor(範囲,文字の色番号) と使用してみてください。 範囲　A1:F600 から　文字の色が　黒の個数は　=fcolor(A1:F600,1) 範囲　A1:F600 から　文字の色が　赤の個数は　=fcolor(A1:F600,3) ★補足の件・・・・・・・・・・・・・・・・ ◎こちらのミス・・・黒の文字は？　黒もあれば　標準もあるもんね？ 以前のものは　削除　コピーしなおしで　差し替えをして下さい。 'ColorIndex = 1 は、黒です　３は赤　黄色は7　青は　5 '============================================ Function fcolor(a As Range, b As Integer) Dim c As Range, cu As Integer, frg As String Application.Volatile For Each c In a With c.Font If b = 1 Then If .Color = vbBlack Then cu = cu + 1 Else If .ColorIndex = b Then cu = cu + 1 End If End With Next fcolor = cu End Function

NEW! この回答はいかがでしたか？ リアクションしてみよう

ThanksImg質問者からのお礼コメント

できました！！助かりました～～。本当にありがとうございました☆ 関数を作るとか、ビックリです。すごいｯ！ また縁があればよろしくおねがいします。 ありがとうございました＾＾

お礼日時：2007/6/28 10:36

その他の回答（3件）

kabuto_yh

2007/6/27 15:56

Excelのバージョンはどれでしょう。 2002以降であれば　編集 → 検索　で、セルの書式で検索できます。 そこで検索されたセルをシート上で選択状態にして名前定義で名前を付けて、関数でその名前を指定すればご希望のことが出来ます。

nat********

2007/6/27 15:51

一応出来るんでけど難易度が高いです。。。 [GET.CELL関数で塗りつぶしセルをカウントする] http://oshiete1.goo.ne.jp/qa2714056.html 若干面倒ですが、簡単な代替案をご説明します。 Excel画面でCtrlキーを押しながら「F」キーを押すと「検索と置換ダイアログ」が表示されるので、「オプション」ボタンを押して 「書式」ボタン→「フォント」タブで探したい「色」を指定し「OK」ボタンを押します。 この状態で「すべて検索」ボタンを押すとシート内で対象のセルが一覧表示されるので数えます（笑） これなら簡単ですがいかがでしょうか？

kya********

2007/6/27 15:50

編集→検索→オプション→書式→フォントで色を指定