Маркирайте карта в Excel въз основа на падащо меню в Excel

Ето един чист трик за хората, които използват карти в Excel. В този блог ще обясня как да подчертая картата в excel въз основа на падащо меню.

Взех карта за редактиране на САЩ. Идеята е да се подчертае състояние в САЩ, когато името му е избрано от падащо меню.

Нещо, както е показано на снимката по -долу:

Сега, преди да ви покажа кода, ето няколко предпоставки за този трик.

1. Вземете карта за редактиране на САЩ, в която можете да изберете различни форми, които искате да маркирате
2. Създайте списък с всичките 50 състояния в една колона и в колоната вдясно написах State 1, State 2 и т.н.
   
3. Назовете всяка форма на картата. Например тук имам 50 форми за 50 състояния и съм кръстил всяка форма като състояние 1, състояние 2, състояние 3 и т.н. … За да направите това, изберете произволна форма и отидете на полето за име, което е на вляво от лентата с формули и въведете нейното име от колоната State Number. Например, избрах Алабама и го кръстих щат 1.
4. Създайте падащ списък на Excel с имената на всички държави (в този случай $ B $ 2)
5. Използвайте функцията Vlookup, за да извлечете номера на състоянието, когато е избрано състояние от падащото меню. Ето формулата, която използвах в клетка $ B $ 3
   = VLOOKUP (B2, 'State List'! $ B $ 3: $ C $ 52,2, FALSE)

Код за маркиране на карта в 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" Тогава For i = 1 To N ShapeName = ActiveSheet.Shapes (i). Name If Left (ShapeName, 6) = "State" Тогава ActiveSheet.Shapes (i). Изберете With Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 1 End With End If Next i StateNumber = Range ("$ B $ 3" ) .Value ActiveSheet.Shapes (StateNumber) .Изберете с Selection.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB (192, 0, 0). Transparence = 0. Solid End With ActiveSheet.Range ( "$ B $ 2"). Изберете End If End Sub

Следвайте тези прости стъпки, докато поставяте този код

1. Първо щракнете с десния бутон върху раздела на листа, който има картата и изберете „Преглед на кода“. Това ще отвори VB редактора.
   
2. Поставете кода.