エクセルで不出現回数の出し方教えて下さい。

質問

エクセルで.下記の時.25以上が出現してから不出現回数とその出現確立の 出し方を教えてください。　
（右下記のような感じで）
・　A 　B　C　Ｄ　　　不 　　％
1 10 20 30 28　　　　0 　　100%
2 28 10 15 20　　　　3 　　25%
3 20 25 15 10　　　　2　　　33%

回答No.1

noname#262398 · ベストアンサー

「不」のセル=COLUMNS(A:D)-MAX(INDEX((A1:D1>=25)*COLUMN(A:D),))

「％」のセル=1-「不」のセル/(「不」のセル+1)

お礼

有難うございました。出来ました。完璧です。これがほしかったんです。本当に有難うです。

回答No.2

BLUEPIXY

'＃１は、正しくない
'ユーザ定義関数で
'=不出現回数(25,A1:D1)
'=出現確率(25,A1:D1)
Public Function 不出現回数(v As Variant, r As Range) As Integer
Dim x As Range
Dim c As Integer, flag As Boolean

c = 0: flag = False
For Each x In r
If flag = False And x.Value >= v Then
flag = True
Else
If flag And x.Value < v Then c = c + 1
End If
Next

不出現回数 = c

End Function

Public Function 出現確率(v As Variant, r As Range) As Double
Dim x As Range
Dim c As Integer, n As Integer, flag As Boolean

c = 0: n = 0: flag = False
For Each x In r
If flag = False And x.Value >= v Then flag = True
If flag And x.Value >= v Then c = c + 1
If flag Then n = n + 1
Next

出現確率 = c / CDbl(n)

End Function

お礼

有難うございます。早速やってみます。でもちょっと回答が私には難しい感じです。出来るかな？頑張ります。