引用:
dic(ary1(r, 2) & " " & ary1(1, c)) = ary1(r, c) ←こちらはdicのkeyに社員番号、itemに社員番号と紐づいた各列の数字を格納しているという認識で合っておりますか？
だいたいあってますが、正確には、
Keyには社員番号と列見出し(何かのコード？)を連結したものを、
Itemには社員番号と列見出しに対応した数値を格納してます。
引用:
If dic.Exists(ary2(r, 1) & " " & ary2(1, c)) Then ←こちらは元データのdicと重複しているかを確認しているということでしょうか？
受入データの社員番号&列見出しがdicのkeyに存在するかどうか確認しています。
存在したら、次のコードでそれぞれの対応する値が一致するか判定してます。
引用:
If dic(ary2(r, 1) & " " & ary2(1, c)) <> ary2(r, c) Then←こちらは何を格納しているのでしょうか？ dicで受入データのkey社員番号とitemで紐づいた列番号に対して違っている数字を格納？
VBAでは、代入と比較が同じ記号(=)を使うの紛らわしいのですが、
A = B
はAにBを代入という意味ですが(代入演算子)、
If A = B Then
とIf文に記述したときは、AとBを比較するという意味です(比較演算子)。一致したらTrueを、一致しなかったらFalseを返します。なにも代入(格納)はしません。
引用:
If rng3 Is Nothing Then ← rng3が存在しない場合は rng3に対して何をしているのでしょうか。
Set rng3 = rng2.Cells(r, c)
Else
Set rng3 = Union(rng3, rng2.Cells(r, c))
End If
この部分は、rng3 に不一致のセルをまとめて格納していくコードです。
ループを抜けてから、最後に該当の複数セルを一気に背景色を変更します。
その都度、1セルずつ変更するより高速化できます。
複数セルをUnionメソッドを使ってまとめることができます。
rng3が空(Nothing)のとき、 Union(rng3, rng2.Cells(r, c)) とするとエラーになるので、
Unionを使わずに不一致セルのみをrng3に代入してます。
引用:
元データの受入コードが受入データに存在しない列に対しては、色付しないようにしたいのですが、どうしたらよいでしょうか？
下記の２行を削除してください。
For c = 2 To UBound(ary2, 2)
If dic.Exists(ary2(r, 1) & " " & ary2(1, c)) Then
If dic(ary2(r, 1) & " " & ary2(1, c)) <> ary2(r, c) Then
If rng3 Is Nothing Then
Set rng3 = rng2.Cells(r, c)
Else
Set rng3 = Union(rng3, rng2.Cells(r, c))
End If
End If
Else '←この行削除
Set rng3 = Union(rng3, rng2.Cells(r, c))'←この行削除
End If
