/ / ממיר מטבע ב - Excel

ממיר מטבע ב - Excel

להלן נבחן תוכנית ב Excel VBA אשר יוצר Userform זה ממירים כל סכום מאחד מטבע לתוך אחרת.

Userform שאנחנו הולכים ליצור נראה כדלקמן:

ממיר מטבע ב - Excel

כדי ליצור Userform זה, בצע את השלבים הבאים.

1. פתח את עורך Visual Basic. אם סייר הפרויקטים אינו גלוי, לחץ על תצוגה, סייר פרויקט.

.2 לחץ על הוספה, Userform. אם תיבת הכלים אינה מופיעה באופן אוטומטי, לחץ על תצוגה, תיבת כלים. המסך שלך צריך להיות מוגדר כמו להלן.

הגדרת מסך ב - Excel

3. הוסף את התוויות, תיבות רשימה (ראשון בצד שמאל, השני מימין), תיבות טקסט (הראשון בצד שמאל, השני בצד ימין) ואת לחצן הפקודה. לאחר השלמת פעולה זו, התוצאה צריכה להיות עקבית עם התמונה של Userform שמוצג קודם לכן. לדוגמה, צור בקרת תיבת רשימה על ידי לחיצה על ListBox מתוך ארגז הכלים. לאחר מכן, ניתן לגרור תיבת רשימה ב- Userform.

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

5. כדי להציג את Userform, הצב לחצן פקודה בגליון העבודה והוסף את שורת הקוד הבאה:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

עכשיו אנחנו הולכים ליצור את תת משתמשForm_Initialize. כאשר אתה משתמש בשיטת הצג עבור Userform, תת תתבצע באופן אוטומטי.

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

7. בסייר הפרויקט, לחץ באמצעות לחצן העכבר הימני על UserForm1 ולאחר מכן לחץ על הצג קוד.

8. בחר Userform מהרשימה הנפתחת. בחר 'אתחול' מהרשימה הנפתחת.

9. הוסף את שורות הקוד הבאות:

Private Sub UserForm_Initialize()

With ListBox1
    .AddItem "Euro"
    .AddItem "Us Dollar"
    .AddItem "British Pound"
End With

With ListBox2
    .AddItem "Euro"
    .AddItem "Us Dollar"
    .AddItem "British Pound"
End With

ListBox1.ListIndex = 1
ListBox2.ListIndex = 0

TextBox1.Value = 1
TextBox2.Value = 0.722152

End Sub

הסבר: ראשית, שתי תיבות הרשימה מלאים. לאחר מכן, המטבע של דולר ארה"ב מוגדר כברירת מחדל בתיבת הרשימה הראשונה והמטבע EURO מוגדר כברירת מחדל בתיבת הרשימה השנייה. לבסוף, הערך 1 מוזן בתיבת הטקסט הראשונה והערך 0.722152 מוזן בתיבת הטקסט השנייה.

עכשיו יצרנו את החלק הראשון של Userform. למרות שזה נראה מסודר כבר, שום דבר לא יקרה עדיין כאשר אנו לוחצים על כפתור עבור.

10. בסייר הפרויקט, לחץ לחיצה כפולה על UserForm1.

11. לחץ לחיצה כפולה על כפתור עבור.

12. הוסף את שורות הקוד הבאות:

Private Sub CommandButton1_Click()

Dim rates(0 To 2, 0 To 2) As Double, i As Integer, j As Integer

rates(0, 0) = 1
rates(0, 1) = 1.38475
rates(0, 2) = 0.87452

rates(1, 0) = 0.722152
rates(1, 1) = 1
rates(1, 2) = 0.63161

rates(2, 0) = 1.143484
rates(2, 1) = 1.583255
rates(2, 2) = 1

For i = 0 To 2
    For j = 0 To 2
        If ListBox1.ListIndex = i And ListBox2.ListIndex = j Then TextBox2.Value = TextBox1.Value * rates(i, j)
    Next j
Next i

End Sub

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

לדוגמה: אם i = 2 ו- j = 1 ואנו נכנסים לערך 2 בתיבת הטקסט הראשונה, Excel VBA מציב את הערך 2 * יומיים (2,1) = 2 * 1.583255 = 3.16651 בתיבת הטקסט השנייה.

13. בדוק את Userform.

תוצאה:

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

קרא גם: