/ / محول العملات في Excel VBA

محول العملات في Excel VBA

أدناه سننظر في برنامج في Excel VBA مما يخلق Userform ذلك المتحولين أي مبلغ من واحد دقة الى اخر.

شكل المستخدم الذي سنقوم بإنشائه يبدو كما يلي:

محول العملات في Excel VBA

لإنشاء Userform ، قم بتنفيذ الخطوات التالية.

1. افتح محرر Visual Basic. إذا لم يكن Project Explorer مرئياً ، فانقر فوق View ، Project Explorer.

2. انقر فوق Insert ، Userform. إذا لم يظهر Toolbox تلقائيًا ، فانقر فوق View ، Toolbox. يجب إعداد الشاشة على النحو التالي.

إعداد شاشة Userform في Excel VBA

3. إضافة التسميات ، مربعات القوائم (أولاً على اليسار ، الثاني على اليمين) ، مربعات النص (أولاً على اليسار ، الثاني على اليمين) وزر الأمر. بمجرد اكتمال ذلك ، يجب أن تكون النتيجة متوافقة مع صورة Userform المعروضة سابقًا. على سبيل المثال ، قم بإنشاء عنصر تحكم مربع قائمة بالنقر فوق ListBox من Toolbox. بعد ذلك ، يمكنك سحب مربع قائمة في Userform.

4. يمكنك تغيير الأسماء والتسميات التوضيحية لعناصر التحكم. يتم استخدام الأسماء في التعليمات البرمجية لـ Excel VBA. التسميات التوضيحية هي تلك التي تظهر على الشاشة. من الممارسات الجيدة تغيير أسماء عناصر التحكم ، ولكنها ليست ضرورية هنا لأن لدينا فقط بعض عناصر التحكم في هذا المثال. لتغيير التسمية التوضيحية لـ Userform ، زر الأمر والتسميات ، انقر فوق "عرض" و "إطار خصائص" ثم انقر فوق كل عنصر تحكم.

5. لإظهار Userform ، ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة سطر التعليمات البرمجية التالي:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

نحن الآن بصدد إنشاء Sub UserForm_Initialize. عند استخدام طريقة Show لـ Userform ، سيتم تنفيذ هذا الفرعي تلقائيًا.

6. افتح محرر Visual Basic.

7. في Project Explorer ، انقر بزر الماوس الأيمن فوق UserForm1 ، ثم انقر فوق عرض التعليمات البرمجية.

8. اختر Userform من القائمة المنسدلة اليسرى. اختر Initialize من القائمة المنسدلة اليمنى.

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

توضيح: أولاً ، يتم تعبئة مربعات القوائم اثنين. بعد ذلك ، يتم تعيين عملة الدولار الأمريكي كقيمة افتراضية في مربع القائمة الأول ويتم تعيين عملة اليورو كإعداد افتراضي في مربع القائمة الثاني. وأخيراً ، يتم إدخال القيمة 1 في مربع النص الأول ويتم إدخال القيمة 0.722152 في مربع النص الثاني.

لقد أنشأنا الآن الجزء الأول من Userform. على الرغم من أنه يبدو أنيقًا بالفعل ، لن يحدث أي شيء بعد النقر على الزر Go.

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 * rates (2،1) = 2 * 1.583255 = 3.16651 في مربع النص الثاني.

13. اختبار Userform.

نتيجة:

تحويل العملة النتيجة

اقرأ أيضًا: