אתה יכול להשתמש א בקרת RefEdit ב Excel VBA כדי לקבל טווח ממשתמש. ה צורת משתמש אנו הולכים ליצור צבעים בערך המינימלי של טווח מאוחסן בבקרת RefEdit.
כדי ליצור טופס משתמש זה, בצע את השלבים הבאים.
1. פתח את עורך Visual Basic. אם סייר הפרויקט אינו גלוי, לחץ על תצוגה, סייר הפרויקט.
2. לחץ על הוספה, צורת משתמש. אם ארגז הכלים אינו מופיע אוטומטית, לחץ על תצוגה, ארגז כלים. המסך שלך צריך להיות מוגדר להלן.
3. הוסף את התווית, כפתורי השליטה והפקודה RefEdit. לאחר שהושלם, התוצאה צריכה להיות עקבית עם התמונה של טופס המשתמש המוצג קודם לכן. לדוגמה, צור פקד RefEdit על ידי לחיצה על RefEdit מתוך ארגז הכלים. לאחר מכן, תוכל לגרור פקד RefEdit על צורת המשתמש.
הערה: אם לארגז הכלים שלך אין פקד RefEdit, הגדר הפניה לבקרה RefEdit. לחץ על כלים, הפניות ובדוק את בקרת עריכת Ref.
4. אתה יכול לשנות את השמות ואת הכיתובים של הפקדים. שמות משמשים בקוד VBA של Excel. כיתובים הם אלה המופיעים על המסך שלך. זה נוהג טוב לשנות את שמות הפקדים, אבל זה לא הכרחי כאן כי יש לנו רק כמה פקדים בדוגמה זו. כדי לשנות את הכיתוב של לחצני טופס המשתמש, התווית והפקודה, לחץ על תצוגה, חלון מאפיינים ולחץ על כל פקד.
5. להצגת טופס המשתמש, מקם כפתור פקודה בגליון העבודה שלך והוסף את שורת הקוד הבאה:
Command Private SubButton1_Click ()
UserForm 1. הצג
סיום תת
כעת אנו הולכים ליצור את Sub UserForm_Initialize. כאשר אתה משתמש בשיטת הצג עבור טופס המשתמש, תת זה יבוצע אוטומטית.
6. פתח את עורך Visual Basic.
7. ב- Explorer Explorer, לחץ באמצעות לחצן העכבר הימני על UserForm1 ולאחר מכן לחץ על הצג קוד.
8. בחר Userform מתוך הרשימה הנפתחת השמאלית. בחר באתחול מהרשימה הנפתחת הימנית.
9. הוסף את שורות הקוד הבאות:
תת משתמש פרטי Form_Initialize ()
Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selection.Address
סיום תת
הסבר: שורת הקוד הראשונה משנה את צבע הגופן של כל התאים בגיליון 1 לשחור. שורת הקוד השנייה משיגה את כתובת הבחירה הנוכחית ומציגה אותה בפקד RefEdit.
יצרנו כעת את החלק הראשון של Userform. למרות שזה כבר נראה מסודר, עדיין לא יקרה כלום כאשר נלחץ על כפתורי הפקודה בטופס המשתמש.
10. ב- Explorer Explorer, לחץ פעמיים על UserForm1.
11. לחץ פעמיים על הלחצן Go.
12. הוסף את שורות הקוד הבאות:
Command Private SubButton1_Click ()
Dim addr As String, rng, cell As Range, מינימום ככפול
addr = RefEdit1.Value
הגדר rng = טווח (addr)
מינימום = גליון עבודה.מיני (rng)
עבור כל תא ב rng
אם cell.Value = minimum ואז cell.Font.Color = vbRed
התא הבא
סיום תת
הסבר: ראשית, אנו מקבלים את הכתובת מפקד RefEdit ומאחסנים אותה במשתנה ה- string addr. לאחר מכן, הגדרנו את rng לטווח שצוין בפקד RefEdit. לאחר מכן, אנו משתמשים בפונקציית גליון העבודה Min כדי למצוא את הערך המינימלי בטווח. לבסוף, אנו צובעים את הערכים המינימליים באמצעות לולאה.
13. לחץ פעמיים על כפתור הביטול.
14. הוסף את שורת הקוד הבאה:
פקודת משנה פרטית Button2_Click ()
תוריד אותי
סיום תת
הסבר: שורת קוד זו סוגרת את טופס המשתמש בעת לחיצה על כפתור הביטול.
15. בדוק את טופס המשתמש.
תוֹצָאָה:
