Επισημάνετε τον χάρτη στο Excel με βάση την αναπτυσσόμενη επιλογή στο Excel

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

Έχω πάρει έναν επεξεργάσιμο χάρτη των ΗΠΑ. Η ιδέα είναι να επισημάνετε μια πολιτεία στις ΗΠΑ όταν το όνομά της είναι επιλεγμένο από ένα αναπτυσσόμενο μενού.

Κάτι όπως φαίνεται στην παρακάτω εικόνα:

Τώρα πριν σας δείξω τον κωδικό, εδώ είναι μερικές προϋποθέσεις για αυτό το κόλπο.

1. Αποκτήστε έναν επεξεργάσιμο χάρτη των ΗΠΑ στον οποίο μπορείτε να επιλέξετε διαφορετικά σχήματα που θέλετε να επισημάνετε
2. Δημιουργήστε μια λίστα και των 50 καταστάσεων σε μια στήλη και στη στήλη στα δεξιά της έγραψα την κατάσταση 1, την κατάσταση 2 κ.ο.κ.
   
3. Ονομάστε κάθε σχήμα στο χάρτη. Για παράδειγμα, έχω 50 σχήματα εδώ για 50 καταστάσεις και έχω ονομάσει κάθε σχήμα ως κατάσταση 1, κατάσταση 2, κατάσταση 3 και ούτω καθεξής … Για να το κάνετε αυτό, επιλέξτε οποιοδήποτε σχήμα και μεταβείτε στο πλαίσιο ονομάτων, το οποίο είναι ενεργοποιημένο αριστερά της γραμμής τύπων και εισαγάγετε το όνομά της από τη στήλη Αριθμός κατάστασης. Για παράδειγμα, επέλεξα την Αλαμπάμα και την ονόμασα Πολιτεία 1.
4. Δημιουργήστε μια αναπτυσσόμενη λίστα Excel με τα ονόματα όλων των καταστάσεων ($ B $ 2 σε αυτήν την περίπτωση)
5. Χρησιμοποιήστε τη συνάρτηση Vlookup για να εξαγάγετε τον αριθμό κατάστασης όταν επιλέγεται μια κατάσταση από το αναπτυσσόμενο μενού. Εδώ είναι ο τύπος που έχω χρησιμοποιήσει στο κελί $ B $ 3
   = VLOOKUP (B2, ‘State List’! $ B $ 3: $ C $ 52,2, FALSE)

Κωδικός προς επισήμανση χάρτη στο Excel

Private Sub Worksheet_Change (ByVal Target As Range) Dim N As Integer Dim ShapeName As String N = ActiveSheet.Shapes.count If Target.Address = "$ B $ 2" Then For i = 1 To N ShapeName = ActiveSheet.Shapes (i). Όνομα Αν Αριστερά (ShapeName, 6) = "Κατάσταση" Τότε ActiveSheet.Shapes (i) .Επιλογή με Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 1 Τέλος με Τέλος Αν Επόμενο i StateNumber = Range ("$ B $ 3" ) .Value ActiveSheet.Shapes (StateNumber) .Select With Selection.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB (192, 0, 0) .Transparency = 0 .Solid End With ActiveSheet.Range ( "$ B $ 2"). Επιλέξτε Τέλος Αν Τερματισμός Υπο

Ακολουθήστε αυτά τα απλά βήματα κατά την επικόλληση αυτού του κώδικα

1. Αρχικά, κάντε δεξί κλικ στην καρτέλα φύλλου που περιέχει τον χάρτη και επιλέξτε "Προβολή κώδικα". Αυτό θα ανοίξει τον επεξεργαστή VB.
   
2. Επικολλήστε τον κωδικό.