Excel - Bandingkan dua senarai dan ubah warna baris

Isu

Saya mempunyai dua buku kerja yang berbeza; katakan buku kerja 1 dan buku kerja2. Dalam kedua-dua buku kerja saya mempunyai ruang dengan kod bar.

Saya memerlukan VBA untuk memeriksa kedua-dua lajur kod bar dalam buku kerja dan jika ia mencari padanan untuk membuat buku kerja baru dan menyalin keseluruhan baris buku kerja 1 dan menggunakan warna kod bar sel dalam buku kerja 2.

Penyelesaian

Saya mengandaikan bahawa lajur kod bar kedua-dua helaian 1 dan helaian 2 adalah sama

kemudian cuba kod ini

pada mulanya apabila anda menjalankan kod tersebut, kod tersebut akan meminta input mengenai huruf lajur kod bar. anda boleh menaip huruf lajur contoh G dan klik ok (di sebelah kanan atas):

Makro ini

 Ujian sub () Dim col As String, r As Range, c As Range, cfind As Range Dim x, y As Integer col = InputBox ("ketik LETTER kolom di mana kod bar diperiksa untuk misalnya G") Pada Kesalahan Resume Seterusnya Dengan Worksheets ("sheet2") Set r = Range (.Cells (2, col), .Cells (2, col) .End (xlDown)) Untuk Setiap c Dalam rx = c.Value With Worksheets ("sheet1"). Columns (col & ":" & col) Tetapkan cfind = .Cells.Find (apa: = x, lookat: = xlWhole) Jika cfind Tidak Ada Kemudian GoTo nnext y = cfind.Interior.ColorIndex cfind.EntireRow.Copy With Worksheets ( (sheet.Count, "A"). End (xlUp). Dengan Akhir Dengan nnext: Selanjutnya c End With End Sub