להלן נבחן תוכנית ב Excel VBA שיוצר א שולחן ממוצע מתגלגל. הצב כפתור פקודה בגליון העבודה שלך והוסף את שורת הקוד הבאה:
טווח ("B3"). Value = WorksheetFunction.RandBetween (0, 100)
שורת קוד זו מכניסה מספר אקראי בין 0 ל -100 לתא B3. אנו רוצים ש- Excel VBA ייקח את ערך המניה החדש ויציב אותו במיקום הראשון של טבלת הממוצע המתגלגל. כל שאר הערכים צריכים לרדת למטה למקום אחד ולמחוק את הערך האחרון.
צור אירוע שינוי גליון עבודה. הקוד שנוסף לאירוע שינוי גליון העבודה יבוצע על ידי Excel VBA כאשר תשנה תא בגליון עבודה.
1. פתח את עורך Visual Basic.
2. לחץ פעמיים על Sheet1 (Sheet1) בסייר הפרויקטים.
3. בחר גליון עבודה מהרשימה הנפתחת השמאלית. בחר שנה מהרשימה הנפתחת הימנית.
הוסף את שורות הקוד הבאות לאירוע שינוי גליון העבודה:
4. הצהיר על משתנה בשם newvalue מסוג Integer מספר ושני טווחים (firstfourvalues ו- lastfourvalues).
Dim newvalue As Integer, firstfourvalues As Range, lastfourvalues As Range
5. אירוע שינוי גליון העבודה מקשיב לכל השינויים בגיליון 1. אנחנו רוצים ש- VBA של Excel יעשה משהו אם משהו ישתנה בתא B3. לשם כך, הוסף את שורת הקוד הבאה:
אם Target.Address = "$ B $ 3" אז
6. אנו מתחילים את הערך החדש עם הערך של תא B3, הערכים הראשונים עם טווח ("D3: D6") והערכים האחרונים עם הטווח ("D4: D7").
newvalue = טווח ("B3"). ערך
הגדר את הערכים הראשונים = טווח ("D3: D6")
הגדר את הערכים האחרונים = טווח ("D4: D7")
7. עכשיו מגיע הטריק הפשוט. אנחנו רוצים לעדכן את טבלת הממוצע המתגלגל. אתה יכול להשיג זאת על ידי החלפת ארבעת הערכים האחרונים בארבעת הערכים הראשונים של הטבלה והצבת ערך המניה החדש במיקום הראשון.
lastfourvalues.Value = firstfourvalues.Value
טווח ("D3"). ערך = ערך חדש
8. אל תשכח לסגור את הצהרת ה- if.
סיים אם
9. לבסוף, הכנס את הנוסחה = AVERAGE (D3: D7) לתא D8.
10. בדוק את התוכנית על ידי לחיצה על כפתור הפקודה.
