Jelölje ki a Térképet az Excel programban az Excel legördülő választása alapján

Ez egy remek trükk azok számára, akik Excelben használják a térképeket. Ebben a blogban elmagyarázom, hogyan kell kiemelni a térképet az Excelben egy legördülő menü alapján.

Vettem egy szerkeszthető térképet az USA -ról. Az ötlet az, hogy kiemeljen egy államot az Egyesült Államokban, amikor a nevét legördülő menüből választja ki.

Valami az alábbi képen látható módon:

Mielőtt megmutatnám a kódot, itt van néhány előfeltétele ennek a trükknek.

1. Szerezzen be egy szerkeszthető térképet az Egyesült Államokról, amelyben kiválaszthat különböző kiemelni kívánt formákat
2. Hozzon létre egy listát az összes 50 állapotról egy oszlopban, és a jobb oldali oszlopba írtam az 1. állapotot, a 2. állapotot stb.
   
3. Nevezzen meg minden alakzatot a térképen. Például itt van 50 alakzatom 50 állapothoz, és mindegyik alakzatot 1, 2, 3 államnak stb. a képlet bal oldalán, és írja be a nevét az Állapotszám oszlopból. Például az Alabamát választottam, és államnak neveztem el.
4. Hozzon létre egy Excel legördülő listát az összes állam nevével (ebben az esetben $ B $ 2)
5. Használja a Vlookup funkciót az állapotszám kibontásához, ha egy állapot van kiválasztva a legördülő menüből. Itt van a képlet, amelyet a $ B $ 3 cellában használtam
   = VLOOKUP (B2, „Állami lista”! $ B $ 3: $ C $ 52,2, FALSE)

Kód a térkép kiemeléséhez Excelben

Privát almunkalap_változás (ByVal cél mint tartomány) Dim N mint egész Dim Dim ShapeName Mint String N = ActiveSheet.Shapes.count If Target.Address = "$ B $ 2" then For i = 1 to N ShapeName = ActiveSheet.Shapes (i). Név If Left (ShapeName, 6) = "State", majd ActiveSheet.Shapes (i). Select with Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 1 End with End if Next i StateNumber = Range ("$ B $ 3" ) .Value ActiveSheet.Shapes (StateNumber). Válassza ki a Selection.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB (192, 0, 0) .Transparency = 0 .Solid End ActiveSheet.Range ( "$ B $ 2"). Válassza az End If End Sub lehetőséget

Kövesse ezeket az egyszerű lépéseket a kód beillesztése közben

1. Először kattintson a jobb gombbal arra a lapra, amelyen a térkép található, és válassza a „Kód megtekintése” lehetőséget. Ez megnyitja a VB szerkesztőt.
   
2. Illessze be a kódot.