Excel VBA質問箱 IV

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

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


14744 / 76734 ←次へ | 前へ→

【67479】Re:三列が合致していないセルにチェック
回答  Hirofumi  - 10/12/8(水) 17:47 -

引用なし
パスワード
   大分類&中&小がSheets(1)に合って、Sheets(2)に無い場合で善いなら
但し、大分類&中&小でユニーク(一意)である事

Sub test_2()

  Dim i As Long, k As Long
  Dim RowEnd1 As Long
  Dim RowEnd2 As Long
  Dim Ws1 As Worksheet
  Dim Ws2 As Worksheet
  
  Set Ws1 = Sheets(1)
  RowEnd1 = Ws1.Cells(Rows.Count, 1).End(xlUp).Row
  
  Set Ws2 = Sheets(2)
  RowEnd2 = Ws2.Cells(Rows.Count, 1).End(xlUp).Row
  
  For i = 2 To RowEnd1
    For k = 2 To RowEnd2
      If Ws1.Cells(i, 1).Value = Ws2.Cells(k, 1).Value Then
        If Ws1.Cells(i, 2).Value = Ws2.Cells(k, 2).Value Then
          If Ws1.Cells(i, 3).Value = Ws2.Cells(k, 3).Value Then
            Exit For
          End If
        End If
      End If
    Next k
    'Sheets(2)のListに無い場合
    If k > RowEnd2 Then
      Ws1.Cells(i, 1).Interior.ColorIndex = 3
    End If
  Next i
  
  Set Ws1 = Nothing
  Set Ws2 = Nothing
  
End Sub
0 hits

【67477】三列が合致していないセルにチェック Yoshim 10/12/8(水) 16:09 質問
【67478】Re:三列が合致していないセルにチェック Jaka 10/12/8(水) 16:20 発言
【67479】Re:三列が合致していないセルにチェック Hirofumi 10/12/8(水) 17:47 回答
【67515】Re:三列が合致していないセルにチェック Yoshim 10/12/9(木) 21:41 お礼
【67621】Re:三列が合致していないセルにチェック Yoshim 10/12/18(土) 22:27 質問
【67626】Re:三列が合致していないセルにチェック UO3 10/12/19(日) 9:05 回答
【67627】Re:三列が合致していないセルにチェック Hirofumi 10/12/19(日) 9:10 回答
【67631】Re:三列が合致していないセルにチェック UO3 10/12/19(日) 23:33 回答
【67643】Re:三列が合致していないセルにチェック Yoshim 10/12/20(月) 22:18 お礼

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