[[20180317213603]]　『１つのセルに、４つのセルの中から条件に合う１つ』（ネギ）　ページの最後に飛ぶ

『１つのセルに、４つのセルの中から条件に合う１つを表示する』（ネギ）

Sheet1のセルA1に、Sheet2のA1[あ],A2[い],A3[う],A4[え]の中から条件に合うものを入力するようにしたいです。
条件は、Sheet2のB1,B2,B3,B4の中から[お]と入力されているもの。

例：Sheet2のB1が[お]であれば、Sheet1のセルA1には[あ]と入力される。
　　Sheet2のB2が[お]であれば、Sheet1のセルA1には[い]と入力される。

わかりにくかったらすみません…
是非とも、教えていただきたく思います。
宜しくお願い致します。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

気が付いた点だけですが

Ｂ１、Ｂ２共に　お　、
Ｂ１からＢ４が全部【お】ならどうなるのでしょうか
Ｂ１からＢ４には一つしかおを入力させないとか
するのでしょうか。

（隠居じーさん） 2018/03/17(土) 22:10

Ｂ３、又はＢ４がお
のばあいはＡ１にはなにを表示させるのですか。

（隠居じーさん） 2018/03/17(土) 22:14

ネギさん　こんばんは　＾＾
また憶測と推測でやらかしたかもです。（；＾＾？
外してましたらお許しを。

 Option Explicit
'**********************************************************
Sub main()
    Dim sh01 As Worksheet, sh02 As Worksheet
    Dim rr As Range, r As Range
    Set sh01 = ThisWorkbook.Worksheets("Sheet1")
    Set sh02 = ThisWorkbook.Worksheets("Sheet2")
    Set rr = sh02.Range("B1:B4")
    For Each r In rr
        If r = "お" Then sh01.Cells(1, 1) = r(1, 0)
    Next
    Set sh01 = Nothing
End Sub
（隠居じーさん） 2018/03/17(土) 22:46

お答えありがとうございます。

Sheet2のＢ１～Ｂ４は、どれか１つにだけ[お]を入力します。
Sheet2のＢ３が[お]の場合は、Sheet2のＡ３の[う]がSheet1のＡ１に表示されるようにしたいです。
Sheet2のＢ４が[お]の場合は、Sheet2のＡ４の[え]がSheet1のＡ１に表示される…といった感じです。

（ネギ） 2018/03/17(土) 22:58

 え～と。。。あの　そぉいうふうに組んだと
思うのですが。。。何か不都合がありましたですか。

 ＾＾；
（隠居じーさん） 2018/03/17(土) 23:05

 Sheet1のA1に

 =IFERROR(INDEX(Sheet2!A1:A4,MATCH("お",Sheet2!B1:B4,0)),"")

 こういうこと？
（笑） 2018/03/18(日) 08:53

コメント返信：

[ 一覧(最新更新順) ]

[[20180317213603]] 『１つのセルに、４つのセルの中から条件に合う１つ』（ネギ） ページの最後に飛ぶ

[[20180317213603]]　『１つのセルに、４つのセルの中から条件に合う１つ』（ネギ）　ページの最後に飛ぶ