Wyróżnij mapę w programie Excel na podstawie wyboru rozwijanego w programie Excel

Oto fajna sztuczka dla osób korzystających z map w programie Excel. W tym blogu wyjaśnię, jak podświetlić mapę w programie Excel na podstawie wyboru z listy rozwijanej.

Wziąłem edytowalną mapę USA. Chodzi o to, aby wyróżnić stan w USA, gdy jego nazwa zostanie wybrana z listy rozwijanej.

Coś jak pokazano na poniższym zdjęciu:

Teraz, zanim pokażę ci kod, oto kilka warunków wstępnych dla tej sztuczki.

1. Uzyskaj edytowalną mapę USA, w której możesz wybrać różne kształty, które chcesz podkreślić
2. Utwórz listę wszystkich 50 stanów w jednej kolumnie, a w kolumnie po jej prawej stronie napisałem Stan 1, Stan 2 i tak dalej
   
3. Nazwij każdy kształt na mapie. Na przykład mam tutaj 50 kształtów dla 50 stanów i nazwałem każdy kształt jako Stan 1, Stan 2, Stan 3 itd. Aby to zrobić, wybierz dowolny kształt i przejdź do pola nazwy, które jest włączone po lewej stronie paska formuły i wprowadź jego nazwę z kolumny Numer stanu. Na przykład wybrałem Alabama i nazwałem ją Stan 1.
4. Utwórz listę rozwijaną programu Excel z nazwami wszystkich stanów (w tym przypadku $ B $ 2)
5. Użyj funkcji Vlookup, aby wyodrębnić numer stanu, gdy stan jest wybrany z listy rozwijanej. Oto formuła, której użyłem w komórce $ B $ 3
   =WYSZUKAJ.PIONOWO(B2,'Lista stanów'!$B3:$C$52,2,FAŁSZ)

Kod do podświetlenia mapy w programie 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 do N ShapeName = ActiveSheet.Shapes(i). Name If Left(ShapeName, 6) = "State" Then ActiveSheet.Shapes(i).Select With Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 1 Koniec z końcem 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").Wybierz Koniec, jeśli Zakończ Sub

Wykonaj te proste czynności podczas wklejania tego kodu

1. Najpierw kliknij prawym przyciskiem myszy kartę arkusza z mapą i wybierz „Wyświetl kod”. To otworzy edytor VB.
   
2. Wklej kod.