Označite Kartu u Excelu na temelju padajućeg odabira u Excelu

Evo zgodnog trika za ljude koji koriste karte u Excelu. U ovom blogu ću objasniti kako istaknuti kartu u excelu na temelju padajućeg odabira.

Uzeo sam kartu Sjedinjenih Država za uređivanje. Ideja je istaknuti državu u SAD -u kada se njezin naziv odabere s padajućeg izbornika.

Nešto kao što je prikazano na slici ispod:

Prije nego što vam pokažem kôd, evo nekoliko preduvjeta za ovaj trik.

1. Nabavite kartu SAD -a za uređivanje u kojoj možete odabrati različite oblike koje želite istaknuti
2. Napravite popis svih 50 stanja u jednom stupcu, a na stupcu s desne strane napisao sam Stanje 1, Stanje 2 itd.
   
3. Imenujte svaki oblik na karti. Na primjer, ovdje imam 50 oblika za 50 stanja, a svaki sam oblik nazvao Stanjem 1, Stanjem 2, Stanjem 3 i tako dalje … Da biste to učinili, odaberite bilo koji oblik i idite na okvir s imenom koji je na lijevo od trake formule i unesite njezin naziv iz stupca Državni broj. Na primjer, odabrao sam Alabamu i nazvao je država 1.
4. Izradite padajući popis programa Excel s imenima svih država (u ovom slučaju $ 2 USD)
5. Upotrijebite funkciju Vlookup za izdvajanje broja stanja kada je stanje odabrano s padajućeg izbornika. Evo formule koju sam koristio u ćeliji $ B $ 3
   = VLOOKUP (B2, "Popis država"! $ B $ 3: $ C 52,2, FALSE)

Kôd za označavanje karte u Excelu

Privatni podradni list_Promijeni (ByVal cilj kao raspon) Dim N kao cijeli broj Dim ShapeName As String N = ActiveSheet.Shapes.count If Target.Address = "$ B $ 2" Tada je za i = 1 do N ShapeName = ActiveSheet.Shapes (i). Name If Left (ShapeName, 6) = "State" Zatim ActiveSheet.Shapes (i) .Izaberite Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 1 End With End If Next i StateNumber = Range ("$ B $ 3" ) .Vrijednost ActiveSheet.Oblici (StateNumber) .Izaberite s Selection.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB (192, 0, 0). Transparencija = 0. Čvrsti kraj s ActiveSheet.Range ( "$ B $ 2"). Odaberite End If End Sub

Slijedite ove jednostavne korake prilikom lijepljenja ovog koda

1. Najprije desnom tipkom miša kliknite karticu s kartom i odaberite "Prikaži kôd". Ovo će otvoriti VB editor.
   
2. Zalijepite kôd.