דף זה מלמד אותך כיצד ליצור פשוט להלוות מחשבון ב Excel VBA. גליון העבודה מכיל את פקדי ה- ActiveX הבאים: שני פסי גלילה ושני לחצני אופציות.
הערה: ההוראות שלהלן אינן מלמדות אותך כיצד לעצב את דף העבודה. אנו מניחים שאתה יודע כיצד לשנות סוגי גופנים, להוסיף שורות ועמודות, להוסיף גבולות, לשנות צבעי רקע וכו '.
בצע את השלבים הבאים ליצירת מחשבון ההלוואה:
1. הוסף את שני פקדי סרגל הגלילה. לחץ על הוסף מהכרטיסייה מפתחים ולאחר מכן לחץ על סרגל הגלילה במקטע פקדי ActiveX.
2. הוסף את שני לחצני האפשרויות. לחץ על הוסף מהכרטיסייה מפתחים ולאחר מכן לחץ על לחצן האפשרות במקטע פקדי ActiveX.
שנה את המאפיינים הבאים של פקדי סרגל הגלילה (ודא שנבחר מצב עיצוב).
3. לחץ באמצעות לחצן העכבר הימני על פקד סרגל הגלילה הראשון ולאחר מכן לחץ על מאפיינים. הגדר את Min ל- 0, Max ל- 20, SmallChange ל- 0 ו- LargeChange ל -2.
4. לחץ באמצעות לחצן העכבר הימני על פקד סרגל הגלילה השני ולאחר מכן לחץ על מאפיינים. הגדר את Min ל- 5, Max ל- 30, SmallChange ל- 1, LargeChange ל- 5 ו- LinkedCell ל- F8.
הסבר: כאשר אתה לוחץ על החץ, ערך סרגל הגלילה עולה או יורד על ידי SmallChange. כאשר אתה לוחץ בין המחוון לחץ, ערך סרגל הגלילה עולה או יורד על ידי LargeChange.
צור אירוע שינוי גליון עבודה. הקוד שנוסף לאירוע שינוי גליון העבודה יבוצע על ידי Excel VBA כאשר תשנה תא בגליון עבודה.
5. פתח את עורך Visual Basic.
6. לחץ פעמיים על Sheet1 (Sheet1) בסייר הפרויקטים.
7. בחר גליון עבודה מהרשימה הנפתחת השמאלית ובחר שנה מהרשימה הנפתחת הימנית.
8. אירוע שינוי גליון העבודה מקשיב לכל השינויים בגיליון 1. אנו רוצים ש- Excel VBA יפעיל את המשנה Calculate אם משהו משתנה בתא D4. כדי להשיג זאת, הוסף את שורת הקוד הבאה לאירוע שינוי גליון העבודה (מידע נוסף על המשנה חשב בהמשך).
אם Target.Address = "$ D $ 4" ואז Application.Run "חשב"
9. קבל את האחוז הנכון בתא F6 (שנה את הפורמט של תא F6 לאחוז). לחץ באמצעות לחצן העכבר הימני על פקד סרגל הגלילה הראשון ולאחר מכן לחץ על הצג קוד. הוסף את שורות הקוד הבאות:
תת גלילה משנה bar1_Change ()
טווח ("F6"). ערך = ScrollBar1.Value / 100
הפעלה של Application.Run "Calculate"
סיום תת
10. לחץ באמצעות לחצן העכבר הימני על פקד סרגל הגלילה השני ולאחר מכן לחץ על הצג קוד. הוסף את שורת הקוד הבאה:
תת גלילה משנה 2_שינוי ()
הפעלה של Application.Run "Calculate"
סיום תת
11. לחץ לחיצה ימנית על לחצן האפשרויות הראשון ולאחר מכן לחץ על הצג קוד. הוסף את שורת הקוד הבאה:
אפשרות תת פרטית Button1_Click ()
אם OptionButton1.Value = True ואז טווח ("C12"). Value = "תשלום חודשי"
הפעלה של Application.Run "Calculate"
סיום תת
12. לחץ באמצעות לחצן העכבר הימני על לחצן האפשרויות השני ולאחר מכן לחץ על הצג קוד. הוסף את שורת הקוד הבאה:
אפשרות תת פרטית Button2_Click ()
אם OptionButton2.Value = True ואז טווח ("C12"). Value = "תשלום שנתי"
הפעלה של Application.Run "Calculate"
סיום תת
13. הגיע הזמן ליצור את המשנה. אתה יכול לעבור על פרק הפונקציות והסאב שלנו כדי ללמוד עוד על תת. אם אתה ממהר, פשוט הכנס את המשנה בשם Calculate למודול (בעורך Visual Basic, לחץ על Insert, Module).
חישוב משנה ()
הלוואה עמוקה כל עוד, שיעור כפול, מספר כשלם
הלוואה = טווח ("D4"). ערך
rate = Range ("F6"). ערך
nper = טווח ("F8"). ערך
אם Sheet1.OptionButton1.Value = True אז
שיעור = שיעור / 12
nper = nper * 12
סוף אם
טווח ("D12"). ערך = -1 * גליון עבודה פונקציונלי. PMT (תעריף, nper, הלוואה)
סיום תת
הסבר: המשנה מקבלת את הפרמטרים הנכונים לפונקציית גליון העבודה Pmt. פונקציית PMT באקסל מחשבת את התשלומים עבור הלוואה על בסיס תשלומים קבועים וריבית קבועה. אם אתה מבצע תשלומים חודשיים (Sheet1.OptionButton1.Value = True), Excel VBA משתמש בתעריף / 12 עבור תעריף ו- nper *12 עבור nper (סך התשלומים הכולל). התוצאה היא מספר שלילי, מכיוון שהתשלומים נחשבים לחיוב. הכפלת התוצאה ב- -1 נותנת תוצאה חיובית.
