Tõstke Excelis esile kaart Exceli rippmenüü valiku põhjal

Siin on kaval trikk inimestele, kes kasutavad Excelis kaarte. Selles ajaveebis selgitan, kuidas Excelis kaarti esile tõsta rippmenüü alusel.

Olen võtnud USA redigeeritava kaardi. Idee on esile tuua USA osariik, kui selle nimi on rippmenüüst valitud.

Midagi, nagu on näidatud alloleval pildil:

Nüüd, enne kui näitan teile koodi, on siin selle triki jaoks mõned eeltingimused.

1. Hankige redigeeritav USA kaart, kus saate valida erinevaid kujundeid, mida soovite esile tõsta
2. Looge ühes veerus kõigi 50 osariigi loend ja paremale veerule kirjutasin olek 1, osariik 2 jne.
   
3. Nimetage kaardil iga kuju. Näiteks on mul siin 50 oleku jaoks 50 kujundit ja olen iga kuju nimetanud olekuks 1, osariigiks 2, osariigiks 3 jne. Selleks valige mis tahes kuju ja minge nimekasti, mis on sisse lülitatud valemiriba vasakule ja sisestage selle nimi veerust Osariigi number. Näiteks valisin Alabama ja nimetasin selle osariigiks 1.
4. Looge Exceli ripploend kõigi osariikide nimedega (antud juhul $ B $ 2)
5. Kasutage funktsiooni Vlookup olekunumbri väljavõtmiseks, kui rippmenüüst on valitud olek. Siin on valem, mida olen kasutanud lahtris $ B $ 3
   = VLOOKUP (B2, osariikide nimekiri! $ B $ 3: $ C $ 52,2, FALSE)

Kood Excelis kaardi esiletõstmiseks

Privaatne alamlehe_muutmine (ByVal sihtmärk vahemikuna) Dim N täisarvuna Dim ShapeName nagu string N = ActiveSheet.Shapes.count If Target.Address = "$ B $ 2" Siis For i = 1 to N ShapeName = ActiveSheet.Shapes (i). Nimi If Left (ShapeName, 6) = "State" Siis ActiveSheet.Shapes (i). Valige koos Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 1 End End kui Next i StateNumber = Range ("$ B $ 3" ) .Value ActiveSheet.Shapes (StateNumber). Valige koos Selection.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB (192, 0, 0) .Transparency = 0. Tahke lõpp ActiveSheet.Range ( "$ B $ 2"). Valige Lõpeta, kui lõpetada alam

Selle koodi kleepimisel järgige neid lihtsaid samme

1. Esiteks paremklõpsake kaardilehe vahekaardil ja valige „Vaata koodi”. See avab VB redaktori.
   
2. Kleepige kood.