Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


49258 / 76732 ←次へ | 前へ→

【32391】Re:ユーザー定義関数で
発言  ichinose  - 05/12/13(火) 21:43 -

引用なし
パスワード
   まさ さん、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)」

確認してください

0 hits

【32387】ユーザー定義関数で まさ 05/12/13(火) 20:31 質問
【32390】Re:ユーザー定義関数で kobasan 05/12/13(火) 21:28 回答
【32391】Re:ユーザー定義関数で ichinose 05/12/13(火) 21:43 発言
【32394】Re:ユーザー定義関数で まさ 05/12/13(火) 22:32 質問
【32401】Re:ユーザー定義関数で ichinose 05/12/14(水) 9:45 発言
【32479】Re:ユーザー定義関数で まさ 05/12/15(木) 18:39 質問
【32484】Re:ユーザー定義関数で kobasan 05/12/15(木) 21:24 発言
【32486】Re:ユーザー定義関数で ichinose 05/12/15(木) 22:27 発言

49258 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free