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 質問
【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 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
49262 / 76735 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free