Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


19282 / 76732 ←次へ | 前へ→

【62884】Re:リストの検索(変更箇所に色をつける)
回答  arajin  - 09/9/12(土) 14:33 -

引用なし
パスワード
   あまり深く考えていませんが、配列内にデータを格納しすべて総当りで比較する例です。
途中、Dictionaryを使ってますが、キーとなるA,B列の組み合わせは一意であるという前提です。

Sub 比較()
  Dim RR As Range
  Dim v1 As Variant, v2 As Variant
  Dim dic As Object
  Dim ky As Variant
  Dim i As Long, j As Long, k As Long
  
  Set RR = Worksheets("Sheet2").Range("A1").CurrentRegion.Resize(, 7)
  v1 = Worksheets("Sheet1").Range("A1").CurrentRegion _
                    .Resize(, RR.Columns.Count).Value
  v2 = RR.Value
  Set dic = CreateObject("scripting.dictionary")
  For i = 1 To UBound(v1, 1)
    ky = v1(i, 1) & vbTab & v1(i, 2)
    dic.Item(ky) = i
  Next
  For i = 1 To UBound(v2, 1)
    ky = v2(i, 1) & vbTab & v2(i, 2)
    If dic.Exists(ky) Then
      k = dic.Item(ky)
      For j = 3 To UBound(v2, 2)
        If v2(i, j) <> v1(k, j) Then
          RR.Item(i, j).Interior.Color = vbYellow
        End If
      Next
    Else
      RR.Rows(i).Interior.Color = vbBlue
    End If
  Next
  Set dic = Nothing
  Set RR = Nothing
End Sub

0 hits

【62874】リストの検索(変更箇所に色をつける) まい 09/9/10(木) 21:21 質問
【62876】Re:リストの検索(変更箇所に色をつける) Hirofumi 09/9/10(木) 23:22 回答
【62884】Re:リストの検索(変更箇所に色をつける) arajin 09/9/12(土) 14:33 回答
【62906】Re:リストの検索(変更箇所に色をつける) まい 09/9/14(月) 20:47 お礼

19282 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free