エクセル 関数 IF ORまたはVBA？？

質問

以前質問した内容で教えてもらいました！
セルのQ９に=IF(OR(U8="あ",U8="い",U8="う",U8="え",U8="お"),"","まで")
関数があり”あ””い””う””え””お”の時には空白で、それ以外は”まで”と表示させます！

そこでこの関数にO9セルに”まで”と表示があった場合も
Q9セルを空白表示させたいです！
もしO９セルに”まで”以外が表示されたら
Q9セルは”まで”のままで表示させたいです！

教えていただいたのが
=IF(OR(U8={"あ","い","う","え","お"},O9="まで"),"","まで")
です！
今回悩んでいるのは、上記のほかにO9の値が”朝”、”昼”、”夕”となった場合
Q9セルが”まで”と表示させたいです！

(1)Q9＝””にさせたいのはU8=（あ　い　う　え　お）とO9＝（まで）
(2)Q9＝”まで”と表示させたいのはU8=（上記以外の文字が入った場合）
　　　　　但しO9=（朝　昼　夕）の場合は”まで”と表示させたいです！　
すいません！教えて下さい。
ちなみにこれらをVBAでするとどのようになるのでしょうか？

回答No.3

neochi_life · ベストアンサー

すいません。
仕様読み間違えましたので訂正します。

Ｕ８ 　　Ｏ９ 　　　　　結果
あ～お 　　まで　　　　　　空白
あ～お 　　朝、昼、夕　　まで
あ～お 　　それ以外　　　空白
それ以外　　まで　　　　　　空白
それ以外　　朝、昼、夕　　まで
それ以外　　それ以外　　　まで

質問文から、こういう仕様と考えます

ＩＦ関数の場合は
=IF(OR(U8={"あ","い","う","え","お"},O9="まで"),IF(OR(O9={"朝","昼","夕"}),"まで",""),"まで")

ユーザー定義関数の場合は

Function strCheck(U8, O9)
If U8 = "あ" Or U8 = "い" Or U8 = "う" Or U8 = "え" Or U8 = "お" Then
If O9 = "まで" Then
strCheck = ""
ElseIf O9 = "朝" Or O9 = "昼" Or O9 = "夕" Then
strCheck = "まで"
Else
strCheck = ""
End If
Else
If O9 = "まで" Then
strCheck = ""
ElseIf O9 = "朝" Or O9 = "昼" Or O9 = "夕" Then
strCheck = "まで"
Else
strCheck = "まで"
End If
End If
End Function

セルに書き込むのは一緒。
こーゆーやつの仕様は文章よりも表にした方がわかりやすいかもですよ。

回答No.2

neochi_life

ＩＦ関数で書く場合
セルQ9に
=IF(OR(U8={"あ","い","う","え","お"},O9={"まで","朝","昼","夕"}),IF(OR(O9={"朝","昼","夕"}),"まで",""),"まで")

---------------------------------------

ＶＢＡマクロというか、ユーザー定義関数（Sub じゃなくて Function　とすると、セルに「=ユーザー定義関数名(引数)」を書いて使えます）でいいと思うんだけど

ＶＢＥでモジュールに記述するのが

Function strCheck(U8, O9)
If U8 = "あ" Or U8 = "い" Or U8 = "う" Or U8 = "え" Or U8 = "お" Then
If O9 = "朝" Or O9 = "昼" Or O9 = "夕" Then
strCheck = "まで"
Else
strCheck = ""
End If
Else
strCheck = "まで"
End If
End Function

で、セルQ9に
=strCheck(U8,O9)
と書く

セルＵ８とＯ９の値を、ユーザー定義関数strCheck(U8,O9)で処理させ、戻り値（空白か"まで"）がセルに表示されます

この手の処理なら、マクロを設定して呼び出すより「ユーザー定義関数」で使う方が簡単だと思いますよ。

回答No.1

mshr1962

U8=（上記以外の文字が入った場合）でO9=（朝　昼　夕）以外の時の表示はなんですか？
それによって式が変わります。
""の場合は
=IF(OR(U8={"あ","い","う","え","お"},NOT(O9={"朝","昼","夕"})),"","まで")
"○"の場合は
=IF(OR(U8={"あ","い","う","え","お"},O9="まで"),"",IF(O9={"朝","昼","夕"},"まで","○")

VBA(ユーザー定義関数)の場合

Function XIF(RG1,RG2 As Range)
Select Case RG1
Case "あ","い","う","え","お"
XIF = ""
Case Else
Select Case RG2
Case "まで"
XIF = ""
Case "朝","昼","夕"
XIF = "まで"
Case Else
XIF = "○"
End Select
End Select
End Function

として
Q9=XIF(U8,O9)
とする。

お礼

早速の返答ありがとうございます！分かりやすく回答していただき嬉しかったです。