Σε περίπτωση που θέλετε να αντιγράψετε ένα συγκεκριμένο μορφοποιημένο κελί ή έγχρωμα κελιά από μία στήλη στην επόμενη στήλη, τότε αυτό το άρθρο είναι για εσάς. Σε αυτό το άρθρο, θα μάθουμε πώς να αντιγράφουμε έγχρωμα κελιά χρησιμοποιώντας κώδικα VBA.
Ακολουθεί το στιγμιότυπο των δεδομένων που έχουμε, δηλαδή η στήλη Α περιέχει δεδομένα με λίγα κίτρινα χρώματα.
Για να εξαγάγετε τα δεδομένα που επισημαίνονται μόνο με κίτρινο χρώμα. πρέπει να δημιουργήσουμε ένα UDF για να εμφανίζονται τα έγχρωμα κελιά μόνο στη στήλη Β
- Για να δημιουργήσουμε μια συνάρτηση καθορισμένη από το χρήστη, θα ακολουθήσουμε τα παρακάτω βήματα:
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κωδικών, επιλέξτε Visual Basic
- Απαιτείται να αντιγράψουμε τον παρακάτω κώδικα στην τυπική μονάδα
Λειτουργία IsYellow (ByRef r As Range)
Εάν r.Interior.ColorIndex = 6 Τότε
IsYellow = r.Αξία
Αλλού
IsYellow = vbNullString
Τέλος εαν
Λειτουργία Τέλους
- Στο κελί Β1, ο τύπος θα είναι = IsYellow (A1)
Ο παραπάνω κώδικας ταιριάζει συγκεκριμένα με το χρώμα# 6 που προορίζεται μόνο για κίτρινο χρώμα. Επομένως, το udf θα εξαγάγει μόνο τις τιμές που περιέχουν χρώμα#6.
Σε περίπτωση που θέλουμε να εξαγάγουμε κόκκινα κύτταρα χρώματος τότε πρέπει να ελέγξουμε τον καθορισμένο αριθμό χρώματος και απλά να αντικαταστήσουμε με κίτρινο αριθμό χρώματος.
Με αυτόν τον τρόπο, μπορούμε να ανακτήσουμε τα κίτρινα κελιά χρώματος γραμματοσειράς χρησιμοποιώντας τον κώδικα vba.
Λήψη - Εξαγωγή συγκεκριμένου ευρετηρίου χρωμάτων χρησιμοποιώντας VBA - xlsm