Zvýraznite mapu v programe Excel na základe rozbaľovacieho výberu v programe Excel

Tu je úhľadný trik pre ľudí, ktorí používajú mapy v programe Excel. V tomto blogu vysvetlím, ako zvýrazniť mapu v programe Excel na základe rozbaľovacieho výberu.

Vzal som upraviteľnú mapu USA. Cieľom je zvýrazniť štát v USA, keď je jeho názov vybratý z rozbaľovacieho zoznamu.

Niečo, ako je znázornené na obrázku nižšie:

Predtým, ako vám ukážem kód, tu je niekoľko predpokladov pre tento trik.

1. Získajte upraviteľnú mapu USA, v ktorej si môžete vybrať rôzne tvary, ktoré chcete zvýrazniť
2. Vytvorte zoznam všetkých 50 štátov v jednom stĺpci a do stĺpca napravo som napísal štát 1, štát 2 atď.
   
3. Pomenujte každý tvar na mape. Mám tu napríklad 50 tvarov pre 50 štátov a každý tvar som pomenoval ako štát 1, štát 2, štát 3 atď. … Ak to chcete urobiť, vyberte ľubovoľný tvar a prejdite do poľa s názvom, ktoré je na naľavo od panela vzorcov a do stĺpca Číslo štátu zadajte jeho názov. Vybral som napríklad Alabamu a pomenoval ju Štát 1.
4. Vytvorte rozbaľovací zoznam programu Excel s názvami všetkých štátov (v tomto prípade $ B $ 2)
5. Keď je z rozbaľovacieho zoznamu vybratý stav, pomocou funkcie Vlookup extrahujte číslo stavu. Tu je vzorec, ktorý som použil v bunke $ B $ 3
   = VLOOKUP (B2, „Štátny zoznam“! $ B $ 3: $ C $ 52,2, NEPRAVDA)

Kód na zvýraznenie mapy v programe Excel

Súkromný čiastkový pracovný list_Zmeniť (ByVal cieľ ako rozsah) Dim N ako celé číslo Dim ShapeName ako reťazec N = ActiveSheet.Shapes.count If Target.Address = "$ B $ 2" Then For i = 1 To N ShapeName = ActiveSheet.Shapes (i). Meno, ak je vľavo (ShapeName, 6) = "Štát", potom ActiveSheet.Shapes (i). Vyberte pomocou Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 1 Koniec s koncom, ak bude nasledujúci i StateNumber = Rozsah ("$ B $ 3" ) .Hodnota ActiveSheet.Shapes (StateNumber). Vyberte pomocou Selection.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB (192, 0, 0). Transparentnosť = 0. Pevný koniec ActiveSheet.Range ( „$ B $ 2“). Vyberte položku End If End Sub

Pri vkladaní tohto kódu postupujte podľa týchto jednoduchých krokov

1. Najprv kliknite pravým tlačidlom myši na kartu listu, ktorá má mapu, a zvoľte „Zobraziť kód“. Tým sa otvorí editor VB.
   
2. Prilepte kód.