Πίνακας περιεχομένων:
Βίντεο: Guide to Shopping ads on Google: Upload your products with a data feed (small inventory) 2024
Προσπαθήσατε ποτέ να κατανοήσετε ένα άγνωστο (και περίπλοκο) βιβλίο εργασίας του Excel; Θα ήταν χρήσιμο να δούμε έναν χάρτη που παρέχει μια επισκόπηση των κυττάρων που περιέχουν σταθερές και ποια στοιχεία περιέχουν τιμές.
Μπορείτε να δημιουργήσετε ένα βοηθητικό πρόγραμμα VBA που δημιουργεί ένα χάρτη του ενεργού φύλλου εργασίας. Ο χάρτης δημιουργείται σε ένα νέο φύλλο εργασίας και αποτελείται από χρωματισμένα κελιά που σας επιτρέπουν να εντοπίζετε γρήγορα τιμές, κείμενο και τύπους.
Παρακάτω, βλέπετε ένα παράδειγμα ενός τέτοιου χάρτη. Τα κελιά που περιέχουν κείμενο είναι πράσινα, αυτά που περιέχουν αριθμητική τιμή είναι κίτρινα και τα κελιά που περιέχουν τους τύπους είναι κόκκινα. Ένας τέτοιος χάρτης μπορεί να σας βοηθήσει να εντοπίσετε τυχόν λάθη. Για παράδειγμα, εάν ένας τύπος σε ένα μπλοκ τύπων έχει αντικατασταθεί από μια τιμή, αυτό το κελί θα ξεχωρίζει στην προβολή χάρτη (όπως στο κελί Q11 στο παράδειγμα).
Ο κώδικας VBA QuickMap
Η διαδικασία VBA που δημιουργεί το χάρτη φύλλου εργασίας παρατίθεται παρακάτω. Αν θέλετε να χρησιμοποιήσετε αυτό το βοηθητικό πρόγραμμα, απλά αντιγράψτε τον κώδικα και επικολλήστε το σε μια ενότητα VBA. Στη συνέχεια, ενεργοποιήστε ένα φύλλο εργασίας και εκτελέστε τη υπορουτίνα του QuickMap.
Sub Formula QuickMap () Δημιουργία Διαμόρφωσης Dim ως Παραλλαγή Dim TextCells ως Variant Dim NumberCells ως Variant Περιοχή Dim ως Εύρος Εάν το "φύλλο εργασίας" TypeName (ActiveSheet) τότε Exit Sub 'Δημιουργία μεταβλητών αντικειμένου για υποσύνολα κυττάρων On Error Resume Επόμενο Set FormulaCells = Range "Α'1"). SpecialCells _ (xlFormulas, xlNumbers + xlTextValues + xlLogical) Ρυθμίστε το TextCells = Εύρος ("A1"). SpecialCells (xlConstants, xlTextValues) Ορισμός NumberCells = Εύρος ("A1"). SpecialCells (xlConstants, xlNumbers) Στο σφάλμα GoTo 0 'Προσθέστε ένα νέο φύλλο και διαμορφώστε τα φύλλα. Προσθήκη με κελιά. ColumnWidth = 2. Γραμματοσειρά. Μέγεθος = 8. HorizontalAlignment = xlCenter End With Application. ScreenUpdating = False 'Κάντε τα κελιά τύπου Εάν δεν είναι IsEmpty (FormulaCells) στη συνέχεια για κάθε περιοχή στη FormulaCells. Περιοχές με ActiveSheet. Εύρος (Περιοχή Διεύθυνση). Τιμή = "F". Εσωτερικό. ColorIndex = 3 Τέλος με το τέλος της επόμενης περιοχής Εάν 'Κάνετε τα κελί κειμένου Αν δεν είναι IsEmpty (TextCells) τότε για κάθε περιοχή στο TextCells. Περιοχές με ActiveSheet. Εύρος (Περιοχή Διεύθυνση). Τιμή = "T". Εσωτερικό. ColorIndex = 4 Τέλος με το τέλος της επόμενης περιοχής Αν το κάνετε 'Αριθμητικά κελιά Αν δεν είναι IsEmpty (NumberCells) τότε για κάθε περιοχή σε NumberCells. Περιοχές με ActiveSheet. Εύρος (Περιοχή Διεύθυνση). Τιμή = "N". Εσωτερικό. ColorIndex = 6 Τέλος με το τέλος της επόμενης περιοχής Εάν τελειώσει το υπο
Πώς λειτουργεί
Η διαδικασία ελέγχει πρώτα για να βεβαιωθεί ότι το ενεργό φύλλο είναι φύλλο εργασίας. Εάν δεν υπάρχει, υπάρχει γρήγορη έξοδος χωρίς περαιτέρω ενέργεια. Όταν το ενεργό φύλλο είναι ένα φύλλο εργασίας, η διαδικασία δημιουργεί τρεις μεταβλητές αντικειμένων χρησιμοποιώντας τη μέθοδο SpecialCells για τον εντοπισμό των διαφόρων τύπων κυττάρων.Η μέθοδος SpecialCells είναι πολύ χρήσιμη. Εάν δεν είστε εξοικειωμένοι με αυτό, ελέγξτε το στο ηλεκτρονικό αρχείο βοήθειας του Excel. Παρατηρήστε τη χρήση της λειτουργίας "Συνέχιση σφάλματος" στη συνέχεια. Αυτό γίνεται για να αποφευχθεί το σφάλμα που προκύπτει εάν δεν πληρούν τα κελιά - για παράδειγμα, εάν το φύλλο εργασίας δεν έχει τύπους.
Στη συνέχεια, η διαδικασία προσθέτει ένα νέο φύλλο εργασίας, μειώνει το πλάτος κελιού και ορίζει την οριζόντια ευθυγράμμιση στο κέντρο. Αυτό το βήμα είναι καλλυντικό. Το δευτερεύον στη συνέχεια σβήνει την ενημέρωση της οθόνης για να επιταχύνει τα πράγματα λίγο.
Τα επόμενα τρία μπλοκ κώδικα επεξεργάζονται τα κελιά. Αν δεν πληρούν τα κελιά, η μεταβλητή αντικειμένου είναι κενή, οπότε οι υπο-δοκιμές για αυτό. Στη συνέχεια, οι ρουτίνες ρουτίνας περνούν από κάθε περιοχή στο αντικείμενο εύρους και διαμορφώνουν το κελί. Μπορείτε εύκολα να προσαρμόσετε αυτό το τμήμα της υπορουτίνας για να εφαρμόσετε διαφορετική μορφοποίηση.
Ανατρέξτε στο πρόσθετο Power Utility Pak για μια πολύ πιο εξελιγμένη έκδοση αυτού του βοηθητικού προγράμματος.
