להלן נבחן תוכנית ב Excel VBA שמחלק סכום כסף שטרות ומטבעות.
מַצָב:
צור אירוע שינוי גליון עבודה. הקוד שנוסף לאירוע שינוי גליון העבודה יבוצע על ידי Excel VBA כאשר תשנה תא בגליון עבודה.
1. פתח את עורך Visual Basic.
2. לחץ פעמיים על Sheet1 (Sheet1) בסייר הפרויקטים.
3. בחר גליון עבודה מהרשימה הנפתחת השמאלית. בחר שנה מהרשימה הנפתחת הימנית.
הוסף את שורות הקוד הבאות לאירוע שינוי גליון העבודה:
4. הצהיר על משתנה הנקרא כמות סוג כפול ומשתנה i מסוג מספר שלם.
כמות עמומה ככפולה, i כמספר שלם
5. אירוע שינוי גליון העבודה מקשיב לכל השינויים בגיליון 1. אנחנו רוצים ש- VBA של Excel יעשה משהו אם משהו ישתנה בתא B2. לשם כך, הוסף את שורת הקוד הבאה:
אם Target.Address = "$ B $ 2" אז
6. אנו מאתחלים את הסכום המשתנה עם הערך של תא B2.
כמות = טווח ("B2"). ערך
7. אנו מרוקנים את הטווח עם התדרים.
טווח ("B5: B16"). ערך = ""
8. עכשיו הגיע הזמן לפצל את סכום הכסף שהוזן. אנו מתחילים לולאה For Next.
עבור i = 5 עד 16
9. נשתמש במבנה Do While Loop. הקוד המוצב בין מילים אלה יחזור על עצמו כל עוד החלק שאחרי עשה בזמן נכון. אנו רוצים ש- VBA של Excel יחזור על שורות הקוד בשלב 10, כל עוד הסכום גדול או שווה לתאים (i, 1).
האם בעוד כמות> = תאים (i, 1). ערך
לוּלָאָה
10. הוסף את שורות הקוד הבאות ללולאה Do While Loop.
תאים (i, 2). ערך = תאים (i, 2). ערך + 1
כמות = סכום - תאים (i, 1). ערך
הסבר: כל עוד הסכום גדול או שווה לתאים (i, 1). ערך, הסכום מכיל שטרות/מטבעות בערך זה. כתוצאה מכך, Excel VBA מגדיל את התדירות של שטר/מטבע זה (שורה ראשונה) ומחסיר את ערך השטר/מטבע מהסכום (שורה שניה). תהליך זה יחזור על עצמו עד שהכמות תהיה קטנה יותר מאשר ערך התאים (i, 1). לאחר מכן, Excel VBA מגדיל את i ועובר לחשבון/למטבע הבא כדי לראות כמה פעמים שטר/מטבע זה מתאים לסכום שנותר. כך סכום הכסף יחולק לשטרות ומטבעות עד שלא יישאר עוד כסף לפיצול.
11. סגור את הלולאה For Next ואל תשכח לסגור את המשפט if (שניהם מחוץ ללולאה Do While Loop).
הבא i
סיים אם
12. בדוק את התוכנית.
תוֹצָאָה:
הערה: כמובן שהסכום שהוזן אינו מכיל בהכרח כל שטר/מטבע. אם הסכום אינו מכיל שטר/מטבע מסוים, החלק שאחרי Do While לעולם לא יתקיים עבור שטר/מטבע זה ו- Excel VBA עובר ישירות לשטר/למטבע הבא.
