/ / User Defined פונקציה ב - VBA של Excel

משתמש מוגדר פונקציה ב - VBA של

להלן נבחן תוכנית ב Excel VBA זה יוצר משתמש מוגדרת פונקציה. Excel יש אוסף גדול של פונקציות. ברוב המצבים אלה פונקציות מספיק כדי לעשות את העבודה. אם לא, באפשרותך ליצור פונקציה משלך שנקראת User Defined Function או פונקציית Excel מותאמת אישית. אתה יכול לגשת פונקציה מוגדרת משתמש בדיוק כמו כל פונקציה אחרת של Excel.

אנחנו רוצים ליצור פונקציה בשם SUMEVENNUMBERS שמוצאת את הסכום של המספרים אפילו של טווח שנבחר באופן אקראי.

מצב:

משתמש מוגדר פונקציה ב - VBA של

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

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

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

Function SUMEVENNUMBERS(rng As Range)

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

3. הבא, אנו מכריזים על אובייקט טווח וקוראים לו תא.

Dim cell As Range

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

For Each cell In rng

Next cell

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

5. לאחר מכן, אנו בודקים כל ערך בטווח זה בין אם הוא קיים או לא. אנו משתמשים במפעיל Mod עבור זה. מפעיל ה - Mod נותן את יתרת החטיבה. אז 7 mod 2 ייתן 1. 7 מחולק 2 (3 פעמים) לתת שארית 1. לאחר שאמר את זה, זה קל לבדוק אם מספר הוא אפילו או לא. רק אם יתרת מספר מחולק ב 2 הוא 0, המספר הוא אפילו. 8 mod 2 נותן 0, 8 מחולק 2 בדיוק 4 פעמים, ולכן 8 הוא אפילו. הוסף את משפט ה- if הבא ללולאה For for Next.

If cell.Value Mod 2 = 0 Then

End If

6. רק אם הצהרה זו נכונה, אנו מוסיפים את הערך ל- SUMEVENNUMBERS. הוסף את שורת הקוד הבאה בהצהרה אם.

SUMEVENNUMBERS = SUMEVENNUMBERS + cell.Value

7. אל תשכח לסיים את הפונקציה (מחוץ לולאה).

End Function

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

תוצאה:

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

כל הכבוד! זה כמה קל להגדיר פונקציות המשתמש ב- Excel VBA הם הערה: פונקציה זו זמינה רק בחוברת עבודה זו.

קרא גם: