Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49262 / 76735

←次へ　｜　前へ→


	【32390】Re:ユーザー定義関数で

kobasan - 05/12/13(火) 21:28 -


	引用なし

	パスワード

▼まささん　今晩は。

こんな感じでどうですか。

=comp(A1,B1,C1)

のようにして使ってください。

Function comp(r1 As Range, r2 As Range, r3 As Range)
　　If (r1.Value - 1) * (r2.Value - 1) * (r3.Value - 1) = 0 And _
　　　 (r1.Value - 2) * (r2.Value - 2) * (r3.Value - 2) = 0 Then
　　　　comp = "○"
　　Else
　　　　comp = "×"
　　End If
End Function

>セルに以下のようなデーター（左３列）があり、関数で処理したいのです。
>
>１　　　　２　　　　３　　　＝関数（）　　→○
>３　　　　８　　　　０　　　　　々　　　　→×
>２　　　　１０　　　１　　　　　々　　　　→○
>６　　　　１　　　　２　　　　　々　　　　→○
>－１　　　０　　　　４　　　　　々　　　　→×
>０　　　　１　　　　８　　　　　々　　　　→×
>３０　　　５０　　　０　　　＝関数（）　　→×
>
>概要として、左３列で同じ行に１と２があれば関数の結果が○
>そうでなければ×となるような関数を作りたいです。

0 hits

▼

【32387】ユーザー定義関数で まさ 05/12/13(火) 20:31