Marker Kart i Excel basert på rullegardinvalg i Excel

Her er et pent triks for folk som bruker kart i Excel. I denne bloggen vil jeg forklare hvordan du markerer kart i excel basert på et rullegardinvalg.

Jeg har tatt et redigerbart kart over USA. Tanken er å markere en stat i USA når navnet er valgt fra en rullegardinmeny.

Noe som vist på bildet nedenfor:

Nå før jeg viser deg koden, her er noen forutsetninger for dette trikset.

1. Få et redigerbart kart over USA der du kan velge forskjellige former du vil markere
2. Lag en liste over alle de 50 statene i en kolonne, og i kolonnen til høyre skrev jeg tilstand 1, stat 2, og så videre
   
3. Navngi hver form på kartet. For eksempel har jeg 50 figurer her for 50 stater, og jeg har navngitt hver figur som tilstand 1, stat 2, stat 3, og så videre … For å gjøre dette, velg hvilken som helst form og gå til navnefeltet, som er på til venstre for formellinjen, og skriv inn navnet fra kolonnen Statnummer. For eksempel valgte jeg Alabama og kalte det State 1.
4. Lag en rullegardinliste med Excel med navnene på alle delstatene ($ B $ 2 i dette tilfellet)
5. Bruk Vlookup -funksjonen til å trekke ut tilstandsnummeret når en tilstand er valgt fra rullegardinmenyen. Her er formelen jeg har brukt i celle $ B $ 3
   = VLOOKUP (B2, 'State List'! $ B $ 3: $ C $ 52,2, FALSE)

Kode for å markere kart i 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). Name If Left (ShapeName, 6) = "State" Then 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) .Velg With Selection.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB (192, 0, 0) .Transparency = 0 .Solid End With ActiveSheet.Range ( "$ B $ 2"). Velg End If End Sub

Følg disse enkle trinnene mens du limer inn denne koden

1. Høyreklikk først på arkfanen som har kartet og velg "Vis kode". Dette vil åpne VB -redaktøren.
   
2. Lim inn koden.