Excel VBA質問箱 IV

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

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


14750 / 76738 ←次へ | 前へ→

【67477】三列が合致していないセルにチェック
質問  Yoshim  - 10/12/8(水) 16:09 -

引用なし
パスワード
   シート1とシート2の項目の違いに関して
大分類AAはAA同士の比較で中と小との中身が異なる状況で、比較して異なる場合のみシート1の大分類の文字の色を赤くしたいような場合・・・

シート1
大分類 中 小
AA   aaa bbb
BB   bbb ccc
CC   ccc ddd
DD   ddd eee

シート2
BB   bab ccc
AA   aaa bbb
DD   ddd ege
CC   ccc ddd

コードを書いたのですが、トラぶっています、訂正に関してアドバイスお願いします。

Sub test()
Dim i As Long, k As Long
Dim R1, R2
With Sheets(2)
 For i = 2 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
 For k = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
  Set R1 = Sheets(1).Cells(i, 1) & Sheets(1).Cells(i, 2) & Sheets(1).Cells(i, 3)
  Set R2 = .Cells(k, 1) & .Cells(k, 2) & .Cells(k, 3)
   If R1 <> R2 Then
    Cells(i, 1).Interior.ColorIndex = 3
   End If
 Next
 Next
End With
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 お礼

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