MS Excel-セルに色分けされたセルの割合に基づいてセルを埋め込みますか？

Question

私は、いくつのセルに緑色のセルがあるかに基づいて、セル値に数値を入力しようとしています。

例1：

A1 B1 C1 D1 (E1- Answer '15%' will appear here) 
G NG NG NG (G= Green, NG= Not Green) 

もう一つの例：

A1 B1 C1 D1 (E1- Answer '30%' will appear here) 
G G NG NG (G= Green, NG= Not Green) 

=IF(GetFillColor(A1)=4,"1",AND IF(GetFillColor(A1:B1)=4,"2"), AND IF(GetFillColor(A1:C1)=4,"3"), AND IF(GetFillColor(A1:C1)=4,"4", "0"))

GetFillColour：

Function GetFillColor(Rng As Range) As Long 
    GetFillColor = Rng.Interior.ColorIndex 
End Function 

すべてのヘルプははるかに高く評価されるだろう、ありがとう！今、あなたが指定したセルに直接あなたの合計を持って

Public Function getfillcolor(rng As Range, color As Long) As Integer 
Dim i As Integer 
Dim cell As Range 
For Each cell In rng.Cells 
    If cell.Interior.color = color Then 
    i = i + 1 
    Else 
    End If 
Next cell 
getfillcolor = i 
End Function 

：

Answer 1

はであなたのgetfillcolor機能を変更するようにしてください。

Answer 2

あなたはヘルパー細胞（なしVBA）を使用して、気にしない場合：

• を命名式の作成：=GET.CELL(38,OFFSET(INDIRECT("RC",FALSE),-1,0))
  を私は私CellColourと呼ばれてきました。
• 着色セルの下に式=CellColour 1セルを置きます。
  数式のオフセットは、上の行を見るように指示します。
• 緑色のセル（RGB = 0,255,0）のセル数が10になります。
• は今割合を計算する簡単な式を使用します。=COUNTIF(A2:D2,10)/COUNTA(A2:D2)

あなたは数式の結果を更新するために、F9キーを押す必要があります。

http://www.mrexcel.com/forum/excel-questions/20611-info-only-get-cell-arguments.html