/ / פונקציה ממוצעת מותאמת אישית של

פונקציה ממוצעת מותאמת אישית ב- Excel VBA

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

מצב:

פונקציה ממוצעת מותאמת אישית ב- Excel VBA

פונקציות המשתמש מוגדר צריך להיות ממוקם לתוך מודול.

1. פתח את Visual Basic Editor ולחץ על Insert, Module.

2. הוסף את שורת הקוד הבאה:

Function CUSTOMAVERAGE(rng As Range, lower As Integer, upper As Integer)

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

3. הבא, אנו מכריזים על אובייקט טווח ושני משתנים של מספר שלם. אנו קוראים לתא אובייקט Range. משתנה אחד שלם אנו קוראים סה"כ משתנה אחד שלם אנחנו קוראים לספור.

Dim cell As Range, total As Integer, count As Integer

4. אנחנו רוצים לבדוק כל תא בטווח נבחר באופן אקראי (טווח זה יכול להיות בכל גודל). ב- Excel VBA, ניתן להשתמש בלולאה עבור כל אחד מהם. הוסף את שורות הקוד הבאות:

For Each cell In rng

Next cell

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

5. לאחר מכן, אנו בודקים כל ערך בטווח זה אם הוא נופל בין שני הערכים (התחתון והעליון). אם נכון, אנו להגדיל את סך הכל על ידי הערך של התא ואנחנו לספור על ידי הוספת 1. הוסף את שורות הקוד הבא לולאה.

If cell.Value >= lower And cell.Value <= upper Then
    total = total + cell.Value
    count = count + 1
End If

6. כדי להחזיר את התוצאה של פונקציה זו (הממוצע הרצוי), להוסיף את השורה הבאה קוד מחוץ לולאה.

CUSTOMAVERAGE = total / count

7. אל תשכח לסיים את הפונקציה, הוסף את השורה:

End Function

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

תוצאה:

תוצאה מותאמת אישית של תפקוד ממוצע

כצ'ק, ניתן למחוק את כל הערכים שהםנמוך מ -10 ומעלה מ -30 והשתמש בפונקציה Standard Standard ב- Excel כדי לראות אם Excel מחשב את הממוצע הממוצע של הפונקציה הממוצעת המותאמת אישית שלנו.

בדיקת פונקציה ממוצעת מותאמת אישית

הפונקציה הממוצעת המותאמת שלנו פועלת! הערה: פונקציה זו זמינה רק בחוברת עבודה זו.

קרא גם: