להלן נבחן תוכנית ב Excel VBA זֶה מוצא את הערך השני בגובהו.
מַצָב:
1. ראשית, אנו מכריזים על שני אובייקטים של טווח ושני משתנים מהסוג כפול. אנו קוראים לאובייקטים של טווח rng ותא. משתנה כפול אחד שאנו קוראים לו HighestValue, ולמשתנה כפול אחד אנו קוראים לו SecondHighestValue.
Dim rng As Range, cell As Range
עמום הגבוההערך ככפול, השניהערך הגבוה ביותר ככפול
2. אנו מאתחלים את אובייקט הטווח rng עם הטווח הנבחר ושני המשתנים הכפולים עם ערך 0.
הגדר rng = בחירה
valueValue = 0
secondHighestValue = 0
3. ראשית, אנו רוצים למצוא את הערך הגבוה ביותר. אנו רוצים לבדוק כל תא בטווח שנבחר באופן אקראי (טווח זה יכול להיות בכל גודל). ב- Excel VBA, תוכל להשתמש בלולאה 'לכל כל הבא' לשם כך. הוסף את שורות הקוד הבאות:
'מצא את הערך הגבוה ביותר
עבור כל תא ב rng
התא הבא
הערה: rng ותא נבחרים כאן באופן אקראי, אתה יכול להשתמש בכל שמות. זכור להתייחס לשמות אלה בשאר הקוד שלך. הקו הירוק הוא הערה והוא מתווסף כאן רק כדי לספק מידע על פיסת קוד זו.
4. אנו בודקים כל תא בטווח זה. אם הוא גבוה מה- highValue, אנו כותבים את הערך למשתנה הגבוה ביותר. הוסף את שורת הקוד הבאה ללולאה.
אם cell.Value> highestValue אז הגבוה ביותר = cell.Value
הערה: הערך הראשון תמיד גבוה מה- highValue מכיוון שהערך ההתחלתי של valueValue הוא 0.
5. שנית, אנו רוצים למצוא את הערך השני בגובהו. אנו מוסיפים לולאה נוספת עבור כל הבא.
'מצא את הערך השני בגובהו
עבור כל תא ב rng
התא הבא
6. אנו בודקים שוב כל תא בטווח הנבחר. אם הוא גבוה מ- SecondHighestValue ונמוך מ- HighValue, נכתוב את הערך למשתנה secondHighestValue. הוסף את שורת הקוד הבאה ללולאה.
אם cell.Value> secondHighestValue ו cell.Value <hoogste ערך אז secondHighestValue = cell.Value
7. לבסוף, אנו מציגים את הערך השני בגובהו באמצעות MsgBox.
MsgBox "הערך השני הגבוה ביותר הוא" והערך השני הגבוה ביותר
8. הנח את המאקרו שלך בלחצן פקודה, בחר את המספרים ולחץ על כפתור הפקודה.
תוֹצָאָה:
