ב- VBA אנו יכולים לבחור כל טווח של תאים או קבוצת תאים ולבצע עליהם קבוצה שונה של פעולות, הבחירה היא אובייקט טווח ולכן אנו משתמשים בשיטת טווח לבחירת התאים כפי שהיא מזהה את התאים והקוד לבחירת התאים הוא הפקודה "בחר", התחביר לשימוש בבחירה הוא טווח (A1: B2). בחר.
מהו מאפיין בחירת Excel VBA?
הבחירה היא הנכס הזמין עם VBA. לאחר שנבחר טווח התאים עלינו להחליט מה עלינו לעשות. לכן, באמצעות מאפיין VBA זה "בחירה" נוכל לעשות את כל הדברים שאנחנו יכולים לעשות עם התאים שנבחרו. אחת הבעיות במאפיין הבחירה היא שלא נוכל לראות את רשימת IntelliSense. לכן כשאנחנו כותבים את הקוד עלינו להיות בטוחים לחלוטין מה אנו עושים ללא רשימת IntelliSense.
דוגמאות למאפיין בחירה ב- VBA
כאן אנו מסתכלים על דוגמאות הבחירה ב- Excel VBA.
אתה יכול להוריד תבנית Excel זו של בחירת VBA כאן - תבנית Excel של בחירת VBA
דוגמה מס '1
תן לי להראות לך דוגמה פשוטה למאפיין "בחירה" עם VBA. עכשיו אני רוצה לבחור תחילה את התאים מ- A1 ל- B5, לשם כך נוכל לכתוב את קוד ה- VBA כך.
טווח ( "A1: B5" ). בחר
קוד:
Sub Selection_Example1 () טווח ("A1: B5"). בחר Sub Sub קוד זה יבחר את טווח ה- VBA של התאים מ- A1 ל- B5.
אם אני רוצה להכניס את הערך של "שלום" לתאים האלה אני יכול לכתוב את הקוד כך.
קוד:
Sub Selection_Example1 () טווח ("A1: B5"). ערך = "שלום" סוף משנה 
באופן דומה, לאחר שנבחרו התאים הוא הופך להיות "בחירה".
קוד:
Sub Selection_Example1 () טווח ("A1: B5"). בחר Selection.Value = "שלום" Sub Sub בראשונה לעיל בחרתי את טווח התאים מ- A1 ל- B5. אז, שורה זו תבחר את התאים.
לאחר שנבחר תאים אלה אנו יכולים להתייחס לתאים אלה באמצעות המאפיין "בחירה" ב- Excel VBA. אז באמצעות מאפיין הבחירה נוכל להוסיף את הערך של "שלום" לתאים אלה.
זוהי הסקירה הכללית של המאפיין "בחירה" ב- VBA.
דוגמה מס '2
כעת נראה את המאפיין "בחירה" של VBA עם משתנים. הגדר את משתנה ה- VBA כטווח.
קוד:
Sub Selection_Example2 () עמעום Rng כטווח סוף Sub
הטווח הוא משתנה של אובייקט מכיוון שהוא משתנה של אובייקט שעלינו להגדיר את טווח התאים באמצעות מילת המפתח "Set".
אני אקבע את הטווח כ- "טווח (" A1: A6 ").
קוד:
Sub Selection_Example2 () העמעם Rng כטווח הגדר Rng = טווח ("A1: A6") סוף משנה 
כעת המשתנה " Rng " מתייחס לטווח התאים A1 עד A6 .
עכשיו אכתוב את הקוד כדי להכניס את הערך של " שלום ".
קוד:
Sub Selection_Example2 () עמעום Rng כטווח הגדר Rng = טווח ("A1: A6") Rng.Value = "שלום" סוף משנה 
זה יכניס את הערך של "שלום" לתאים A1 עד A6.
לא משנה מאיפה אתה מריץ את הקוד, בגליון העבודה הפעיל הוא יכניס את הערך "שלום" לתא A1 עד A6.
אך דמיין את המצב שבו עליך להכניס את המילה "שלום" בכל מקום שתבחר בתאים בלחיצת כפתור בלבד.
לשם כך איננו יכולים להגדיר את טווח התאים הספציפי, אלא עלינו להגדיר את הטווח כ"בחירה ".
קוד:
Sub Selection_Example2 () עמעום Rng כטווח הגדר Rng = בחירת Sub Sub
כעת המשתנה "Rng" מתייחס לתא הפעיל או לכל מקום בו אנו בוחרים את התאים. כעת באמצעות מאפיין זה (Selection) ב- VBA excel נוכל להוסיף ערך "שלום".
קוד:
Sub Selection_Example2 () עמעום Rng כטווח הגדר Rng = Selection Selection.Value = "שלום" Sub Sub
זה יכניס את המילה "שלום" לתאי הבחירה שלנו. עכשיו אבחר את התאים מ B2 עד C6 ואפעיל את הקוד, הוא יכניס את הערך "שלום".
דוגמה מס '3
כעת נראה כיצד אנו יכולים לשנות את צבע הפנים של התאים שנבחרו. עכשיו אני רוצה לשנות את הצבע הפנימי של התאים שאבחר. ראשית זו, הכרזתי על המשתנה כ- Range והגדרתי את הפניה לטווח כ- "Selection".
קוד:
Sub Selection_Example3 () עמעום Rng כטווח הגדר Rng = בחירת Sub Sub
משתמש כעת במאפיין VBA Selection, נכס "פנים" .
קוד:
Sub Selection_Example3 () עמעום Rng כטווח הגדר Rng = בחירת בחירה. Sub End End
לאחר שנבחר נכס "פנים" עלינו להחליט מה עלינו לעשות עם נכס זה. מכיוון שעלינו לשנות את צבע פנים התא שנבחר בחר את המאפיין "צבע".
קוד:
Sub Selection_Example3 () עמעום Rng כטווח הגדר Rng = בחירת בחירה. פנים. משנה סוף צבע
הגדר את מאפיין הצבע כ- " vbGreen ".
קוד:
Sub Selection_Example3 () Dim Rng כטווח הגדר Rng = Selection Selection.Interior.Color = vbGreen Sub Sub
אז זה ישנה את הצבע הפנימי של התאים שנבחרו ל- "vbGreen".
כמו זה, אנו יכולים להשתמש במאפיין "בחירה" של Excel VBA בקידוד ולעשות הרבה יותר דברים בקלות.
הערה: אחד האיומים הגדולים ביותר עם מאפיין "בחירה" הוא שאנחנו לא מקבלים גישה לרשימת IntelliSense בזמן הקידוד. כלומד חדש זה כמעט בלתי אפשרי לזכור את כל המאפיינים והשיטות של מאפיין הבחירה, לכן עליך להיות מקצוען לחלוטין ב- VBA כדי להתחיל להשתמש במאפיין "בחירה".