|
まさ さん、kobasan さん、こんばんは。
>>
>>1 2 3 =関数() →○
>>3 8 0 々 →×
>>2 10 1 々 →○
>>6 1 2 々 →○
>>−1 0 4 々 →×
>>0 1 8 々 →×
>>30 50 0 =関数() →×
>>
数式でもいけそうですよ!!
「=IF(COUNTIF(A1:C1,1)*COUNTIF(A1:C1,2)>0,"○","×")」
敢えてユーザー定義関数にするなら、
'==============================================================
Function chkvalue(rng As Range, ParamArray f_value()) As Variant
'機能 : 指定されたセル範囲に指定されたデータの有無を調査する
'入力 : rng --- 調査するセル範囲
' f_value()- 有無を調査するデータ群
'出力 : chkvalue---○--f_value()の全てのデータがセル範囲に存在する
' ×--f_value()の中の少なくとも一つのデータがセル範囲に存在しない
'記述例 : =chkvalue(a1:c3,1,2) セル範囲A1:C1の中に1,2の両方が存在するか調査する
Dim idx As Long
chkvalue = "○"
For idx = LBound(f_value()) To UBound(f_value())
If Application.CountIf(rng, f_value(idx)) <= 0 Then
chkvalue = "×"
Exit For
End If
Next idx
End Function
「=chkvalue(a1:c1,1,2)」
確認してください
|
|