Excel - Συγκρίνετε δύο λίστες και αλλάξτε χρώμα γραμμής

Θέμα

Έχω δύο διαφορετικά βιβλία εργασίας. ας πούμε το βιβλίο εργασίας 1 και το βιβλίο εργασίας2. Και στα δύο βιβλία εργασίας έχω μια στήλη με γραμμωτούς κώδικες.

Χρειάζομαι ένα VBA για να ελέγξω τις δύο στήλες γραμμωτού κώδικα στα βιβλία εργασίας και αν βρει τις αντιστοιχίες για να δημιουργήσει ένα νέο βιβλίο εργασίας και να αντιγράψει ολόκληρη τη σειρά του βιβλίου εργασίας 1 και να χρησιμοποιήσει το ίδιο χρώμα του κελιού barcode στο βιβλίο εργασίας 2.

Λύση

Υποθέτω ότι οι στήλες γραμμωτού κώδικα τόσο του φύλλου 1 όσο και του φύλλου 2 είναι οι ίδιες

δοκιμάστε αυτόν τον κώδικα

στην αρχή όταν τρέχετε τον κώδικα, ο κώδικας θα ζητήσει μια εισαγωγή σχετικά με το γράμμα στήλης του γραμμικού κώδικα. μπορείτε να πληκτρολογήσετε το γράμμα στήλης π.χ. G και να κάνετε κλικ ok (επάνω δεξιά):

Η μακροεντολή είναι

 ("Πληκτρολογήστε τη στήλη LETTER στην οποία ο γραμμωτός κώδικας δεν έχει προστεθεί για παράδειγμα, G") Στο Σφάλμα Επαναλάβετε Επόμενο Με φύλλα εργασίας ("φύλλο2") Ρυθμίστε r = Εύρος (.Cells (2, col), .Cells (2, col) .End (xlDown)) Για κάθε c Στο rx = c.Value Με φύλλα εργασίας. Στήλες (col & ":" & col) Ορίστε cfind = .Cells.Find (what: = x, lookat: = xlWhole) Αν cfind δεν υπάρχει τίποτα τότε GoTo nnext y = cfind.Interior.ColorIndex cfind.EntireRow.Copy με φύλλα εργασίας ".") .Cells (Rows.Count, "A") Τέλος (xlUp) .Φάκτωμα (1, 0) .PasteSpecial .Cells (Rows.Count, col) .End (xlUp) .Interior.ColorIndex = Με End με nnext: Επόμενο c End With End Sub