Excel - Võrdle kahte loendit ja muutke rea värvi

Probleem

Mul on kaks erinevat töövihikut; Oletame, et töövihik 1 ja töövihik2. Mõlemas töövihikus on veerg vöötkoodidega.

Mul on vaja VBA-d, et kontrollida töövihikute kahte vöötkoodi veergu ja kas see sobib uue töövihiku loomiseks ning kopeerib kogu töövihiku 1 rea ja kasutab sama värvi vöötkoodi töövihikus 2.

Lahendus

Eeldan, et vöötkoodi veerud nii leht 1 kui ka leht 2 on samad

seejärel proovige seda koodi

koodi käivitamise alguses küsib kood vöötkoodi veeru tähe kohta sisendit. saate kirjutada veeru kirja, nt G ja klõpsa ok (üleval paremal):

Makro on

 Alamtest () Dim col nagu string, r kui vahemik, c kui vahemik, cfind As Range (piirid) Dim x, y As Integer col = InputBox ("tippige veerg LETTER, kus vöötkood on netoarvutatud nt G jaoks) On Error Resume Next Töölehtedega ("sheet2") Set r = Range (.Cells (2, col), .Cells (2, col) .End (xlDown)) Iga c jaoks rx = c.Value töölehtedega ("sheet1"). Veerud (col & ":" & col) Määra cfind = .Cells.Find (mis: = x, lookat: = xlWhole) Kui cfind on midagi, siis GoTo nnext y = cfind.Interior.ColorIndex cfind.EntireRow.Copy koos töölehtedega ( "sheet3") .Cells (read.Count, "A"). End (xlUp) .Offset (1, 0) .PastaSpecial.Cells (read.Count, col) .End (xlUp) .Interior.ColorIndex = y End Lõpp-nnext-ga: Järgmine c Lõpeta lõpus