הדגש מפה ב- Excel בהתבסס על בחירה נפתחת ב- Excel

להלן טריק מסודר לאנשים המשתמשים במפות ב- Excel. בבלוג זה אסביר כיצד להדגיש מפה באקסל על סמך בחירה נפתחת.

צילמתי מפה של ארצות הברית הניתנת לעריכה. הרעיון הוא להדגיש מדינה בארה"ב כאשר שמה נבחר מתוך תפריט נפתח.

משהו כפי שמוצג בתמונה למטה:

עכשיו לפני שאני אראה לכם את הקוד, להלן מספר תנאים מוקדמים לטריק הזה.

1. קבל מפה הניתנת לעריכה של ארה"ב בה תוכל לבחור צורות שונות שברצונך להדגיש
2. צור רשימה של כל 50 המדינות בעמודה אחת, ובעמודה מימין כתבתי את מצב 1, מדינה 2 וכן הלאה.
   
3. תן שם לכל צורה על המפה. לדוגמה, יש לי 50 צורות כאן ל -50 מצבים, ושמתי כל צורה בשם מדינה 1, מדינה 2, מדינה 3 וכן הלאה … לשם כך, בחר צורה כלשהי ועבור לתיבת השמות, המופיעה על משמאל לסרגל הנוסחאות והזן את שמו מעמודה מספר מדינה. לדוגמה, בחרתי באלבמה וקראתי לה מדינה 1.
4. צור רשימה נפתחת של Excel עם שמות כל המדינות ($ B $ 2 במקרה זה)
5. השתמש בפונקציית Vlookup כדי לחלץ את מספר המדינה כאשר מדינה נבחרת מהתפריט הנפתח. להלן הנוסחה בה השתמשתי בתא $ B $ 3
   = VLOOKUP (B2, 'רשימת מדינות'! $ B $ 3: $ C $ 52,2, שקר)

קוד להדגשת מפה ב- Excel

תת פרטי גליון עבודה_שינוי (ByVal Target as Range) Dim N כמספר שלם Dim ShapeName כמחרוזת N = ActiveSheet.Shapes.count If Target.Address = "$ B $ 2" ואז עבור i = 1 ל- N ShapeName = ActiveSheet.Shapes (i). Name If Left (ShapeName, 6) = "State" ואז ActiveSheet.Shapes (i). בחר With Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 1 End with End If Next i StateNumber = Range ("$ B $ 3" ) .Value ActiveSheet.Shapes (StateNumber). בחר עם Selection.ShapeRange.Fill .Visible = msoTrue .Visible = msoTrue .ForeColor.RGB = RGB (192, 0, 0). שקיפות = 0. קצה מוצק עם ActiveSheet.Range ( "$ B $ 2"). בחר סוף אם סיום משנה

בצע את השלבים הפשוטים הבאים בעת הדבקת קוד זה

1. ראשית, לחץ באמצעות לחצן העכבר הימני על לשונית הגיליון הכוללת את המפה ובחר "הצג קוד". פעולה זו תפתח את עורך VB.
   
2. הדבק את הקוד.