Destaque o mapa no Excel com base na seleção suspensa no Excel

Aqui está um truque interessante para pessoas que usam mapas no Excel. Neste blog, irei explicar como destacar um mapa no Excel com base em uma seleção suspensa.

Peguei um mapa editável dos EUA. A ideia é destacar um estado nos EUA quando seu nome for selecionado em uma lista suspensa.

Algo conforme mostrado na foto abaixo:

Antes de mostrar o código, aqui estão alguns pré-requisitos para esse truque.

1. Obtenha um mapa editável dos EUA, no qual você pode selecionar diferentes formas que deseja destacar
2. Crie uma lista de todos os 50 estados em uma coluna e, na coluna à sua direita, escrevi Estado 1, Estado 2 e assim por diante
   
3. Nomeie cada forma no mapa. Por exemplo, tenho 50 formas aqui para 50 estados, e nomeei cada forma como estado 1, estado 2, estado 3 e assim por diante … Para fazer isso, selecione qualquer forma e vá para a caixa de nome, que está em à esquerda da barra de fórmulas e insira seu nome na coluna Número do estado. Por exemplo, selecionei Alabama e chamei-o de Estado 1.
4. Crie uma lista suspensa do Excel com os nomes de todos os estados ($ B $ 2 neste caso)
5. Use a função Vlookup para extrair o número do estado quando um estado é selecionado no menu suspenso. Aqui está a fórmula que usei na célula $ B $ 3
   = VLOOKUP (B2, 'Lista de estados'! $ B $ 3: $ C $ 52,2, FALSO)

Código para realçar o mapa no 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) .Selecione com Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 1 End With End If Next i StateNumber = Range ("$ B $ 3" ) .Value ActiveSheet.Shapes (StateNumber) .Select With Selection.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB (192, 0, 0) .Transparency = 0 .Solid End With ActiveSheet.Range ( "$ B $ 2"). Selecione End If End Sub

Siga estas etapas simples ao colar este código

1. Primeiro, clique com o botão direito na guia da planilha que contém o mapa e selecione “Exibir código”. Isso abrirá o editor VB.
   
2. Cole o código.