Fremhæv kort i Excel baseret på rullemenuen i Excel

Her er et pænt trick til folk, der bruger kort i Excel. I denne blog vil jeg forklare, hvordan man fremhæver kort i excel baseret på et drop down -valg.

Jeg har taget et redigerbart kort over USA. Ideen er at fremhæve en stat i USA, når dens navn vælges fra en rullemenu.

Noget som vist på billedet herunder:

Nu før jeg viser dig koden, er her et par forudsætninger for dette trick.

1. Få et redigerbart kort over USA, hvor du kan vælge forskellige former, som du vil fremhæve
2. Opret en liste over alle de 50 tilstande i en kolonne, og i kolonnen til højre skrev jeg tilstand 1, tilstand 2 og så videre
   
3. Navngiv hver form på kortet. For eksempel har jeg 50 figurer her for 50 tilstande, og jeg har navngivet hver form som tilstand 1, tilstand 2, tilstand 3 og så videre … For at gøre dette skal du vælge en hvilken som helst form og gå til navneboksen, som er på til venstre for formellinjen, og indtast dens navn fra kolonnen Statstal. For eksempel valgte jeg Alabama og kaldte det State 1.
4. Opret en Excel -rulleliste med navnene på alle staterne ($ B $ 2 i dette tilfælde)
5. Brug Vlookup -funktionen til at udtrække tilstandsnummeret, når der vælges en tilstand fra rullemenuen. Her er formlen, som jeg har brugt i celle $ B $ 3
   = VLOOKUP (B2, 'State List'! $ B $ 3: $ C $ 52,2, FALSK)

Kode til fremhævning af kort 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" Herefter ActiveSheet.Shapes (i) .Vælg med Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 1 End With End If Next i StateNumber = Range ("$ B $ 3" ) .Værdi ActiveSheet.Shapes (StateNumber) .Vælg med markering.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB (192, 0, 0) .Transparency = 0 .Solid End With ActiveSheet.Range ( "$ B $ 2"). Vælg End If End Sub

Følg disse enkle trin, mens du indsætter denne kode

1. Højreklik først på arkfanen, der har kortet, og vælg "Vis kode". Dette åbner VB -editoren.
   
2. Indsæt koden.