Pažymėkite „Excel“ žemėlapį pagal išskleidžiamąjį pasirinkimą „Excel“

Čia yra puikus triukas žmonėms, kurie naudoja žemėlapius „Excel“. Šiame tinklaraštyje paaiškinsiu, kaip „Excel“ pažymėti žemėlapį, remiantis išskleidžiamu meniu.

Aš paėmiau redaguojamą JAV žemėlapį. Idėja yra paryškinti JAV valstiją, kai jos pavadinimas yra pasirinktas iš išskleidžiamojo meniu.

Kažkas, kaip parodyta paveikslėlyje žemiau:

Prieš parodydamas jums kodą, čia yra keletas būtinų šio triuko sąlygų.

1. Gaukite redaguojamą JAV žemėlapį, kuriame galite pasirinkti skirtingas figūras, kurias norite paryškinti
2. Viename stulpelyje sukurkite visų 50 būsenų sąrašą, o dešinėje esančiame stulpelyje parašiau 1 būsena, 2 būsena ir pan.
   
3. Pavadinkite kiekvieną figūrą žemėlapyje. Pavyzdžiui, čia turiu 50 formų, skirtų 50 būsenų, ir kiekvieną formą pavadinau 1 būsena, 2 būsena, 3 būsena ir pan.… Norėdami tai padaryti, pasirinkite bet kurią formą ir eikite į pavadinimo laukelį, kuris kairėje formulės juostoje ir įveskite jos pavadinimą iš stulpelio „Valstybės numeris“. Pavyzdžiui, aš pasirinkau Alabamą ir pavadinau ją valstija 1.
4. Sukurkite išskleidžiamąjį „Excel“ sąrašą su visų valstijų pavadinimais (šiuo atveju $ B $ 2)
5. Naudokite funkciją „Vlookup“ būsenos numeriui išgauti, kai iš išskleidžiamojo meniu pasirenkama būsena. Štai formulė, kurią naudojau $ B $ 3 langelyje
   = VLOOKUP (B2, „būsenų sąrašas“! $ B $ 3: $ C $ 52,2, FALSE)

„Excel“ žemėlapio paryškinimo kodas

Privatus antrinis darbalapio keitimas („ByVal Target As Range“) Dim N kaip sveikasis skaičius Dim ShapeName As String N = ActiveSheet.Shapes.count If Target.Address = "$ B $ 2" Tada For i = 1 to N ShapeName = ActiveSheet.Shapes (i). Vardas, jei kairė (ShapeName, 6) = "būsena" Tada ActiveSheet.Shapes (i). Pasirinkite su Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 1 Pabaiga su pabaiga, jei kita i StateNumber = Diapazonas ("$ B $ 3" ) .Value ActiveSheet.Shapes (StateNumber). Pasirinkite su Selection.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB (192, 0, 0) .Transparency = 0. Solid End with ActiveSheet.Range ( „$ B $ 2“). Pasirinkite Pabaigti, jei pabaiga

Įklijuodami šį kodą atlikite šiuos paprastus veiksmus

1. Pirmiausia dešiniuoju pelės mygtuku spustelėkite lapo skirtuką, kuriame yra žemėlapis, ir pasirinkite „Peržiūrėti kodą“. Tai atidarys VB redaktorių.
   
2. Įklijuokite kodą.