[[20180809111723]]　『2つの表の二つの条件が一致した時』（おか）　ページの最後に飛ぶ

『2つの表の二つの条件が一致した時』（おか）

初めて投稿させて頂きます。

Ａ・ＢとＣ・Ｄつの表から2つの条件が一致するものは〇一致しないものは×と表示させたいのですが、どうすればいいか分からずご教授頂ければありがたいです。
よろしくお願い致します。

Ａ　　　Ｂ　　　　　　　　Ｃ　　　　　Ｄ　　　　Ｅ
0001　2018/3/31　　　　　0003　　　2020/3/31　　〇
0002　2018/3/31　　　　　0005　　　2018/3/31　　×
0003　2020/3/31　　　　　0010　　　2019/3/31
0004　2018/3/31　　　　　0015　　　2020/3/31
0005　2019/3/31　　　　　0020　　　2018/3/31
・　　　　　　　　　　　　・
・　　　　　　　　　　　　・
・　　　　　　　　　　　　・

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

 ３行目から５行目が◯でも×でもないのはなぜ？
（ねむねむ） 2018/08/09(木) 11:42

すみません。
関数を入れていない状態と思ってください。
（おか） 2018/08/09(木) 11:51

 では
 =IF(COUNTIFS(A:A,C1,B:B,D1),"◯","×")
 ではどうか？
（ねむねむ） 2018/08/09(木) 11:52

参考にしてください

Sub Check()

    Dim i As Long, Fc As Range
    With ThisWorkbook.Sheets("Sheet1")
        For i = 1 To .Cells(.Rows.Count, "C").End(xlUp).Row
            Set Fc = .Range("A:A").Find(.Cells(i, "C"))
            If Fc Is Nothing Then
                .Cells(i, "E") = "該当なし"
            Else
                If Fc.Offset(0, 1).Value = .Cells(i, "D").Value Then
                    .Cells(i, "E") = "○"
                Else
                    .Cells(i, "E") = "×"
                End If
            End If
        Next i
    End With
End Sub

（TAKA） 2018/08/09(木) 11:56

どうもありがとうございました。関数で出来ました。
しばらくやっていなかったもので、これから勉強します。
ＴＡＫＡ様もこれから参考にさせて頂きます。
大変助かりました！！
（おか） 2018/08/09(木) 12:13

コメント返信：

[ 一覧(最新更新順) ]

[[20180809111723]] 『2つの表の二つの条件が一致した時』（おか） ページの最後に飛ぶ

[[20180809111723]]　『2つの表の二つの条件が一致した時』（おか）　ページの最後に飛ぶ