Excelで別のフォント色のテキストをカウントアップする方法

Question

別のデータベースからエクセルにエクスポートされた名前の一覧があります。関心のあるリストの名前は赤いフォントで強調表示されます。私はそれを数える方法を欲しがります。つまり、ジョン・スミスが列に合計5回出現しますが、5回のうち3回、彼の名前が赤いフォントで強調表示されます。だから彼の名前のインスタンスがどれくらい赤くなっているのかを見たいと思う。

私は彼の名前のすべてのインスタンスを検索する方法を知っています。 = COUNTIF（A1：A100、 "John Smith"）

また、赤色（= SumRed）（カラーインデックスが指定されていれば）のすべての値をワークシートに集計するVB関数の作成に役立っています。

Function SumRed(MyRange As Range) 
    SumRed = 0 
For Each cell In MyRange 
    If cell.Font.Color = 255 Then 
     SumRed = SumRed + cell.Value 
    End If 
Next cell 
End Function 

私はちょうど2つのカウント条件を組み合わせる方法を見つけることができません。どんな助けでも大歓迎です！

Answer 1

For Each cell In Range("A1:A100") 
    If cell.Font.Color = 255 And cell.Value = "John Smith" Then 
     myCount = myCount + 1 
    End If 
Next 

Answer 2

私はあなたがほとんどそこだと思うが、これはあなたがのためにVBAを必要としません:(

Function CoundRedAndText(MyRange As Range, Mytext as string) as long 
    CoundRedAndText = 0 
    For Each cell In MyRange 
     If cell.Font.Color = 255 and cell.value like MyText Then 
      CoundRedAndText = CoundRedAndText + 1 'you had cell.value but dont know why? 
     End If 
    Next cell 
End Function 

使用パンチラインに私を賭け@user別の関数、=CountRedAndText(A1:A25, "John Smith")

Answer 3

に値しますこれはまだVBAソリューションをしたい場合は、他の2つの答えのいずれかと一緒に行くことができます:)

私はExcelの式を使用して、セルのフォントの色を見つけることができます。この例を参照してください。

XL4マクロを使用します。

1. オープン名前の管理
2. 名前を付けます。式の説明

   構文は、上記の式において

   GET.CELL(type_num, reference) 
   
   Type_num is a number that specifies what type of cell information you want. 
   reference is the cell reference 
   

   ある

OK=GET.CELL(24,OFFSET(INDIRECT("RC",FALSE),0,-1))を参照してFontColor

タイプにこの式を言うと、クリックしてください番号24は、セルの最初の文字のフォント色を1から56の範囲の数値で返します。フォントの色が自動である場合は0を返します。したがって欠点です。フォントの色全体が赤であることを確認してください。私たちは64を使用していた可能性がありますが、正しく動作していません。

OFFSET(INDIRECT("RC",FALSE),0,-1)は、左側の直下のセルを示します。

この式をセル=IF(AND(Fontcolor=3,B1="John Smith"),1,0)に入力してコピーします。

注：テキストを含むセルの右に数式を入力する必要があります。

Screentshot

EDIT特定の背景色で細胞をカウントする（2013年10月12日）

が見THISリンク