Χρήση VBA για τη δημιουργία χάρτη φύλλου εργασίας

Προσπαθήσατε ποτέ να κατανοήσετε ένα άγνωστο (και περίπλοκο) βιβλίο εργασίας του Excel; Θα ήταν χρήσιμο να δείτε έναν χάρτη που παρέχει μια επισκόπηση του ποια κελιά περιέχουν σταθερές και ποια κελιά περιέχουν τιμές.

Μπορείτε να δημιουργήσετε ένα βοηθητικό πρόγραμμα VBA που δημιουργεί έναν χάρτη του ενεργού φύλλου εργασίας. Ο χάρτης δημιουργείται σε ένα νέο φύλλο εργασίας και αποτελείται από χρωματικά κωδικοποιημένα κελιά που σας επιτρέπουν να αναγνωρίζετε γρήγορα τιμές, κείμενο και τύπους.

Παρακάτω, βλέπετε ένα παράδειγμα τέτοιου χάρτη. Τα κελιά που περιέχουν κείμενο είναι πράσινα, αυτά που περιέχουν μια αριθμητική τιμή είναι κίτρινα και τα κελιά που περιέχουν τύπους είναι κόκκινα. Ένας τέτοιος χάρτης μπορεί να σας βοηθήσει να εντοπίσετε πιθανά σφάλματα. Για παράδειγμα, εάν ένας τύπος σε ένα μπλοκ τύπων έχει αντικατασταθεί από μια τιμή, αυτό το κελί θα ξεχωρίζει στην προβολή χάρτη (όπως στο κελί Q11 στο παράδειγμα).

Ο κώδικας VBA QuickMap

Η διαδικασία VBA που δημιουργεί τον χάρτη του φύλλου εργασίας παρατίθεται παρακάτω. Εάν θέλετε να χρησιμοποιήσετε αυτό το βοηθητικό πρόγραμμα, απλώς αντιγράψτε τον κώδικα και επικολλήστε τον σε μια μονάδα VBA. Στη συνέχεια, ενεργοποιήστε ένα φύλλο εργασίας και εκτελέστε την υπορουτίνα QuickMap.

Sub QuickMap()
  Dim FormulaCells As Variant
  Dim TextCells As Variant
  Dim NumberCells As Variant
  Dim Area as Range
  Αν TypeName(ActiveSheet) <> "Worksheet" Τότε βγείτε από το Sub
Δημιουργήστε μεταβλητές αντικειμένων για υποσύνολα κελιών
  Σφάλμα Συνέχιση Επόμενο
  Ορισμός FormulaCells = Range("A1").SpecialCells _
   (xlFormulas, xlNumbers + xlTextValues ​​+ xlLogical)
  Ορισμός TextCells = Range("A1").SpecialCells(xlConstants, xlTextValues)
  Ορισμός NumberCells = Range("A1").SpecialCells(xlConstants, xlNumbers)
  Στο Σφάλμα Μετάβαση στο 0
Προσθέστε ένα νέο φύλλο και μορφοποιήστε το
  Φύλλα.Προσθήκη
  Με κύτταρα
    .Πλάτος στήλης = 2
    .Γραμματοσειρά.Μέγεθος = 8
    .HorizontalAlignment = xlCenter
  Τέλος με
  Application.ScreenUpdating = False
Κάντε τα κελιά τύπου
  Αν δεν είναι κενό(FormulaCells) Τότε
    Για κάθε περιοχή στο FormulaCells.Areas
      Με ActiveSheet.Range(Περιοχή.Διεύθυνση)
        .Τιμή = "F"
        .Interior.ColorIndex = 3
      Τέλος με
    Επόμενη Περιοχή
  Τέλος εαν
Κάντε τα κελιά κειμένου
  Εάν δεν είναι κενό (TextCells) Τότε
    Για κάθε περιοχή στο TextCells.Areas
      Με ActiveSheet.Range(Περιοχή.Διεύθυνση)
        .Τιμή = "T"
        .Interior.ColorIndex = 4
      Τέλος με
    Επόμενη Περιοχή
  Τέλος εαν
Κάντε τα αριθμητικά κελιά
  Αν δεν είναι κενό(αριθμητικά κελιά) Τότε
    Για κάθε περιοχή σε NumberCells.Areas
      Με ActiveSheet.Range(Περιοχή.Διεύθυνση)
        .Τιμή = "N"
        .Interior.ColorIndex = 6
      Τέλος με
    Επόμενη Περιοχή
  Τέλος εαν
End Sub