Označite zemljevid v Excelu na podlagi spustnega izbora v Excelu

Tukaj je lep trik za ljudi, ki uporabljajo zemljevide v Excelu. V tem blogu bom razložil, kako označiti zemljevid v Excelu na podlagi padajočega izbora.

Vzel sem zemljevid ZDA za urejanje. Ideja je poudariti državo v ZDA, ko je njeno ime izbrano s spustnega menija.

Nekaj, kot je prikazano na spodnji sliki:

Preden vam pokažem kodo, je tukaj nekaj predpogojev za ta trik.

1. Pridobite zemljevid ZDA za urejanje, v katerem lahko izberete različne oblike, ki jih želite poudariti
2. Ustvarite seznam vseh 50 držav v enem stolpcu, v stolpec na desni pa sem napisal stanje 1, stanje 2 itd.
   
3. Poimenujte vsako obliko na zemljevidu. Na primer, tukaj imam 50 oblik za 50 držav in vsako obliko sem poimenoval kot stanje 1, stanje 2, stanje 3 itd.… Če želite to narediti, izberite poljubno obliko in pojdite na polje z imenom, ki je na levo od vrstice formule in vnesite njeno ime iz stolpca Državna številka. Na primer, izbral sem Alabamo in jo poimenoval država 1.
4. Ustvarite spustni seznam v Excelu z imeni vseh držav (v tem primeru 2 USD $ 2)
5. S funkcijo Vlookup izvlecite številko stanja, ko je stanje izbrano s spustnega menija. Tukaj je formula, ki sem jo uporabil v celici $ B $ 3
   = VLOOKUP (B2, "državni seznam"! $ B $ 3: $ C 52,2, FALSE)

Koda za označevanje zemljevida v Excelu

Zasebni pod -delovni list_Sprememba (cilj ByVal kot obseg) Dim N kot celo število Dim ShapeName As String N = ActiveSheet.Shapes.count If Target.Address = "$ B $ 2" Potem For i = 1 To N ShapeName = ActiveSheet.Shapes (i). Name If Left (ShapeName, 6) = "State" Nato ActiveSheet. Oblike (i). Izberite z Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 1 End with End If Next i StateNumber = Range ("$ B $ 3" ) .Vrednost ActiveSheet.Shapes (StateNumber) .Izberite z Selection.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB (192, 0, 0). Transparenca = 0. Trden konec z ActiveSheet.Range "$ B $ 2"). Izberite End If End Sub

Med lepljenjem te kode sledite tem preprostim korakom

1. Najprej z desno miškino tipko kliknite zavihek lista z zemljevidom in izberite »Ogled kode«. S tem se odpre urejevalnik VB.
   
2. Prilepite kodo.