VBA　複数条件に合致したデータを抽出して表示したい

前提

複数条件について様々調べたのですが、なかなか理解できず、
みなさまにご教授いただきたいと思い質問させていただきます。

成果物

各シートの「名前」と「生年月日」が一致したとき、
データ「個人番号」をシート「顧客データ」からシート「抽出」に反映させたいです。

また、各シートの「名前」と「生年月日」以外のデータが
異なる場合はそのセルに色塗りしたいです。

VBA初心者のため様々試しているのですが、思うような動作になりません。
どうかお力添えお願いします。

meg_

2021/10/27 02:18

> 複数条件について様々調べたのですが、なかなか理解できず、条件がひとつであればコードを書けると理解して良いでしょうか？その場合、ANDやORで調べると良いかと思います。

行動規範の内容に同意します

回答1件

たとえばこんな感じでどうでしょうか。

VBA
1Sub sample()
2
3    Dim dic 'As Scripting.Dictionary
4    Set dic = CreateObject("Scripting.Dictionary")
5
6    Dim arr
7    arr = Worksheets("職員データ").UsedRange.Value
8
9    Dim i
10    For i = 2 To UBound(arr, 1)
11        dic(arr(i, 1) & vbTab & arr(i, 4)) = i
12    Next
13
14    Dim ws As Worksheet
15    Set ws = Worksheets("比較")
16    
17    Dim k, v, j
18    For i = 2 To ws.UsedRange.Rows.Count
19        k = ws.Cells(i, 1).Value & vbTab & ws.Cells(i, 4).Value
20        If dic.Exists(k) Then
21           ws.Cells(i, 5).Value = arr(dic(k), 5)
22            For j = 1 To 4
23                If ws.Cells(i, j).Value <> arr(dic(k), j) Then ws.Cells(i, j).Interior.Color = vbYellow
24           Next
25        End If
26    Next
27End Sub
28