/ / חשבונות ומטבעות ב - VBA של Excel

שטרות ומטבעות ב - VBA של Excel

להלן נבחן תוכנית ב Excel VBA כי פיצול סכום כסף לתוך שטרות ומטבעות.

מצב:

שטרות ומטבעות ב - VBA של Excel

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

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

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

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

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

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

4. להכריז משתנה בשם כמות סוג כפול כפול משתנה של מספר שלם.

Dim amount As Double, i As Integer

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

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

6. אנחנו לאתחל את סכום המשתנה עם הערך של B2 תא.

amount = Range("B2").Value

7. אנחנו מרוקנים את הטווח עם התדרים.

Range("B5:B16").Value = ""

8. עכשיו הגיע הזמן לפצל את הסכום שהוזנו, אנחנו מתחילים לולאה הבאה.

For i = 5 To 16

9. אנו נעשה שימוש במבנה לולאה בזמן. הקוד בין המילים האלה יחזור על עצמו כל עוד החלק אחרי האם נכון. אנו רוצים ש- Excel VBA יחזור על קווי הקוד בשלב 10, כל עוד הסכום גדול או שווה לתאים (i, 1).

Do While amount >= Cells(i, 1).Value

Loop

.10 הוסף את שורות הקוד הבאות ל - Do Do Loop.

Cells(i, 2).Value = Cells(i, 2).Value + 1
amount = amount - Cells(i, 1).Value

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

.11 סגור את הלולאה הבאה ואל תשכח לסגור את ההצהרה אם (מחוץ ל - Do Do Loop).

   Next i
End if

12. בדוק את התוכנית.

תוצאה:

שטרות ומטבעות תוצאה

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

קרא גם: