✅ Означите мапу у Екцелу на основу падајућег избора у Екцелу

Преглед садржаја

Ево згодног трика за људе који користе мапе у Екцелу. У овом блогу ћу објаснити како означити карту у екцелу на основу падајућег избора.

Узео сам карту Сједињених Држава за уређивање. Идеја је да се истакне држава у САД -у када се њено име одабере са падајућег менија.

Нешто као што је приказано на слици испод:

Пре него што вам покажем код, ево неколико предуслова за овај трик.

Набавите мапу САД -а за уређивање у којој можете изабрати различите облике које желите да истакнете
Направите листу свих 50 држава у једној колони, а у колони са десне стране сам написао стање 1, стање 2 итд.
Именујте сваки облик на карти. На пример, овде имам 50 облика за 50 стања, а сваки облик сам назвао Стањем 1, Стањем 2, Стањем 3 итд. Да бисте то урадили, изаберите било који облик и идите на оквир за име који је на лево од траке формуле и унесите њено име из колоне Државни број. На пример, изабрао сам Алабаму и назвао је држава 1.
Направите Екцел падајућу листу са именима свих држава (у овом случају $ 2 УСД)
Користите функцију Влоокуп за издвајање броја стања када је стање изабрано са падајућег менија. Ево формуле коју сам користио у ћелији $ Б $ 3
= ВЛООКУП (Б2, „Државна листа“! $ Б $ 3: $ 52,2 УСД, ФАЛСЕ)

Код за истицање карте у Екцелу

Привате Суб Ворксхеет_Цханге (БиВал Таргет Ас Ранге) Дим Н Ас Интегер Дим СхапеНаме Ас Стринг Н = АцтивеСхеет.Схапес.цоунт Иф Таргет.Аддресс = "$ Б $ 2" Затим за и = 1 до Н СхапеНаме = АцтивеСхеет.Схапес (и). Наме Иф Лефт (СхапеНаме, 6) = "Стате" Затим АцтивеСхеет.Схапес (и) .Селецт Витх Селецтион.СхапеРанге.Филл .Висибле = мсоФалсе .Транспаренци = 1 Енд Витх Енд Иф Нект и СтатеНумбер = Ранге ("$ Б $ 3" ) .Вредност АцтивеСхеет.Схапес (СтатеНумбер) .Селецт Витх Селецтион.СхапеРанге.Филл .Висибле = мсоТруе .Висибле = мсоТруе .ФореЦолор.РГБ = РГБ (192, 0, 0) .Транспаренци = 0 .Солид Енд Витх АцтивеСхеет.Ранге ( "$ Б $ 2"). Изаберите Енд Иф Енд Суб

Пратите ове једноставне кораке приликом лепљења овог кода