✅ Виділіть карту в Excel на основі випадаючого вибору в Excel

Зміст

Ось хитрий трюк для людей, які використовують карти в Excel. У цьому блозі я поясню, як виділити карту в Excel на основі випадаючого вибору.

Я взяв карту США, яку можна редагувати. Ідея полягає в тому, щоб виділити штат у США, коли його назву вибирається зі спадного меню.

Щось, як показано на фото нижче:

Тепер, перш ніж я покажу вам код, ось кілька передумов для цього трюку.

Отримайте редаговану карту США, на якій можна вибрати різні фігури, які потрібно виділити
Створіть список усіх 50 станів в одному стовпці, а у стовпці праворуч я написав стан 1, стан 2 тощо
Назвіть кожну фігуру на карті. Наприклад, у мене тут 50 фігур для 50 станів, і я назвав кожну фігуру як стан 1, стан 2, стан 3 і так далі … Для цього виберіть будь -яку форму та перейдіть до вікна імені, що ліворуч від рядка формул і введіть його ім’я зі стовпця Номер держави. Наприклад, я вибрав Алабаму і назвав її державою 1.
Створіть випадаючий список Excel з назвами всіх штатів (у цьому випадку $ B $ 2)
Використовуйте функцію Vlookup, щоб витягти номер стану, коли стан вибирається зі спадного меню. Ось формула, яку я використав у клітині $ B $ 3
= VLOOKUP (B2, "Державний список"! $ B $ 3: $ C $ 52,2, НЕВІРНО)

Код для виділення карти в Excel

Приватний підрядник_зміни (ціль ByVal як діапазон) Dim N як ціле число Dim ShapeName як рядок N = ActiveSheet.Shapes.count If Target.Address = "$ B $ 2" Тоді для i = 1 To N ShapeName = ActiveSheet.Shapes (i). Найменування Якщо ліворуч (ShapeName, 6) = "Стан" Тоді ActiveSheet.Shapes (i) .Виберіть з Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 1 Закінчиться з End Якщо Next i StateNumber = Діапазон ("$ B $ 3" ) .Value ActiveSheet.Shapes (StateNumber) .Select With Selection.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB (192, 0, 0) .Transparency = 0 .Solid End With ActiveSheet.Range ( "$ B $ 2"). Виберіть "Закінчити, якщо кінець суб."

Під час вставлення цього коду виконайте ці прості кроки