/ / ממוצע מתגלגל ב- Excel VBA

ממוצע מתגלגל ב- Excel VBA

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

Range("B3").Value = WorksheetFunction.RandBetween(0, 100)

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

טבלה ממוצע מתגלגל ב - VBA של

טבלה ממוצע מתגלגל ב - VBA של

יצירת אירוע גליון עבודה. הקוד שנוסף לאירוע שינוי גליון העבודה יבוצע על-ידי Excel VBA בעת שינוי תא בגליון עבודה.

1. פתח את עורך Visual Basic.

2. לחץ לחיצה כפולה על גיליון 1 (גיליון 1) בסייר הפרויקט.

.3 בחר באפשרות גיליון עבודה מהרשימה הנפתחת. בחר באפשרות שנה מהרשימה הנפתחת.

שינוי אירוע ב - Excel

הוסף את שורות הקוד הבאות לאירוע שינוי גליון העבודה:

4. להכריז על משתנה בשם newvalue של סוג שלם ושני טווחים (firstfourvalues ​​ו lastfourvalues).

Dim newvalue As Integer, firstfourvalues As Range, lastfourvalues As Range

5. אירוע שינוי גליון העבודה מקשיב לכל השינויים ב- Sheet1. אנחנו רק רוצים Excel VBA לעשות משהו אם משהו משתנה בתא B3. לשם כך, הוסף את שורת הקוד הבאה:

If Target.Address = "$B$3" Then

6. אנחנו לאתחל newvalue עם הערך של התא B3, firstfourvalues ​​עם טווח ("D3: D6") ו lastfourvalues ​​עם טווח ("D4: D7").

newvalue = Range("B3").Value
Set firstfourvalues = Range("D3:D6")
Set lastfourvalues = Range("D4:D7")

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

lastfourvalues.Value = firstfourvalues.Value
Range("D3").Value = newvalue

8. אל תשכח לסגור את ההצהרה אם.

End if

9. לבסוף, הזן את הנוסחה = AVERAGE (D3: D7) לתוך התא D8.

10. בדוק את התוכנית על ידי לחיצה על לחצן הפקודה.

קרא גם: