✅ Excel'deki Açılır Seçime dayalı olarak Excel'de Haritayı Vurgulayın

İçindekiler

İşte Excel'de harita kullananlar için güzel bir numara. Bu blogda, açılır bir seçime dayalı olarak excel'de haritanın nasıl vurgulanacağını açıklayacağım.

ABD'nin düzenlenebilir bir haritasını aldım. Buradaki fikir, adı bir açılır menüden seçildiğinde ABD'deki bir eyaleti vurgulamaktır.

Aşağıdaki resimde gösterildiği gibi bir şey:

Şimdi size kodu göstermeden önce, bu numara için birkaç önkoşul var.

Vurgulamak istediğiniz farklı şekilleri seçebileceğiniz düzenlenebilir bir ABD haritası edinin
Bir sütunda tüm 50 durumun bir listesini oluşturun ve sağındaki sütuna Durum 1, Durum 2 vb. yazdım.
Haritadaki her şekli adlandırın. Örneğin, burada 50 durum için 50 şeklim var ve her bir Şekli Durum 1, Durum 2, Durum 3 vb. olarak adlandırdım… Bunu yapmak için herhangi bir şekli seçin ve üzerinde bulunan Ad Kutusuna gidin. formül çubuğunun soluna gidin ve adını Eyalet Numarası sütunundan girin. Örneğin, Alabama'yı seçtim ve Devlet 1 olarak adlandırdım.
Tüm eyaletlerin adlarını içeren bir Excel açılır listesi oluşturun (bu durumda $B$2)
Açılır menüden bir durum seçildiğinde durum numarasını çıkarmak için Vlookup işlevini kullanın. $B$3 hücresinde kullandığım formül
=DÜŞEYARA(B2,'Devlet Listesi'!$B$3:$C$52,2,YANLIŞ)

Excel'de Haritayı Vurgulama Kodu

Private Sub Worksheet_Change(ByVal Target As Range) Dim N Integer Dim ShapeName As String N = ActiveSheet.Shapes.count If Target.Address = "$B$2" Sonra For i = 1 To N ShapeName = ActiveSheet.Shapes(i). Name If Left(ShapeName, 6) = "State " O zaman 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).Selection.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB(192, 0, 0) .Transparency = 0 .Solid End with ActiveSheet.Range( "$B$2"). End If End Sub'ı seçin

Bu kodu yapıştırırken bu basit adımları izleyin